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1.  Introduction 


The  eight-stream  extension  of  Boundary  Layer  Illumination  Radiation  Balance 
Model  (BLIRB8)  was  developed  by  Andrew  Zardecki  under  contract  to  the  U.S. 
Army  Research  Office,  P.O.  Box  12211,  Research  Triangle  Park,  NC 
27709.  [1,2]  BLIRB8  provides  direct  and  diffuse  radiative  fluxes  at  each  grid 
point  in  the  physical  BLIRB8  space.  The  physical  BLIRB8  space  may  contain 
several  regions  of  aerosol  concentration  (clouds,  smoke,  fog,  etc.),  ground  level 
areas  of  varying  albedos,  flares,  and  a  searchlight.  An  ASCII  file,  comprised 
of  several  records  (cards)  containing  the  necessary  input  parameter  values, 
contains  inputs  to  BLIRB8.  The  ASCII  file  GRID.ASC  and  the  binary  file 
GRID.BIN  contain  the  BLIRB8  outputs.  Both  files  contain  the  same 
information. 

1.1  BLIRB8  Visualization 

Because  of  the  complexity  of  the  various  input  records  and  the  requirement  for 
each  parameter  field  of  each  record  to  contain  a  valid  input  value,  VISUAL  was 
developed  to  provide  a  user-friendly  graphical  user  interface  (GUI)  for  building 
a  BLIRB8  input  file.  In  addition,  VISUAL  graphically  displays  the  BLIRB8 
output  radiative  flux  fields  in  an  interactive  mode. 

VISUAL  graphically  displays  the  entire  physical  BLIRB8  space  including  the 
following: 

•  surface  albedo  areas  (shades  of  green) 

•  regions  of  aerosol  concentrations  (various  transparent  colors) 

•  flare  positions  (red) 

•  searchlight  position  (white) 

•  relative  position  of  the  Sun  (yellow) 

•  BLIRB8  output  radiative  flux  fields  (red  and  white) 


Optionally,  text  widgets  may  be  displayed  depicting  the  following: 

•  the  current  BLIRB8  input/output  filename 

•  the  surface  albedo  areas  information 

•  the  aerosols  regions  information 

•  the  output  radiative  flux  field  information 

You  can  select  all  BLIRB8  input  parameters  (except  a  filename  for  saving  the 
inputs)  using  the  mouse.  You  can  use  the  keyboard  for  hot  keys,  and  you  must 
use  it  to  specify  a  savefile  name. 

VISUAL  uses  the  Silicon  Graphics  Inc.  (SGI)  IRIS  Graphics  Library  for  the 
display  graphics  and  X- Windows/Motif  for  the  menus  and  message  boxes  of  the 
GUI.  This  software  requires  an  SGI  workstation  with  at  least  128  Mb  of  RAM 
for  program  execution.  Appendix  H  contains  a  listing  of  the  VISUAL  source 
code,  VISUAL.C.  VISUAL.C  is  also  contained  under  the  directory  VISUAL 
on  an  accompanying  MS-DOS-compatible  3.5-in.  floppy  disk  along  with  the 
SGI  makefile  and  the  include  file,  VISUALO.H.  Appendix  A  contains  a  listing 
of  VISUALO.H. 

1.2  BLIRB8  Output  Encoding/Decoding 

The  BLIRB8  radiant  flux  output  will  be  required  in  the  near  future  to  be  sent 
over  the  Internet  to  the  participants  in  the  Distributed  Interactive  Simulation 
groups.  This  will  require  that  the  output  ASCII  file  be  encoded  using  the 
World  Meteorological  Organization  code  form  FM  94-IX  Ext.  BUFR  (Binary 
Universal  Form  for  the  Representation  of  meteorological  data).  [3]  BUFR  is 
a  binary  encoding  scheme,  that  employs  a  continuous  binary  stream,  designed 
to  represent  any  meteorological  data.  The  same  scheme  can  be  used  to  encode 
any  numerical  or  qualitative  data. 

BLIRBEN  was  created  for  the  purpose  of  encoding  the  BLIRB8  radiant  flux 
output  ASCII  file  to  a  BUFR  file.  BLIRB  DE  was  created  for  the  purpose  of 
recovering  the  BLIRB8  radiant  flux  output  ASCII  file  from  the  BUFR  file.  In 
addition,  BLIRB_CM  was  created  to  compare  the  contents  of  the  original  output 
file  and  the  reconstituted  output  file  item  by  item. 
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BLIRBEN,  BLIRB  DE,  and  BLIRB  CM  were  tested  on  SGI  and  Hewlett 
Packard  workstations  and  MS-DOS-compatible  personal  computers  (compiled 
using  the  Compact  Memory  Model  in  Turbo  C++  versions  1.0  and  2.0). 
Appendix  B  contains  a  listing  of  the  encoder/decoder  include  file,  BUFR.H. 
Appendices  C,  D,  and  E  contain  listings  of  BLIRB  EN.C,  BLIRB  DE.C,  and 
BLIRBCM.C,  respectively.  Appendices  F  and  G  contain  listings  of  two  BUFR 
tables  (B  and  D)  required  for  software  execution.  The  BUFR  directory  on  the 
accompanying  MS-DOS-compatible  3. 5 -in.  floppy  disk  contains  all  source  and 
MS-DOS-compatible  executable  files  along  with  the  two  required  tables. 
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2.  Starting  VISUAL 


Start  VISUAL  in  any  of  three  ways.  Enter  visual  to  start  VISUAL  with  default 
values  for  each  of  the  input  parameters.  The  default  BLIRB8  space  is 
5-  by  4-  by  5-km  XYZ  dimensioned  with  no  aerosol.  No  aerosol  subregions 
are  within  the  BLIRB8  space.  One  surface  albedo  area  is  5-  by  4-km  XY 
dimensioned  with  the  value  of  the  background  albedo  (0.2).  The  Sun  is 
positioned  directly  overhead  with  azimuth  and  zenith  angles  set  to  zero.  The 
default  case  contains  no  flares  or  searchlights.  The  observer  is  on  the 
negative-Y  axis  looking  toward  the  center  of  the  BLIRB8  space.  The  grid 
points  are  every  0.5  km  in  the  X,  Y,  and  Z  directions. 

Enter  visual  <inputfile>  in  which  <inputfile>  is  a  BLIRB8  ASCII  input  file  to 
start  VISUAL  with  the  input  parameters  set  to  those  in  the  inputfile. 

Enter  visual  <outputfile>  in  which  <outputfile>  is  a  BLIRB8  ASCII  radiative 
flux  output  file  to  start  VISUAL  with  the  input  parameters  set  to  those  in  the 
outputfile. 

The  BLIRB8  radiative  flux  fields  are  available  for  display. 
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3.  VISUAL  Menubar 


After  an  input  file  is  entered  into  VISUAL,  the  menubar  at  the  top  of  the 
window  contains  five  options: 

•  File 

•  View 

•  Modify 

•  Reset 

•  Help 

After  an  output  file  is  entered  into  VISUAL,  the  menubar  contains  another 
option,  Flux,  that  appears  between  View  and  Modify. 


3.1  File 

Select  File  on  the  menubar  to  display  a  menu  with  five  options: 

•  Create  New  File 

•  Open  File 

•  Save  File 

•  Save  File  As 

•  Exit  Program 

(Or,  enter  Alt-f  or  FlO-f  to  select  File.) 

3.1.1  Create  New  File 

Select  Create  New  File  or  press  n  in  the  File  menu  (or,  enter  Alt-fn,  FlO-fn, 
or  Shift-Fl  to  select  Create  New  File)  to  display  a  warning  that  continuing  this 
option  will  delete  all  previous  modifications  if  modifications  are  made  to  the 
initial  input  parameter  values  and  the  changes  are  not  saved. 

Choose  to  Continue  or  Cancel  the  selection.  The  default  BLIRB8  input  values 
are  loaded  if  you  choose  to  continue. 
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The  default  BLIRB8  input  values  are  loaded  when  you  select  Create  New  File 
and  you  have  no  unsaved  modifications  pending. 

3.1.2  Open  File 

Select  Open  File  or  press  o  in  the  File  menu  (or,  enter  Alt-fo,  FlO-fo,  or 
Shift-F2  to  select  Open  File)  to  display  a  warning  that  continuing  this  option 
will  delete  all  previous  modifications  if  modifications  are  made  to  the  initial 
input  parameter  values  and  the  changes  are  not  saved. 

Choose  to  Continue  or  Cancel  the  selection. 

Select  Open  File  to  display  a  file  selection  box  with  the  file  names  in  the 
current  directory  filtered  according  to  the  filename  filter.  Scroll  the  list  of  file 
names.  Select  a  file  to  process. 

Click  on  grid*.*  and  type  in  a  new  filter  to  change  the  filename  filter. 

Click  on  Cancel  to  close  the  file  selection  box. 

The  BLIRB8  input  parameters  from  the  selected  file  are  loaded  into  VISUAL. 

3.1.3  Save  File 

Select  Save  File  or  press  s  in  the  File  menu  (or,  enter  Alt-fs,  FlO-fs,  or 
Shift-F3)  to  save  current  inputs  to  the  selected  file  name,  <filename>,  after 
saving  the  original  input  file  to  a  backup  file  <filename.bak>. 

The  default  file  name  used  when  you  select  Create  New  File  is  grid  newfile.i. 

3.1.4  Save  File  As 

Select  Save  File  As  or  press  a  in  the  File  menu  (or,  enter  Alt-fa,  FlO-fa,  or 
Shift-F4)  to  input  a  file  name  for  saving  the  current  BLIRB8  input  parameters. 
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3.1.5 


Exit  Program 


Select  Exit  Program  or  press  x  in  the  File  menu  (or,  enter  Alt-fx,  FlO-fx,  or 
F12)  to  terminate  the  VISUAL  program. 

A  warning  is  displayed  to  allow  you  to  Cancel  the  selection  or  Continue  and 
terminate  the  program,  resulting  in  the  loss  of  all  modifications  if  the  BLIRB8 
input  parameters  are  modified  and  not  saved  when  you  select  Exit  Program. 

You  can  abort  the  VISUAL  program  by  pressing  Esc  or  by  closing  the  window. 
All  modifications  are  lost  without  warning  if  you  abort. 

3.2  View 

Select  View  on  the  menubar  to  display  a  menu  with  six  options: 

•  Viewing  Axis  Options 

•  Sun  Options 

•  Zoom  Options 

•  Minor  Grid  Lines  On/Off 

•  Transparent  Colors  On/Off 

•  Region  Definitions  On/Off 

(Or,  enter  Alt-v  or  FlO-v.) 

3.2.1  Viewing  Axis  Options 

Select  Viewing  Axis  Options  or  press  a  in  the  View  menu  (or,  enter  Alt-va  or 
FlO-va)  to  display  a  menu  with  three  options: 

•  Positive  X-axis 

•  Negative  Y-axis 

•  Positive  Z-axis 
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3.2. 1.1  Positive  X-Axis. — Select  Positive  X-axis  or  press  x  in  the  Viewing  Axis 
Options  menu  (or,  enter  Alt-vax,  FlO-vax,  or  FI)  to  cause  the  observer 
position  to  be  in  a  YZ  plane  on  the  positive  X  axis.  The  viewed  point  is  the 
center  of  the  BLIRB8  space.  Change  the  observer  position  on  the  observer 
plane  by  moving  the  mouse  while  holding  down  the  left  mouse  button,  which 
creates  a  rotation  effect  on  the  BLIRB8  space. 

3. 2. 1.2  Negative  Y-Axis. — Select  Negative  Y-axis  or  press  y  in  the  Viewing  Axis 
Options  menu  (or,  enter  Alt-vay,  FlO-vay,  or  F2)  to  cause  the  observer 
position  to  be  in  an  XZ  plane  on  the  negative  Y  axis.  The  viewed  point  is  the 
center  of  the  BLIRB8  space.  Change  the  observer  position  on  the  observer 
plane  by  moving  the  mouse  while  holding  down  the  left  mouse  button,  which 
creates  a  rotation  effect  on  the  BLIRB8  space.  Negative  Y-axis  is  the  initial 
viewing  axis  choice  when  starting  VISUAL. 

3. 2. 1.3  Positive  Z-Axis. — Select  Positive  Z-axis  or  press  z  in  the  Viewing  Axis 
Options  menu  (or,  enter  Alt-vaz,  FlO-vaz,  or  F3)  to  cause  the  observer 
position  to  be  in  an  XY  plane  on  the  positive  Z  axis.  The  viewed  point  is  the 
center  of  the  BLIRB8  space.  Change  the  observer  position  on  the  observer 
plane  by  moving  the  mouse  while  holding  down  the  left  mouse  button,  which 
creates  a  rotation  effect  on  the  BLIRB8  space. 

3.2.2  Sun  Options 

Select  Sun  Options  or  press  s  in  the  View  menu  (or,  enter  Alt-vs  or  FlO-vs), 
to  display  a  menu  with  two  options: 

•  Sun  Plot  On/Off 

•  Select  New  Sun  Position 

3.2.2. 1  Sun  Plot  On/ Off. — Select  Sun  Plot  On/Off  or  press  p  in  the  Sun  Options  menu 

(or,  enter  Alt-vsp,  FlO-vsp,  or  F4)  to  access  a  toggle  switch  that  displays  the 
relative  Sun  position  if  it  was  not  displayed  before  making  the  selection  and 
hides  the  relative  Sun  position  if  it  was  displayed  before  making  the  selection. 

Sun  Plot  On  is  the  default. 
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3. 2.2.2  Select  New  Sun  Position—  Select  Select  New  Sun  Position  or  press  n  in  the 
Sun  Options  menu  (or,  enter  Alt-vsn,  FlO-vsn,  or  F5)  to  cause  the  viewing 
axis  to  temporarily  become  the  positive  Z  axis.  Change  the  Sun  position  by 
moving  the  mouse  while  holding  down  the  left  mouse  button.  Move  the  mouse 
until  the  Sun  is  positioned  at  the  desired  location,  then  release  the  mouse 
button.  When  you  release  the  mouse  button,  the  display  returns  to  the  original 
viewing  position.  Only  the  position  of  the  Sun  is  changed. 

3.2.3  Zoom  Options 

Select  Zoom  Options  or  press  z  in  the  View  menu  (or,  enter  Alt-vz  or  FlO-vz) 
to  display  the  Zoom  Options  menu  with  two  options: 

•  Zoom  In 

•  Zoom  Out 

3.2.3. 1  Zoom  In. — Select  Zoom  In  or  press  i  in  the  Zoom  Options  menu  (or,  enter 
Alt-vzi,  FlO-vzi,  or  F6)  to  display  the  BLIRB8  space  5  percent  larger  than 
previously  displayed. 

3. 2. 3. 2  Zoom  Out. — Select  Zoom  Out  or  press  o  in  the  Zoom  Options  menu  (or,  enter 
Alt-vzo,  FlO-vzo,  or  F7)  to  display  the  BLIRB8  space  5  percent  smaller  than 
previously  displayed. 

3.2.4  Minor  Grid  Lines  On/Off 

Select  Minor  Grid  Lines  On/Off  or  press  m  in  the  View  menu  (or,  enter 
Alt-vm,  FlO-vm,  or  F8)  to  access  a  toggle  switch  that  displays  the  minor  grid 
lines  if  they  were  not  displayed  and  hides  the  minor  grid  lines  if  they  were 
displayed. 

Minor  Grid  Lines  Off  is  the  default. 
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3.2.5  Transparent  Colors  On/Off 

Select  Transparent  Colors  On/Off  or  press  t  in  the  View  menu  (or,  enter 
Ait-vt,  FlO-vt,  or  F9)  to  access  a  toggle  switch  that  displays  the  aerosol  regions 
in  transparent  colors  if  they  were  displayed  as  outlines  and  displays  the  aerosol 
regions  as  outlines  if  they  were  displayed  in  transparent  colors. 

Transparent  Colors  On  is  the  default. 

3.2.6  Region  Definitions  On/Off 

Select  Region  Definitions  On/Off  or  press  d  in  the  View  menu  (or,  enter 
Alt-vd,  FlO-vd,  or  Fll)  to  access  a  toggle  switch  that  displays  the  text  boxes 
at  the  bottom  of  the  BLIRB8  window  containing  the  current  filename,  aerosol 
regions  information,  albedo  areas  information,  and  radiative  flux  information 
if  they  were  not  displayed  and  hides  the  text  boxes  if  they  were  displayed. 

Region  Definitions  On  is  the  default. 

3.3  Flux 


Select  Flux  on  the  menubar  to  display  a  menu  with  four  options: 

•  Flux  Options 

•  Cross-Section  Plane  Orientation 

•  Cross-Section  Plane  Value  Selection 

•  Wave  Number  Selection 

(Or,  enter  Alt-1  or  F10-1.) 
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3. 3. 1  Flux  Options 


Select  Flux  Options  or  press  f  in  the  Flux  menu  (or,  enter  Alt-lf  or  FlO-lf)  to 
display  a  menu  with  13  options: 

•  Solar  Direct  Flux 

•  Solar  Reflected  Flux 

•  Diffuse  Flux  -  1 

•  Diffuse  Flux  -  2 

•  Diffuse  Flux  -  3 

•  Diffuse  Flux  -  4 

•  Diffuse  Flux  -  5 

•  Diffuse  Flux  -  6 

•  Diffuse  Flux  -  7 

•  Diffuse  Flux  -  8 

•  No  Flux 

•  Dec  by  1  Button 

•  Inc  by  1  Button 

3. 3. 1.1  Flux  Field  Choices.— You  can  investigate  a  flux  field  by  displaying  the  flux 

magnitude  using  flux  field  cross-sections  of  various  orientations  and  positions. 
Select  any  of  the  first  10  choices  or  press  the  corresponding  keys  (as  shown 
below)  to  display  the  corresponding  flux  within  the  BLIRB8  space. 

Flux  Field  Mnemonic  Key  Hotkey  Combination 


Solar  Direct  Flux 

d 

Alt-lfd  or  FlO-lfd 

Solar  Reflected  Flux 

r 

Alt-lfr  or  FlO-lfr 

Solar  Diffuse  Flux  -  1 

1 

Alt-lfl  or  FlO-lfl 

Solar  Diffuse  Flux  -  2 

2 

Alt-lf2  or  F10-1C 

Solar  Diffuse  Flux  -  3 

3 

Alt-lf3  or  F10-lf3 

Solar  Diffuse  Flux  -  4 

4 

Alt-lf4  or  F10-lf4 

Solar  Diffuse  Flux  -  5 

5 

Alt-lf5  or  F10-lf5 

Solar  Diffuse  Flux  -  6 

6 

Alt-lf6  or  F10-lf6 

Solar  Diffuse  Flux  -  7 

7 

Alt-lf7  or  F10-lf7 

Solar  Diffuse  Flux  -  8 

8 

Alt-lf8  or  F10-lf8 
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The  flux  display  is  a  red  three-dimensional  (3-D)  grid  wiremesh  plot  depicting 
the  magnitude  of  the  appropriate  flux  corresponding  to  the  choices  of  flux 
cross-section  plane,  distance  of  the  cross-section  plane  from  the  BLIRB8  space 
origin,  and  radiation  wavenumber.  The  current  flux  cross-section  plane  is 
depicted  by  a  white  grid  mesh.  The  distance  between  the  red  and  white  grid 
meshes  is  related  to  the  magnitude  of  the  selected  flux.  The  flux  amplitude 
scale  can  be  linear  or  logarithmic. 

3.3. 1.2  No  Flux. — Select  No  Flux  or  press  n  in  the  Flux  Options  menu  (or,  enter 
Alt-lfn  or  FlO-lfn)  to  turn  off  the  flux  display  and  text  information  box. 

No  Flux  is  the  default  when  VISUAL  is  started  without  a  BLIRB8  output 
radiation  flux  file  as  input. 

3.3. 1.3  Dec  by  1  Button. — Select  Dec  by  1  Button  in  the  Flux  Options  menu  (or,  enter 

Ctrl-Fl)  to  decrease  the  choice  of  flux  fields  one  position  in  the  ordered 
sequence:  Solar  Direct  Flux,  Solar  Reflected  Flux,  Diffuse  Flux  -  1, 

Diffuse  Flux  -  2,  Diffuse  Flux  -  3,  Diffuse  Flux  -  4,  Diffuse  Flux  -  5, 

Diffuse  Flux  -  6,  Diffuse  Flux  -  7,  Diffuse  Flux  -  8. 

Dec  by  1  Button  has  a  wraparound  effect  such  that  making  this  selection  while 
viewing  Solar  Direct  Flux  causes  the  new  flux  field  choice  to  be  Diffuse 
Flux  -  8. 

3.3. 1.4  Inc  by  1  Button. — Select  Inc  by  I  Button  in  the  Flux  Options  menu  (or,  enter 

Ctrl-F2)  to  increase  the  choice  of  flux  fields  by  one  position  in  the  ordered 
sequence:  Solar  Direct  Flux,  Solar  Reflected  Flux,  Diffuse  Flux  -  1, 

Diffuse  Flux  -  2,  Diffuse  Flux  -  3,  Diffuse  Flux  -  4,  Diffuse  Flux  -  5, 

Diffuse  Flux  -  6,  Diffuse  Flux  -  7,  Diffuse  Flux  -  8. 

Inc  by  1  Button  has  a  wraparound  effect  such  that  making  this  selection  while 
viewing  Diffuse  Flux  -  8  causes  the  new  flux  field  choice  to  be  Solar  Direct 
Flux. 
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3.3.2 


Cross-Section  Plane  Orientation 


Select  Cross-Section  Plane  Orientation  or  press  o  in  the  Flux  menu  (or,  enter 
Alt-lo  or  FlO-lo)  to  display  a  menu  with  three  options: 

•  X-Plane  Cross-Section 

•  Y-Plane  Cross-Section 

•  Z-Plane  Cross-Section 

3. 3. 2. 1  X-Plane  Cross-Section.  — Select  X-PIane  Cross-Section  or  press  x  in  the  Cross- 
Section  Plane  Orientation  menu  (or,  enter  Alt-lox,  FlO-lox,  or  Ctrl-F3)  to 
cause  the  radiative  flux  field  cross-section  plane  to  be  a  YZ  plane  on  the 
positive  X  axis.  The  position  of  the  YZ  plane  on  the  X  axis  is  dependent  upon 
the  choice  of  Cross-Section  Plane  Value. 

3. 3. 2. 2  Y-Plane  Cross-Section. — Select  Y-Plane  Cross-Section  or  press  y  in  the  Cross- 
Section  Plane  Orientation  menu  (or,  enter  Alt-loy,  FlO-loy,  or  Ctrl-F4)  to 
cause  the  radiative  flux  field  cross-section  plane  to  be  an  XZ  plane  on  the 
positive  Y  axis.  The  position  of  the  XZ  plane  on  the  Y  axis  is  dependent  upon 
the  choice  of  Cross-Section  Plane  Value. 

3. 3. 2. 3  Z-Plane  Cross-Section. — Select  Z-Plane  Cross-Section  or  press  z  in  the  Cross- 
Section  Plane  Orientation  menu  (or,  enter  Alt-loz,  FlO-loz,  or  Ctrl-F5)  to 
cause  the  radiative  flux  field  cross-section  plane  to  be  an  XY  plane  on  the 
positive  Z  axis.  The  position  of  the  XY  plane  on  the  Z  axis  is  dependent  upon 
the  choice  of  Cross-Section  Plane  Value. 

Z-Plane  Cross-Section  is  the  default. 

3.3.3  Cross-Section  Plane  Value  Selection 

Select  Cross-Section  Plane  Value  Selection  or  press  v  in  the  Flux  menu  (or, 
enter  Alt-Iv  or  FlO-lv)  to  display  a  menu  with  an  arbitrary  number  of  options. 
All  options,  except  the  last  two,  are  xx.xxx  km  in  which  the  xx.xxx  is  the  value 
of  one  of  the  minor  grid  line  values  corresponding  to  the  flux  cross-section 
plane  orientation  choice.  The  last  two  options  are  Dec  by  1  Button  and  Inc  by 
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1  Button.  For  example,  minor  grid  lines  every  0.5  km  from  0  to  5  km  would 
give  13  choices  for  this  option:  0.000,  0.500,  1.000,  1.500,  2.000,  2.500,  3.000, 
3.500,  4.000,  4.500,  and  5.000  km,  Dec  by  1  Button,  and  Inc  by  1  Button. 

The  Cross-Section  Plane  Value  Selection  0.0  km  is  the  default  for  all  three 
cross-section  plane  orientations. 

Select  Dec  by  1  Button  in  the  Cross-Section  Plane  Value  Selection  menu  (or, 
enter  Ctrl-F6)  to  decrease  the  flux  cross-section  value  to  the  next  lower  minor 
grid  line  value.  There  is  a  wraparound  effect  such  that,  if  the  cross-section 
value  is  at  its  minimum  value  before  making  this  selection,  it  will  be  at  its 
maximum  value  after  making  this  selection. 

Select  Inc  by  1  Button  in  the  Cross-Section  Plane  Value  Selection  menu  (or, 
enter  Ctrl-F7)  to  increase  the  flux  cross-section  value  to  the  next  higher  minor 
grid  line  value.  There  is  a  wraparound  effect  such  that,  if  the  cross-section 
value  is  at  its  maximum  value  before  making  this  selection,  it  will  be  at  its 
minimum  value  after  making  this  selection. 

3.3.4  Wave  Number  Selection 

Select  Wave  Number  Selection  or  press  w  in  the  Flux  menu  (or,  enter  Alt-lw 
or  FlO-lw)  to  display  a  menu  with  an  arbitrary  number  of  options.  All  options, 
except  the  last  two,  are  xxxx.xxxx  per  cm  in  which  xxxx.xxxx  is  the  value  of 
one  of  the  input  wavenumbers.  The  last  two  options  are  Dec  by  1  Button  and 
Inc  by  1  Button.  For  example,  BLIRB8  spectral  inputs  of  four  subintervals 
between  450  and  1250  per  cm  would  give  seven  choices:  450.0000,  650.0000, 
850.0000,  1050.0000,  and  1250.0000  per  cm,  Dec  by  1  Button,  and  Inc  by  1 
Button. 

The  Wave  Number  Selection  minimum  value  available  is  the  default. 

Select  Dec  by  1  Button  in  the  Wave  Number  Selection  menu  (or,  enter 
Ctrl-F8)  to  decrease  the  wavenumber  value  to  the  next  lower  available  value. 
There  is  a  wraparound  effect  such  that,  if  the  wavenumber  is  at  its  minimum 
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value  before  making  this  selection,  it  will  be  at  its  maximum  value  after  making 
this  selection. 

Select  Inc  by  1  Button  in  the  Wave  Number  Selection  menu  (or,  enter 
Ctrl-F9)  to  increase  the  wavenumber  value  to  the  next  higher  available  value. 
There  is  a  wraparound  effect  such  that,  if  the  wavenumber  is  at  its  maximum 
value  before  making  this  selection,  it  will  be  at  its  minimum  value  after  making 
this  selection. 

3.4  Modify 

Select  Modify  on  the  menubar  display  a  menu  with  1 1  options: 

•  Model  Changes 

•  Region  Selection 

•  Albedo  Area  Selection 

•  Grid  Mesh  Selection 

•  Cloud  Changes 

•  Sun  Changes 

•  Flare  Selection 

•  SearchLight  Selection 

•  Spectral  Range  Changes 

•  Computation  Changes 

•  Output  File  Changes 

(Or,  enter  Alt-m  or  FlO-mto.) 

3.4.1  Model  Changes 

Select  Model  Changes  or  press  m  in  the  Modify  menu  (or  enter  Alt-mm, 
FlO-mm,  or  Shift-F5)  to  display  a  menu  with  two  pushbutton  options,  five 
toggle  button  menus,  and  an  adjustable  scale. 
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The  pushbuttons  are 


•  Finished  with  Selections 

•  Aerosol  Selections 

The  toggle  button  menus  are 

•  Temperature  Profile  Model 

•  Meteorological  Range 

•  Tropospheric  Profile 

•  Albedo 

•  Aerosol  Profile  Printout 

The  adjustable  scale  is  Surface  Temperature  (K). 

Select  Finished  with  Selections  to  terminate  the  Model  Changes  menu. 

The  depressed  toggle  button  in  each  menu  and  the  value  depicted  by  the 
position  of  the  scale  cursor  reflect  the  BLIRB8  model  input  values.  Click  on 
a  different  toggle  button  or  drag  the  scale  cursor  to  a  new  position  to  change 
the  input  values. 

3.4. 1. 1  Aerosol  Selections. — Select  Aerosol  Selections  in  the  Model  Changes  menu  to 

display  a  menu  with  one  pushbutton  and  a  toggle  button  menu  with  12  toggle 
buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  AFGL  Aerosol  Models. 

The  toggle  buttons  are 

•  Default  aerosol 

•  No  aerosols 

•  Rural  aerosol 

•  Urban  aerosol 
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•  Maritime  aerosol 

•  Tropospheric  aerosol 

•  Fog 

•  Soot-like  aerosols 

•  Oceanic  component  of  maritime 

•  Background  stratospheric 

•  Volcanic 

•  Meteoric  dust 

The  depressed  toggle  button  indicates  the  Aerosol  Selection  choice.  Click  on 
a  different  toggle  button  to  change  the  input  value. 

Default  aerosol,  No  aerosols,  Soot-like  aerosols,  Oceanic  component  of 
maritime,  Background  stratospheric,  and  Meteoric  dust  result  in  no  further 
subchoices. 

Select  Rural  aerosol,  Urban  aerosol,  Maritime  aerosol,  Tropospheric 
aerosol,  Fog,  and  Volcanic  to  display  menus  with  suboptions.  Select  Finished 
with  Selections  to  terminate  the  Aerosol  Selections  menu. 

No  Aerosols  is  the  default. 

1.  AFGL  Rural/Urban/Tropospheric  Aerosol  Models.  Select  AFGL 
Rural/Urban/Tropospheric  Aerosol  Models  in  the  AFGL  Aerosol  Models 
menu  to  display  a  menu  with  one  pushbutton  and  a  toggle  button  menu  with 
three  options  (dependent  upon  the  previous  selection)  and  nine  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  menu  options  are 

•  AFGL  Rural  Aerosol  Models 

•  AFGL  Urban  Aerosol  Models 

•  AFGL  Tropospheric  Aerosol  Models 
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The  toggle  buttons  are 

•  General 

•  0  percent  RH 

•  50  percent  RH 

•  70  percent  RH 

•  80  percent  RH 

•  90  percent  RH 

•  95  percent  RH 

•  98  percent  RH 

•  99  percent  RH 

Click  on  a  toggle  button  to  change  the  input  value. 

Select  Finished  with  Selections  to  terminate  the  AFGL  Rural  Aerosol 
Models,  AFGL  Urban  Aerosol  Models,  or  AFGL  Tropospheric  Aerosol 
Models  menus. 

2.  AFGL  Maritime  Aerosol  Models.  Select  AFGL  Maritime  Aerosol  Models 
in  the  AFGL  Aerosol  Models  menu  to  display  a  menu  with  one  pushbutton  and 
a  toggle  button  menu  with  nine  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  AFGL  Maritime  Aerosol  Models. 

The  nine  toggle  buttons  are 

•  75  percent  oceanic 

•  0  percent  RH 

•  50  percent  RH 

•  70  percent  RH 

•  80  percent  RH 

•  90  percent  RH 

•  95  percent  RH 


•  98  percent  RH 

•  99  percent  RH 

Click  on  a  toggle  button  to  change  the  input  value. 

Select  Finished  with  Selections  to  terminate  the  AFGL  Maritime  Aerosol 
Models  menu. 

3.  AFGL  Fog  Models.  Select  AFGL  Fog  Models  in  the  AFGL  Aerosol 
Models  menu  to  display  a  menu  with  one  pushbutton  and  a  toggle  button  menu 
with  four  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  AFGL  Fog  Models. 

The  four  toggle  buttons  are 

•  RRA  Fog  1:  Advection  fog 

•  RRA  Fog  2:  Advection  fog 

•  RRA  Fog  3:  Radiation  fog 

•  RRA  Fog  4:  Radiation  fog 

Click  on  a  toggle  button  to  change  the  input  value. 

Select  Finished  with  Selections  to  terminate  the  AFGL  Fog  Models  menu. 

4.  AFGL  Volcanic  Dust  Models.  Select  AFGL  Volcanic  Dust  Models  in  the 
AFGL  Aerosol  Models  menu  to  display  a  menu  with  one  pushbutton  and  a 
toggle  button  menu  with  two  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  AFGL  Volcanic  Dust  Models. 
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The  two  toggle  buttons  are 


•  Aged 

•  Fresh 

Click  on  a  toggle  button  to  change  the  input  value. 

Select  Finished  with  Selections  to  terminate  the  AFGL  Volcanic  Dust 
Models. 

3.4. 1.2  Temperature  Profile  Model. — Select  Temperature  Profile  Model  in  the  Model 
Changes  menu  to  display  a  toggle  button  menu.  The  toggle  button  menu 
contains  seven  choices: 

•  Tropical  Atmosphere 

•  Midlatitude  Summer 

•  Midlatitude  Winter 

•  Subarctic  Summer 

•  Subarctic  Winter 

•  1976  U.S.  Standard 

•  User  Defined  Temperature  Profile 

The  depressed  toggle  button  indicates  the  Temperature  Profile  Model  choice. 
Click  on  a  different  toggle  button  to  change  the  input  value.  Select  one  of  the 
first  six  choices  to  use  the  corresponding  temperature  profile  from  the  Standard 
Atmosphere  as  the  BLIRB8  temperature  profile  input. 

Select  the  last  option  User  Defined  Temperature  Profile  to  display  a  menu 
containing  one  pushbutton  and  six  adjustable  scales. 

The  pushbutton  is  Finished  with  Selections. 

The  adjustable  scales  are 

•  Temperature  (K)  at  5  km 

•  Temperature  at  4  km 
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•  Temperature  at  3  km 

•  Temperature  at  2  km 

•  Temperature  at  1  km 

•  Temperature  at  0  km 

Drag  the  scale  cursor  to  a  new  position  to  select  a  new  temperature  value  for 
each  of  the  six  altitudes.  After  inputting  all  temperatures,  select  Finished  with 
Selections  to  terminate  the  menu. 

1976  U.S.  Standard  is  the  Temperature  Profile  Model  default. 

3. 4. 1.3  Meteorological  Range. — Select  Meteorological  Range  in  the  Model  Changes 

menu  to  display  a  toggle  button  menu.  The  toggle  button  menu  contains  two 
choices: 

•  Met  Range  <  5  km 

•  Met  Range  <  50  km 

The  depressed  toggle  button  indicates  the  Meteorological  Range  choice.  Click 
on  the  other  toggle  button  to  change  the  input  value.  If  the  meteorological 
range  is  less  than  5  km,  select  the  first  option  to  get  the  best  range  resolution. 
If  the  meteorological  range  is  greater  than  5  km,  select  the  second  option. 

Either  option  displays  a  menu  containing  one  pushbutton  and  an  adjustable 
scale. 

The  pushbutton  is  Finished  with  Selections. 

The  adjustable  scale  is  Meteorological  Range  (km). 

The  Met  Range  <  5  km  meteorological  range  scale  ranges  from  0  to  5  km  in 
increments  of  10  m.  The  Met  Range  <  50  km  meteorological  range  scale 
ranges  from  0  to  50  km  in  increments  of  100  m.  Drag  the  scale  cursor  to  a 
new  position  to  select  a  new  meteorological  range.  After  the  meteorological 
range  is  input,  select  Finished  with  Selections  to  terminate  the  menu. 
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The  Meteorological  Range  40  km  is  the  default. 


3.4. 1.4  Tropospheric  Profile. — Select  Tropospheric  Profile  in  the  Model  Changes 
menu  to  display  a  toggle  button  menu.  The  toggle  button  menu  contains  three 
options: 

•  Set  by  Meteorological  Range 

•  Spring-Summer 

•  Fall- Winter 

The  depressed  toggle  button  indicates  the  Tropospheric  Profile  choice.  Click 
on  a  different  toggle  button  to  change  the  input  value.  This  option  defines  the 
aerosol  profile  above  2  km. 

Set  by  Meteorological  Range  is  the  Tropospheric  Profile  default. 

3.4. 1.5  Albedo. — Select  Albedo  in  the  Model  Changes  menu  to  display  a  toggle  button 
menu.  The  toggle  button  menu  contains  three  options: 

•  Wave  Independent,  User-defined 

•  Wave  Independent,  Tabulated 

•  Spectral 

The  depressed  toggle  button  indicates  the  Albedo  choice.  Click  on  a  different 
toggle  button  to  change  the  input  value.  Changing  the  Albedo  option  displays 
a  menu  with  one  pushbutton  and  a  toggle  button  menu  with  several  toggle 
buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Select  Albedos  for  each  Area. 

There  are  as  many  toggle  buttons  as  there  are  surface  albedo  areas  defined. 
Each  toggle  button  is  labeled  Area  -  #  in  which  #  is  the  ordinal  number  of  the 
area.  You  should  systematically  select  each  toggle  button  to  input  the  albedo 
values  for  the  surface  albedo  areas. 
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After  you  input  the  albedo  for  each  area,  select  Finished  with  Selections  to 
terminate  the  menu. 

1 .  Wave  Independent,  User-Defined.  Select  Wave  Independent,  User-defined 
in  the  Albedo  menu  when  another  option  value  is  selected  and  select  an  area 
toggle  button  to  display  a  menu  with  one  pushbutton  and  an  adjustable  scale. 

The  pushbutton  is  Finished  with  Selections. 

The  adjustable  scale  is  Albedo  Value  for  Area  -  #  in  which  #  is  the  ordinal 
number  of  the  area. 

The  menu  appears  each  time  you  select  a  surface  albedo  area. 

Drag  the  scale  cursor  to  a  new  position  to  select  a  new  albedo  value  between 
0  and  1  for  area  number  #. 

After  you  input  the  albedo,  select  Finished  with  Selections  to  terminate  the 
menu. 

Wave  Independent,  User-defined  is  the  Albedo  default  option  and  background 
albedo  (0.2)  is  the  default  albedo  value  for  each  surface  albedo  area. 

2.  Wave  Independent,  Tabulated.  Select  Wave  Independent,  Tabulated  in 
the  Albedo  menu  when  another  option  value  is  selected  and  select  an  area 
toggle  button  to  display  a  menu  with  one  pushbutton  and  a  menu  with  3 1  toggle 
buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  menu  is  Broad-Band  Albedo  Surfaces  for  Area  -  #,  in  which  #  is  the 
ordinal  number  of  the  area.  The  menu  appears  each  time  you  select  a  surface 
albedo  area. 
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The  3 1  toggle  buttons  are 


•  Default 

•  Dark  soil 

•  Light  soil 

•  Dark-ploughed 

•  Light-ploughed 

•  Clay 

•  Sandy  soil 

•  Sand 

•  White  sand 

•  Asphalt 

•  Lava 

•  Tundra 

•  Steppe 

•  Concrete 

•  Stone 

•  Desert 

•  Rock 

•  Dirt  road 

•  Clay  road 

•  Grass 

•  Mowed  grass 

•  Deciduous 

•  Coniferous 

•  Rice 

•  Beet,  wheat 

•  Potato 

•  Rye 

•  Cotton 

•  Lettuce 

•  Snow 

•  Ice 
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Click  on  a  toggle  button  to  select  the  input  value  if  the  albedo  choice  is  Default 
(background  albedo  =  0.2);  White  sand;  Asphalt;  Lava;  Tundra;  Steppe; 
Concrete;  Stone;  Desert;  Rice;  Beet,  wheat;  Potato;  Rye;  Cotton;  or  Lettuce. 

After  choosing  the  albedo,  select  Finished  with  Selections  to  terminate  the 
menu. 

A.  Soils  and  Roads.  Choose  the  albedo  surface  Dark  soil,  Light  soil, 
Dark-ploughed,  Light-ploughed,  Clay,  Sandy  soil.  Sand,  Rock,  Dirt  road, 
or  Clay  road  in  the  Wave  Independent,  Tabulated  menu  to  display  a  menu 
with  one  pushbutton  and  a  toggle  button  menu. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  contains  the  albedo  choice  and  two  toggle  buttons: 

•  dry 

•  wet 

Click  on  the  corresponding  toggle  button  to  choose  dry  or  wet. 

After  choosing  the  albedo  value,  select  Finished  with  Selections  to  terminate 
the  dry/wet  menu. 

B.  Grass  and  Trees.  Choose  the  albedo  surface  Grass,  Mowed  grass, 
Deciduous,  or  Coniferous  in  the  Wave  Independent,  Tabulated  menu  to 
display  a  menu  with  one  pushbutton  and  a  toggle  button  menu. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  contains  the  albedo  choice  and  three  toggle  buttons: 

•  growing 

•  dormant 

•  unspecified 
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Click  on  the  corresponding  toggle  button  to  choose  growing,  dormant,  or 
unspecified. 

After  choosing  the  albedo  value,  select  Finished  with  Selections  to  terminate 
the  growing/dormant/unspecified  menu. 

C.  Snow.  Choose  the  albedo  surface  Snow  in  the  Wave  Independent, 
Tabulated  menu  to  display  a  menu  with  one  pushbutton  and  a  toggle  button 
menu. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  contains  the  albedo  choice  and  five  toggle  buttons: 

•  fresh 

•  dense 

•  moist 

•  old 

•  melting 

Click  on  the  corresponding  toggle  button  to  choose  the  snow  condition. 

After  choosing  the  albedo  value,  select  Finished  with  Selections  to  terminate 
the  snow  condition  menu. 

D.  Ice.  Choose  the  albedo  surface  Ice  in  the  Wave  Independent,  Tabulated 
menu  to  display  a  menu  with  one  pushbutton  and  a  toggle  button  menu  with  the 
albedo  choice  and  four  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  contains  the  albedo  choice  and  four  toggle  buttons: 

•  white 

•  grey 
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•  snow  and  ice 

•  dark  glass 

Click  on  the  corresponding  toggle  button  to  choose  the  ice  condition. 

After  choosing  the  albedo  value,  select  Finished  with  Selections  to  terminate 
the  ice  condition  menu. 

3.  Spectral.  Select  Spectral  in  the  Albedo  menu  when  another  option  is 
selected,  and  select  an  area  toggle  button  to  display  a  menu  with  one  pushbutton 
and  a  menu. 

The  pushbutton  is  Finished  with  Selections. 

The  menu  is  Spectral  Surface  Albedo  Models  for  Area  -  #,  in  which  #  is  the 
ordinal  number  of  the  area.  The  menu  appears  each  time  you  select  a  surface 
albedo  area. 

The  seven  toggle  buttons  are 

•  Spectral  Model  -  0 

•  Spectral  Model  -  1 

•  Spectral  Model  -  2 

•  Spectral  Model  -  3 

•  Spectral  Model  -  4 

•  Spectral  Model  -  5 

•  Spectral  Model  -  6 

The  albedo  for  each  spectral  model  depends  on  the  wavelength  of  the  radiation 
in  the  0.55-  to  12.0-|am  range.  Spectral  Model  -  0  corresponds  to  the 
background  albedo  value  (0.2)  at  all  wavelengths. 

Click  on  the  corresponding  toggle  button  to  select  the  spectral  albedo  model 
input  value. 
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After  choosing  the  spectral  albedo  model,  select  Finished  with  Selections  to 
terminate  the  spectral  menu. 

3. 4. 1.6  Aerosol  Profile  Printout. — Select  Aerosol  Profile  Printout  in  the  Model 

Changes  menu  to  display  a  toggle  button  menu.  The  toggle  button  menu 
contains  five  choices: 

•  None  > 

•  Ext  Coefs  &  Scale  Factors 

•  Adds  Cross-sections  to  Printout 

•  Adds  Scar  and  Absorption  Coefs 

•  Full  Details 

The  depressed  toggle  button  indicates  the  Aerosol  Profile  Printout  choice. 
Click  on  a  different  toggle  button  to  change  the  input  value. 

Aerosol  Profile  Printout  controls  the  amount  of  detail  contained  in  the  aerosol 
printout,  which  is  different  from  the  binary  and  ASCII  text  BLIRB8  output 
files. 

None  means  the  aerosol  profile  printout  is  suppressed. 

Ext  Coefs  &  Scale  Factors  means  the  aerosol  profile  printout  contains  the 
tables  of  attenuation  coefficients  as  a  function  of  wavelength  for  each  aerosol 
model  and  the  scale  factors  used  by  BLIRB8. 

Adds  Cross-sections  to  Printout  means  the  aerosol  profile  printout  contains 
all  previously  mentioned  aerosol  profile  outputs  and  the  cross-sections 
(cm2/particle)  for  each  aerosol  model. 

Adds  Scar  &  Absorption  Coefs  means  the  aerosol  profile  printout  contains  all 
previously  mentioned  aerosol  profile  outputs  and  the  scattering  and  absorption 
coefficient  tables  as  a  function  of  wavelength. 

Full  Details  means  the  aerosol  profile  printout  contains  all  aerosol  model 
properties. 
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None  is  the  Aerosol  Profile  Printout  default. 


3. 4. 1. 7  Surface  Temperature  (K). — Select  Surface  T emperature  in  the  Model  Changes 

menu  to  display  an  adjustable  scale.  Drag  the  scale  cursor  to  a  new  position  on 
the  adjustable  scale  Surface  Temperature  (K)  to  input  the  surface  temperature. 

The  Surface  Temperature  (K)  288.2  K  is  the  default. 

3.4.2  Region  Selection 

Select  Region  Selection  or  press  r  in  the  Modify  menu  (or,  enter  Alt-mr  or 
FlO-mr)  to  display  a  secondary  menu  with  one  pushbutton  for  each  aerosol 
region  currently  defined  and,  if  the  maximum  number  of  aerosol  regions  has  not 
been  reached,  one  pushbutton  corresponds  to  a  new  region.  All  pushbuttons, 
except  possibly  the  last,  are  in  the  form  BLIRB  Region  -  #  in  which  #  is  the 
ordinal  number  of  the  aerosol  region.  If  it  is  possible  to  create  a  new  aerosol 
region,  the  last  pushbutton  is  Add  New  BLIRB  Region. 

Click  on  the  corresponding  pushbutton  to  select  the  aerosol  region  of  interest. 
Click  outside  the  menu  to  terminate  the  menu. 

Select  BLIRB  Region  -  1  to  display  a  menu  with  four  pushbuttons: 

•  Dimensions 

•  Material  -  1 

•  Material  -  2 

•  Material  -  3 

Select  BLIRB  Region  -  #  in  which  #  is  >  1  to  display  a  menu  with  six 
pushbuttons: 

•  Dimensions 

•  Material  -  1 

•  Material  -  2 

•  Material  -  3 
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•  Location 

•  Delete  Region 

Select  Add  New  BLIRB  Region  to  display  a  menu  with  the  pushbutton 
Dimensions. 

Click  on  the  corresponding  pushbutton  to  select  the  desired  operation.  Click 
outside  the  menu  to  terminate  the  menu. 

One  region  (primary  BLIRB  8  region)  with  dimensions  5  by  4  by  5  km  is  the 
default. 

All  three  materials  are  No  cloud  with  infinite  visibility. 

3.4.2. 1  Dimensions. — Select  Dimensions  or  press  d  in  the  Region  Selection  menu  to 

display  a  menu  with  one  pushbutton  and  three  adjustable  scales. 

The  pushbutton  is  Finished  with  Selections. 

The  adjustable  scales  are 

•  Length  in  X  Direction  (km) 

•  Length  in  Y  Direction  (km) 

•  Length  in  Z  Direction  (km) 

Drag  the  scale  cursor  to  a  new  position  on  the  adjustable  scales  Length  in  X 
Direction  (km),  Length  in  Y  Direction  (km),  and  Length  in  Z  Direction 
(km)  to  input  the  region  dimensions  in  the  X,  Y,  and  Z  directions,  respectively. 

The  values  5,  4,  and  5  are  the  X,  Y,  and  Z  region  dimension  default  values, 
respectively,  of  the  primary  BLIRB 8  region.  0,  0,  and  0  are  the  default 
dimensions  of  any  other  region. 

The  grid  mesh  changes  when  the  corresponding  dimensions  of  the  primary 
BLIRB  8  region  (Region  -  1)  change.  This  noticeably  changes  the  positions  and 
dimensions  of  the  other  aerosol  regions  and  surface  albedo  areas.  Failure  to 
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monitor  these  effects  can  invalidate  some  inputs.  To  be  safe,  you  should  resize 
the  primary  BLIRB8  region  before  adding  other  regions  or  albedo  areas. 

After  inputting  the  three  region  dimensions,  select  Finished  with  Selections  to 
terminate  the  Dimensions  menu. 

If  you  selected  Add  New  BLIRB  Region  before  Dimensions,  Materials  and 
Location  are  automatically  invoked  after  terminating  the  Dimensions  menu. 

3. 4. 2. 2  Materials. — Select  Material  -  1,  Material  -  2,  or  Material  -  3  or  press  1,  2, 

or  3,  respectively,  in  the  Region  Selection  menu  to  display  a  menu  with  one 
pushbutton  and  a  toggle  button  menu  with  16  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Material  #  for  Region  $,  in  which  #  is  1,  2,  or  3 
depending  on  the  material  pushbutton  selected  and  $  is  the  ordinal  number  of 
the  region.  , 

The  16  toggle  buttons  are 

•  LOWTRAN  Default  Cloud 

•  No  Cloud 

•  Rural  Aerosol 

•  Maritime  Aerosol 

•  Urban  Aerosol 

•  Tropospheric  Aerosol 

•  Stratospheric  Aerosol 

•  Volcanic 

•  Meteoric  Dust 

•  Fog 

•  Clouds 

•  Rain 

•  Snow 

•  Desert  Aerosol 
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•  Dust  and  Dirt 

*  Combat  Dust  and  Smoke 

Click  on  the  corresponding  toggle  button  to  select  LOWTRAN  Default  Cloud, 
No  Cloud,  Stratospheric  Aerosol,  Meteoric  Dust,  or  Snow. 

Select  one  of  the  other  material  options  to  display  a  menu  with  a  list  of 
refinement  options.  Aerosol  regions  are  displayed  as  3-D  boxes  with 
transparent  color.  The  color  and  shade  of  color  correspond  to  the  first  material 
specified  for  a  region. 

After  choosing  a  material  for  a  region,  select  Finished  with  Selections  to 
terminate  the  Material  menu  and  display  a  new  menu  with  one  pushbutton  and 
an  adjustable  scale. 

The  pushbutton  is  Finished  with  Selections. 

The  adjustable  scale  is  Aerosol  Component  Vis  (km)  -  Material  #  Region  $ 
in  which  #  is  the  number  of  the  material  (1,  2,  or  3)  and  $  is  the  ordinal 
number  for  the  region. 

Drag  the  scale  cursor  to  a  new  position  to  select  the  horizontal  visibility  within 
the  aerosol.  Select  Finished  with  Selections  to  terminate  the  Aerosol 
Component  Vis  menu  when  the  task  is  accomplished. 

1.  Rural  or  Urban  Aerosols.  Select  Rural  Aerosol  or  Urban  Aerosol  in  the 
Materials  menu  to  display  a  menu  with  one  pushbutton  and  a  toggle  button 
menu  with  12  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Rural  Aerosol  Options  or  Urban  Aerosol  Options, 
depending  upon  whether  Rural  Aerosol  or  Urban  Aerosol  was  selected. 


The  12  toggle  buttons  are 


•  LOWTRAN  0  percent  RH 

•  LOWTRAN  70  percent  RH 

•  LOWTRAN  80  percent  RH 

•  LOWTRAN  99  percent  RH 

•  EOSAEL  0  percent  RH 

•  EOSAEL  50  percent  RH 

•  EOSAEL  70  percent  RH 

•  EOSAEL  80  percent  RH 

•  EOSAEL  90  percent  RH 

•  EOSAEL  95  percent  RH 

•  EOSAEL  98  percent  RH 

•  EOSAEL  99  percent  RH 

LOWTRAN  and  EOSAEL  are  the  two  available  rural  and  urban  aerosol 
characteristic  models. 

Click  on  the  corresponding  toggle  button  to  select  the  desired  rural  or  urban 
aerosol  option. 

After  making  the  selection,  click  on  Finished  with  Selections  to  terminate  the 
menu. 

2.  Maritime  Aerosol.  Select  Maritime  Aerosol  in  the  Materials  menu  to 
display  a  menu  with  one  pushbutton  and  a  toggle  button  menu  with  12  toggle 
buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Maritime  Aerosol. 

The  toggle  buttons  are 

•  LOWTRAN  0  percent  RH 

•  LOWTRAN  70  percent  RH 
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•  LOWTRAN  90  percent  RH 

•  LOWTRAN  99  percent  RH 

•  EOSAEL  0  percent  RH 

•  EOSAEL  50  percent  RH 

•  EOSAEL  70  percent  RH 

•  EOSAEL  80  percent  RH 

•  EOSAEL  90  percent  RH 

•  EOSAEL  95  percent  RH 

•  EOSAEL  98  percent  RH 

•  EOSAEL  99  percent  RH 

LOWTRAN  and  EOSAEL  are  the  two  available  maritime  aerosol  characteristic 
models. 

Click  on  the  corresponding  toggle  button  to  select  the  desired  maritime  aerosol 
option. 

After  making  the  selection,  click  on  Finished  with  Selections  to  terminate  the 
menu. 

3.  Tropospheric  Aerosol.  Select  Tropospheric  Aerosol  in  the  Materials  menu 
to  display  a  menu  with  one  pushbutton  and  a  toggle  button  menu  with  four 
toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Tropospheric  Aerosol  Options. 

The  toggle  buttons  are 

•  LOWTRAN  0  percent 

•  LOWTRAN  70  percent  RH 

•  LOWTRAN  90  percent  RH 

•  LOWTRAN  99  percent  RH 


LOWTRAN  is  the  only  available  tropospheric  aerosol  characteristic  model. 


Click  on  the  corresponding  toggle  button  to  select  the  desired  tropospheric 
aerosol  option. 

After  making  the  selection,  click  on  Finished  with  Selections  to  terminate  the 
menu. 

4.  Volcanic  Aerosol.  Select  Volcanic  in  the  Materials  menu  to  display  a 
menu  with  one  pushbutton  and  a  toggle  button  menu  with  two  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Volcanic  Aerosol  Options. 

The  toggle  buttons  are 

•  LOWTRAN  Aged 

•  LOWTRAN  Fresh 

LOWTRAN  is  the  only  available  volcanic  aerosol  characteristic  model. 

Click  on  the  corresponding  toggle  button  to  select  the  desired  volcanic  aerosol 
option. 

After  making  the  selection,  click  on  Finished  with  Selections  to  terminate  the 
menu. 

5.  Fog  Aerosol.  Select  Fog  in  the  Materials  menu  to  display  a  menu  with  one 
pushbutton  and  a  toggle  button  menu  with  four  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Fog  Aerosol  Options. 
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The  toggle  buttons  are 

•  LOWTRAN  Radiative 

•  LOWTRAN  Advective 

•  EOSAEL  Heavy  Advection 

•  EOSAEL  Moderate  Radiation 

LOWTRAN  and  EOSAEL  are  the  two  available  fog  aerosol  characteristic 
models. 

Click  on  the  corresponding  toggle  button  to  select  the  desired  fog  aerosol 
option. 

After  making  the  selection,  click  on  Finished  with  Selections  to  terminate  the 
menu. 

6.  Clouds.  Select  Clouds  in  the  Materials  menu  to  display  a  menu  with  one 
pushbutton  and  a  toggle  button  menu  with  1 0  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Cloud  Options. 

The  toggle  buttons  are 

•  Deirmendjian  Model  C 

•  LOWTRAN  Cumulus 

•  LOWTRAN  Altostratus 

•  LOWTRAN  Stratus 

•  LOWTRAN  Stratus/Strato 

•  LOWTRAN  Nimbostratus 

•  LOWTRAN  Standard  Cirrus 

•  LOWTRAN  Subvisual  Cirrus 

•  EOSAEL  Fairweather  Cumulus 

•  EOSAEL  Cumulus  Congestus 


LOWTRAN  and  EOSAEL  are  the  two  available  cloud  characteristic  models. 


Click  on  the  corresponding  toggle  button  to  select  the  desired  cloud  option. 

After  making  the  selection,  click  on  Finished  with  Selections  to  terminate  the 
menu. 

7.  Rain.  Select  Rain  in  the  Materials  menu  to  display  a  menu  with  one 
pushbutton  and  a  toggle  button  menu  with  three  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Rain  Options. 

The  toggle  buttons  are 

•  EOSAEL  Drizzle 

•  EOSAEL  Widespread 

•  EOSAEL  Thunderstorm 

EOSAEL  is  the  only  available  rain  characteristic  model. 

Click  on  the  corresponding  toggle  button  to  select  the  desired  rain  option. 

After  making  the  selection,  click  on  Finished  with  Selections  to  terminate  the 
menu. 

8.  Desert  Aerosol.  Select  Desert  Aerosol  in  the  Materials  menu  to  display  a 
menu  with  one  pushbutton  and  a  toggle  button  menu  with  four  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Desert  Aerosol  Options. 
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The  toggle  buttons  are 


•  LOWTRAN  Wind  0  mps 

•  LOWTRAN  Wind  10  mps 

•  LOWTRAN  Wind  20  mps 

•  LOWTRAN  Wind  30  mps 

LOWTRAN  is  the  only  available  desert  aerosol  characteristic  model. 

Click  on  the  corresponding  toggle  button  to  select  the  desired  desert  aerosol 
option. 

After  making  the  selection,  click  on  Finished  with  Selections  to  terminate  the 
menu. 

9.  Dust  and  Dirt.  Select  Dust  and  Dirt  in  the  Materials  menu  to  display  a 
menu  with  one  pushbutton  and  a  toggle  button  menu  with  three  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Dust  and  Dirt  Options. 

The  toggle  buttons  are 

•  Dirt 

•  EOSAEL  Dust  Light  Loading 

•  EOSAEL  Dust  Heavy  Loading 

EOSAEL  is  the  only  available  dust  characteristic  model. 

Click  on  the  corresponding  toggle  button  to  select  the  desired  dust  and  dirt 
option. 

After  making  the  selection,  click  on  Finished  with  Selections  to  terminate  the 


menu. 


10.  Combat  Dust  and  Smoke.  Select  Combat  Dust  and  Smoke  in  the 
Materials  menu  to  display  a  menu  with  one  pushbutton  and  a  toggle  button 
menu  with  six  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Combat  Dust  and  Smoke  Options. 

The  toggle  buttons  are 

•  EOSAEL  High  Explosive  Dust 

•  EOSAEL  WP  Smoke  17  percent  RH 

•  EOSAEL  WP  Smoke  50  percent  RH 

•  EOSAEL  WP  Smoke  90  percent  RH 

•  EOSAEL  Fog  Oil 

•  EOSAEL  HC  Smoke  85  percent  RH 

EOSAEL  is  the  only  available  combat  dust  and  smoke  characteristic  model. 

Click  on  the  corresponding  toggle  button  to  select  the  desired  combat  dust  and 
smoke  option. 

After  making  the  selection,  click  on  Finished  with  Selections  to  terminate  the 
menu. 

3.4.2. 3  Location. — Select  Location  or  press  1  in  the  Region  Selection  menu  to  cause 
the  display  to  snap  to  a  view  downward  from  the  positive  Z  axis.  Transparent 
red  with  a  red  lettered  prompt  below  the  projection  stating  Move  Region 
depicts  the  projection  of  the  region  of  interest  onto  the  XY  plane.  Drag  the 
cursor  to  change  the  position  of  the  region  of  interest  in  the  XY  plane.  When 
you  release  the  mouse  button  the  display  snaps  to  a  view  toward  the  BLIRB8 
space  from  the  negative  Y  axis.  Transparent  red  with  a  red  lettered  prompt 
below  the  projection  stating  Move  Region  depicts  the  projection  of  the  region 
of  interest  onto  the  XZ  plane.  Drag  the  cursor  to  change  the  position  of  the 
region  of  interest  in  the  XZ  plane.  After  you  release  the  mouse  button,  the 
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display  snaps  back  to  the  original  view,  but  the  region  of  interest  will  be  in  a 
new  position. 

The  origin  of  the  BLIRB8  space  is  the  default  position  of  a  newly  created 
region.  It  must  be  repositioned. 

3. 4. 2. 4  Delete  Region. — Select  Delete  Region  or  press  r  in  the  Region  Selection  menu 

to  remove  the  region  of  interest  and  its  associated  materials  from  all  inputs  and 
the  display. 

3.4.3  Albedo  Area  Selection 

Select  Albedo  Area  Selection  or  press  a  in  the  Modify  menu  (or,  enter  Alt-ma 
or  FlO-ma)  to  display  a  menu  with  one  pushbutton  for  each  defined  surface 
albedo  area  and  one  pushbutton  corresponding  to  a  new  area  if  the  maximum 
number  of  albedo  areas  has  not  been  reached.  All  pushbuttons,  except  possibly 
the  last,  are  Albedo  Area  -  #  in  which  #  is  the  ordinal  number  of  the  albedo 
area.  If  it  is  possible  to  create  a  new  albedo  area,  the  last  pushbutton  is  Add 
New  Albedo  Area. 

Click  on  the  corresponding  pushbutton  to  select  the  albedo  area  of  interest. 
Click  outside  the  menu  to  terminate  the  menu. 

Select  Albedo  Area  -  1  to  display  a  menu  with  one  pushbutton  Albedo. 

1.  Select  Albedo  Area  -  #,  in  which  #  is  greater  than  1,  to  display  a  menu 
with  four  pushbuttons. 

The  pushbuttons  are 

•  Dimensions 

•  Albedo 

•  Location 

•  Delete  Area 
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2.  Select  Add  New  Albedo  Area  to  display  a  menu  with  one  pushbutton. 


The  pushbutton  is  Dimensions. 

Click  on  the  corresponding  pushbutton  to  select  the  desired  operation  for  the 
albedo  area  of  interest.  Click  outside  the  menu  to  terminate  the  menu. 

One  albedo  area  (Z  =  0  plane  of  the  primary  BLIRB8  region)  with  dimensions 
5  by  4  km  is  the  default.  The  background  albedo  (0.2)  is  the  default  albedo. 

i 

3.4.3. 1  Dimensions. — Select  Dimensions  or  press  d  in  the  Albedo  Area  Selection 

menu  to  display  a  menu  with  one  pushbutton  and  two  adjustable  scales. 

The  pushbutton  is  Finished  with  Selections. 

The  adjustable  scales  are 

•  Length  in  X  Direction  (km) 

•  Length  in  Y  Direction  (km) 

Drag  the  Length  in  X  Direction  (km)  scale  cursor  to  a  new  position  to  input 
the  albedo  area  dimension  in  the  X  direction.  Drag  the  Length  in 
Y  Direction  (km)  scale  cursor  to  a  new  position  to  input  the  albedo  area 
dimension  in  the  Y  direction.  The  values  (5,  4)  of  the  (X,  Y)  dimensions  of  the 
primary  BLIRB8  albedo  area  are  the  default  values.  The  values  (0,  0)  of  the 
(X,  Y)  dimensions  of  any  other  albedo  area  are  the  default  dimensions. 

The  dimensions  of  the  primary  BLIRB8  albedo  area  change  to  cover  the  entire 
XY  projection  of  Region  -  1  onto  the  Z  =  0  plane  when  you  change  the 
dimensions  of  the  primary  BLIRB8  region  (Region  -  1). 

After  inputting  both  albedo  area  dimensions,  select  Finished  with  Selections 
to  terminate  the  Dimensions  menu. 

If  you  selected  Add  New  Albedo  Area  before  Dimensions,  Albedo  and 
Location  are  automatically  invoked  after  you  terminate  the  Dimensions  menu. 
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3. 4. 3. 2  Albedo. — Select  Albedo  or  press  b  in  the  Albedo  Area  Selection  menu  to  get 

one  of  three  results,  depending  upon  the  type  of  albedo  selected  in  Model 
Changes: 

•  Wave  Independent,  User-defined 

•  Wave  Independent,  Tabulated 

•  Spectral 

The  albedo  areas  are  displayed  as  XY-plane  rectangles  in  shades  of  green.  The 
darker  the  green,  the  higher  the  albedo. 

1.  Wave  Independent,  User-Defined.  If  the  albedo  type  is  Wave  Independent, 
User-defined,  a  menu  with  one  pushbutton  and  an  adjustable  scale  is  displayed. 

The  pushbutton  is  Finished  with  Selections. 

The  adjustable  scale  is  Albedo  Value  for  Area  -  #,  in  which  #  is  the  ordinal 
number  of  the  area  of  interest. 

Select  the  adjustable  scale.  Drag  the  scale  cursor  to  a  new  position  to  select  a 
new  albedo  value  between  0  and  1  for  area  number  #. 

After  inputting  the  albedo,  select  Finished  with  Selections  to  terminate  the 
menu. 

Wave  Independent,  User-defined  is  the  Albedo  default,  and  the  background 
albedo  (0.2)  for  each  surface  albedo  area  is  the  albedo  value  default. 

2.  Wave  Independent,  Tabulated.  If  the  albedo  type  is  Wave  Independent, 
Tabulated,  a  menu  with  one  pushbutton  and  a  menu  with  31  toggle  buttons  is 
displayed. 

The  pushbutton  is  Finished  with  Selections. 

The  menu  is  Broad-Band  Albedo  Surfaces  for  Area  -  #,  in  which  #  is  the 
ordinal  number  of  the  area. 
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The  toggle  buttons  are 


•  Default 
Dark  soil 
Light  soil 
Dark-ploughed 
Light-ploughed 
Clay 

Sandy  soil 
Sand 

White  sand 

Asphalt 

Lava 

Tundra 

Steppe 

Concrete 

Stone 

Desert 

Rock 

Dirt  road 

Clay  road 

Grass 

Mowed  grass 
Deciduous 
Coniferous 
Rice 

Beet,  wheat 

Potato 

Rye 

Cotton 

Lettuce 

Snow 

Ice 


Click  the  corresponding  toggle  button  to  choose  Default  (background 
albedo  =  0.2);  White  sand;  Asphalt;  Lava;  Tundra;  Steppe;  Concrete;  Stone; 
Desert;  Rice;  Beet,  wheat;  Potato;  Rye;  Cotton;  or  Lettuce. 

After  choosing  the  albedo  value,  select  Finished  with  Selections  to  terminate 
the  menu. 

A.  Soils  and  Roads.  Choose  Dark  soil,  Light  soil,  Dark-ploughed,  Light- 
ploughed,  Clay,  Sandy  soil,  Sand,  Rock,  Dirt  road,  or  Clay  road  in  the 
Broad-Band  Albedo  Surfaces  for  Area  -  #  menu  to  display  a  menu  with  one 
pushbutton,  a  toggle  button  menu,  and  two  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  contains  the  albedo  choice. 

The  toggle  buttons  are 

•  dry 

•  wet 

Click  on  the  corresponding  toggle  button  to  choose  dry  or  wet. 

After  choosing  the  albedo  value,  select  Finished  with  Selections  to  terminate 
the  dry/wet  menu. 

B.  Grass  and  Trees.  Choose  Grass,  Mowed  grass,  Deciduous,  or  Coniferous 
in  the  Broad-Band  Albedo  Surfaces  for  Area  -  #  menu  to  display  a  menu 
with  one  pushbutton,  a  toggle  button  menu,  and  three  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 


The  toggle  button  menu  contains  the  albedo  choice. 


The  toggle  buttons  are 


•  growing 

•  dormant 

•  unspecified 

Click  on  the  corresponding  toggle  button  to  choose  growing,  dormant,  or 
unspecified. 

After  choosing  the  albedo  value,  select  Finished  with  Selections  to  terminate 
the  growing/dormant/unspecified  menu. 

C.  Snow.  Choose  Snow  in  the  Broad-Band  Albedo  Surfaces  for  Area  -  # 
menu  to  display  a  menu  with  one  pushbutton  and  a  toggle  button  menu  with  the 
albedo  choice  and  five  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections 

The  toggle  button  menu  contains  the  albedo  choice. 

The  toggle  buttons  are 

•  fresh 

•  dense 

•  moist 

•  old 

•  melting 

Click  on  the  corresponding  toggle  button  to  choose  the  snow  condition. 

After  choosing  the  albedo  value,  select  Finished  with  Selections  to  terminate 
the  snow  condition  menu. 

D.  Ice.  Choose  Ice  in  the  Broad-Band  Albedo  Surfaces  for  Area  -  #  menu 
to  display  a  menu  with  one  pushbutton  and  a  toggle  button  menu  with  the 
albedo  and  four  toggle  buttons. 
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The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  contains  the  albedo  choice. 

The  toggle  buttons  are 

•  white 

•  grey 

•  snow  and  ice 

•  dark  glass 

Click  on  the  corresponding  toggle  button  to  choose  the  ice  condition. 

After  choosing  the  albedo  value,  select  Finished  with  Selections  to  terminate 
the  ice  condition  menu. 

3.  Spectral.  If  the  current  albedo  type  is  Spectral,  a  menu  with  one 
pushbutton  and  a  menu  with  seven  toggle  buttons  is  displayed. 

The  pushbutton  is  Finished  with  Selections. 

The  menu  is  Spectral  Surface  Albedo  Models  for  Area  -  #,  in  which  #  is  the 
ordinal  number  of  the  area  of  interest. 

The  toggle  buttons  are 

•  Spectral  Model  -  0 

•  Spectral  Model  -  1 

•  Spectral  Model  -  2 

•  Spectral  Model  -  3 

•  Spectral  Model  -  4 

•  Spectral  Model  -  5 

•  Spectral  Model  -  6 


Each  spectral  model  albedo  depends  on  the  wavelength  of  the  radiation  in  the 
0.55-  to  12.0-pm  range.  Spectral  Model  -  0  corresponds  to  the  background 
albedo  value  (0.2)  at  all  wavelengths. 

Click  on  the  corresponding  toggle  button  to  select  the  spectral  albedo  model 
input  value. 

After  choosing  the  spectral  albedo  model,  select  Finished  with  Selections  to 
terminate  the  spectral  menu. 

3.4. 3. 3  Location. — Select  Location  or  press  1  in  the  Albedo  Area  Selection  menu  to 
snap  the  display  to  a  view  downward  from  the  positive  Z  axis.  Red  with  a  red 
lettered  prompt  below  the  area  stating  Move  Area  depicts  the  albedo  area  of 
interest.  Drag  the  cursor  to  change  the  position  of  the  albedo  area  of  interest 
in  the  XY  plane.  After  you  release  the  left  mouse  button,  the  display  snaps 
back  to  the  original  view,  but  the  albedo  area  of  interest  is  in  a  new  position. 

The  origin  of  the  BLIRB8  space  is  the  default  position  of  a  newly  created 
albedo  area.  It  must  be  repositioned. 

3. 4. 3. 4  Delete  Area. — Select  Delete  Area  or  press  a  in  the  Albedo  Area  Selection 
menu  to  remove  the  albedo  area  of  interest  and  its  associated  albedo  from  all 
inputs  and  the  display. 

3.4.4  Grid  Mesh  Selection 

Select  Grid  Mesh  Selection  or  press  g  in  the  Modify  menu  (or,  enter  Alt-mg 
or  FlO-mg)  to  display  a  menu  with  three  pushbuttons: 

•  X  Grid  Mesh 

•  Y  Grid  Mesh 

•  Z  Grid  Mesh 

Click  on  the  corresponding  pushbutton  or  enter  Shift-F6,  Shift-F7,  or  Shift-F8 
to  select  the  axis  of  interest.  Click  outside  the  menu  to  terminate  the  menu. 
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3.4.4. 1  X  Grid  Mesh. — Select  X  Grid  Mesh  to  display  a  menu  with  one  pushbutton  and 

two  columns  of  adjustable  scales. 

The  pushbutton  is  Finished  with  Selections. 

The  two  columns  contain  two  or  more  adjustable  scales  each. 

All  the  scales  in  the  left  column,  except  possibly  the  last,  are  End  of  X  Mesh 
#  Interval  (km)  in  which  #  is  the  ordinal  number  of  a  minor  grid  interval.  If 
the  number  of  X  mesh  intervals  is  less  than  the  maximum  allowed,  the  last 
scale  is  End  of  New  X  Mesh  Interval  (km).  The  scales  in  the  right  column 
are  Num  Subintervals.  The  right  column  contains  one  scale  for  each  scale  in 
the  left  column.  The  maximum  allowable  total  number  of  subintervals  for  all 
intervals  combined  is  depicted  above  the  right  column  of  scales  as  Total  <  = 
4  0  in  which  40  is  the  number. 

The  origin  of  the  BLIRB8  space  (0.0  km)  is  the  start  point  of  the  first  X  mesh 
interval.  The  start  point  of  each  X  mesh  interval,  after  the  first,  is  the  end  point 
of  the  previous  X  mesh  interval.  Adjust  the  interval  end  points  to  modify  X 
mesh  intervals  of  interest.  Adjust  the  number  of  subintervals  within  the 
adjusted  intervals  to  prevent  the  inadvertent  modification  of  the  BLIRB8 
regions  and  albedo  areas  within  these  intervals. 

Adding  a  new  X  mesh  interval  is  the  same  as  subdividing  a  current  X  mesh 
interval  and  making  the  adjustments  necessary  to  fit  the  users  model 
requirements.  Adjust  the  interval  end  points  so  the  last  scale  in  the  left  column 
depicts  the  greatest  end  point  value  to  add  the  new  X  mesh  interval.  You  must 
also  change  the  corresponding  Num  Subintervals  scales  in  the  right  column. 
Alternately,  consider  the  last  scale  in  the  left  column  as  out-of-sequence  relative 
to  the  other  interval  end  point  scales,  and  add  the  desired  interval  end  point  and 
the  corresponding  number  of  subintervals.  The  software  inserts  the  scale  in  the 
proper  sequence  after  you  exit  the  menu.  Examine  all  previous  intervals  to 
determine  the  start  point  of  the  new  interval. 

After  entering  the  interval  data,  select  Finished  with  Selections  to  terminate 
the  menu. 
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One  end  point  of  5.0  km  and  10  subintervals  are  the  default  initial  values  for 
the  X  grid  mesh  intervals  making  the  X  grid  mesh  spacing  0.5  km. 

3. 4. 4. 2  Y  Grid  Mesh. — Select  Y  Grid  Mesh  to  display  a  menu  with  one  pushbutton  and 

two  columns  of  adjustable  scales. 

The  pushbutton  is  Finished  with  Selections. 

The  two  columns  contain  two  or  more  adjustable  scales  each. 

All  the  scales  in  the  left  column,  except  possibly  the  last,  are  End  of  Y  Mesh 
#  Interval  (km)  in  which  #  is  the  ordinal  number  of  a  minor  grid  interval.  If 
the  number  of  Y  mesh  intervals  is  less  than  the  maximum  allowed,  the  last 
scale  is  End  of  New  Y  Mesh  Interval  (km).  The  scales  in  the  right  column 
are  Num  Subintervals.  The  right  column  contains  one  scale  for  each  scale  in 
the  left  column.  The  maximum  allowable  total  number  of  subintervals  for  all 
intervals  combined  is  depicted  above  the  right  column  of  scales  as  Total  <  = 
4  0  where  40  would  be  that  number. 

The  origin  of  the  BLIRB8  space  (0.0  km)  is  the  start  point  of  the  first  Y  mesh 
interval.  The  start  point  of  each  Y  mesh  interval,  after  the  first,  is  the  end  point 
of  the  previous  Y  mesh  interval.  Adjust  the  interval  end  points  to  modify  Y 
mesh  intervals  of  interest.  Adjust  the  number  of  subintervals  within  the 
adjusted  intervals  to  prevent  the  inadvertent  modification  of  BLIRB8  regions 
and  albedo  areas  within  these  intervals. 

Adding  a  new  Y  mesh  interval  is  the  same  as  subdividing  a  current  Y  mesh 
interval  and  making  the  adjustments  necessary  to  fit  the  users  model 
requirements.  Adjust  the  interval  end  points  so  the  last  scale  in  the  left  column 
depicts  the  greatest  end  point  value  to  add  the  new  Y  mesh  interval.  You  must 
also  change  the  corresponding  Num  Subintervals  scales  in  the  right  column. 
Alternately,  consider  the  last  scale  in  the  left  column  as  out-of-sequence  relative 
to  the  other  interval  end  point  scales,  and  add  the  desired  interval  end  point  and 
the  corresponding  number  of  subintervals.  The  software  inserts  the  scale  in  the 
proper  sequence  after  you  exit  the  menu.  Examine  all  previous  intervals  to 
determine  the  start  point  of  the  new  interval. 
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After  entering  the  interval  data,  select  Finished  with  Selections  to  terminate 
the  menu. 

One  end  point  of  4.0  km  and  8  subintervals  are  the  default  initial  values  for  the 
Y  grid  mesh  intervals  making  the  Y  grid  mesh  spacing  0.5  km. 

3. 4.4.3  Z  Grid  Mesh. — Select  Z  Grid  Mesh  to  display  a  menu  with  one  pushbutton  and 

two  columns  of  adjustable  scales. 

The  pushbutton  is  Finished  with  Selections. 

The  two  columns  contain  two  or  more  adjustable  scales  each. 

All  the  scales  in  the  left  column,  except  possibly  the  last,  are  End  of  Z  Mesh 
#  Interval  (km)  in  which  #  is  the  ordinal  number  of  a  minor  grid  interval.  If 
the  number  of  Z  mesh  intervals  is  less  than  the  maximum  allowed,  the  last  scale 
is  End  of  New  Z  Mesh  Interval  (km).  The  scales  in  the  right  column  are 
Num  Subintervals.  The  right  column  contains  one  scale  for  each  scale  in  the 
left  column.  The  maximum  allowable  total  number  of  subintervals  for  all 
intervals  combined  is  depicted  above  the  right  column  of  scales  as  Total  <  = 
4  0  in  which  40  is  the  number. 

The  origin  of  the  BLIRB8  space  (0.0  km)  is  the  start  point  of  the  first  Z  mesh 
interval.  The  start  point  of  each  Z  mesh  interval,  after  the  first,  is  the  end  point 
of  the  previous  Z  mesh  interval.  Adjust  the  interval  end  points  to  modify  Z 
mesh  intervals  of  interest.  Adjust  the  number  of  subintervals  within  the 
adjusted  intervals  to  prevent  the  inadvertent  modification  of  the  BLIRB8 
regions  and  albedo  areas  within  these  intervals. 

Adding  a  new  Z  mesh  interval  is  the  same  as  subdividing  a  current  Z  mesh 
interval  and  making  the  adjustments  necessary  to  fit  the  users  model 
requirements.  Adjust  the  interval  end  points  so  the  last  scale  in  the  left  column 
depicts  the  greatest  end  point  value  to  add  the  new  Z  mesh  interval.  You  must 
also  change  the  corresponding  Num  Subintervals  scales  in  the  right  column. 
Alternately,  consider  the  last  scale  in  the  left  column  as  out-of-sequence  relative 
to  the  other  interval  end  point  scales,  and  add  the  desired  interval  end  point  and 


58 


the  corresponding  number  of  subintervals.  The  software  inserts  the  scale  in  the 
proper  sequence  after  you  exit  the  menu.  Examine  all  previous  intervals  to 
determine  the  start  point  of  the  new  interval. 

After  entering  the  interval  data,  select  Finished  with  Selections  to  terminate 
the  menu. 

One  end  point  of  5.0  km  and  10  subintervals  are  the  default  initial  values  for 
the  Z  grid  mesh  intervals  making  the  Z  grid  mesh  spacing  0.5  km. 

3.4.5  Cloud  Changes 

Select  Cloud  Changes  or  press  c  in  the  Modify  menu  (or,  enter  Alt-mc, 
FlO-mc,  or  Shift-F9)  to  display  a  menu  with  one  pushbutton,  two  toggle  button 
menus,  and  one  adjustable  scale  Wind  Speed  (mps). 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menus  are 

•  Cloud  Structure 

•  Aerosol  Outside  Physical  Region 

The  adjustable  scale  is  Wind  Speed  (mps). 

After  entering  the  Cloud  Changes  input  data,  select  Finished  with  Selections 
to  terminate  the  menu. 

3.4.5. 1  Cloud  Structure. — Select  Cloud  Structure  in  the  Cloud  Changes  menu  to 
display  a  toggle  button  menu.  The  toggle  button  menu  contains  three  choices: 

•  No  Cloud 

•  Rectangular  Structure 

•  CSS  Model 
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The  depressed  toggle  button  indicates  the  selected  Cloud  Structure.  Click  on 
a  different  toggle  button  to  change  the  input  value. 

No  Cloud  means  the  BLIRB8  region  contains  no  cloud. 

Rectangular  Structure  means  the  cloud  aerosols  (up  to  three  different  aerosols 
or  densities)  are  uniformly  distributed  over  each  of  the  BLIRB8  aerosol  regions. 

CSS  Model  means  the  Cloud  Scene  Simulation  prototype  model  developed  by 
TASC  is  used  for  the  entire  BLIRB8  space. 

No  Cloud  is  the  default  Cloud  Structure  option. 

3. 4. 5. 2  Aerosol  Outside  Physical  Region. — Select  Aerosol  Outside  Physical  Region  in 
the  Cloud  Changes  menu  to  display  a  toggle  button  menu.  The  toggle  button 
menu  contains  two  choices: 

•  Background  Aerosol 

•  Periodic  Boundary  Conditions 

The  depressed  toggle  button  indicates  the  selected  Aerosol  Outside  Physical 
Region.  Click  on  a  different  toggle  button  to  change  the  input  value. 

Background  Aerosol  means  BLIRB8  uses  a  uniform  aerosol  distribution 
outside  the  primary  BLIRB8  region  that  is  equal  to  the  background  aerosol. 
Periodic  Boundary  Conditions  means  BLIRB8  replicates  the  BLIRB8  space 
in  all  directions  around  and  outside  the  BLIRB8  space. 

Periodic  Boundary  Regions  is  the  default  Aerosol  Outside  Physical  Region 
option. 

3. 4. 5. 3  Wind  Speed  (mps). — Select  Wind  Speed  (mps)  in  the  Cloud  Changes  menu 
to  display  an  adjustable  scale.  Drag  the  scale  cursor  to  a  new  position  to  input 
the  surface  wind  speed  using  the  adjustable  scale  Wind  Speed  (mps).  The 
default  wind  speed  is  0.0  mps. 
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3.4.6 


Sun  Changes 


Select  Sun  Changes  or  press  s  in  the  Modify  menu  (or,  enter  Alt-ms,  FlO-ms, 
or  Shift-FlO)  to  display  a  menu  with  one  pushbutton,  three  toggle  button 
menus,  and  two  adjustable  scales. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menus  are 

•  Solar  Flux  and  Sky  Radiance  at  5  km 

•  Sky  Radiance  Input 

•  Spectral  Molecular  Transmission 

The  adjustable  scales  are 

•  Solar  Zenith  Angle  (deg) 

•  Solar  Azimuth  Angle  (deg) 

After  entering  the  Sun  Changes  input  data,  select  Finished  with  Selections  to 
terminate  the  menu. 

3.4.6. 1  Solar  Flux  and  Sky  Radiance  at  5  km. — Select  Solar  Flux  and  Sky  Radiance 
at  5  km  in  the  Sun  Changes  menu  to  display  a  toggle  button  menu.  The 
toggle  button  menu  contains  two  choices: 

•  Parameterized 

•  LOWTRAN 

The  depressed  toggle  button  indicates  the  selected  Solar  Flux  and  Sky 
Radiance  5  km.  Click  on  a  different  toggle  button  to  change  the  input  value. 

LOWTRAN  is  the  default  option. 
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3. 4. 6.2  Sky  Radiance  Input. — Select  Sky  Radiance  Input  in  the  Sun  Changes  menu 
to  display  a  toggle  button  menu.  The  toggle  button  menu  contains  two  toggle 
buttons: 

•  No 

•  Yes 

The  depressed  toggle  button  indicates  the  selected  Sky  Radiance  Input.  Click 
on  the  corresponding  toggle  button  to  change  the  input  value. 

No  is  the  default  option. 

3.4.6. 3  Spectral  Molecular  Transmission. — Select  Spectral  Molecular  Transmission 
in  the  Sun  Changes  menu  to  display  a  toggle  button  menu.  The  toggle  button 
menu  contains  two  choices: 

•  No 

•  Yes 

The  depressed  toggle  button  indicates  the  selected  Spectral  Molecular 
Transmission.  Click  on  a  different  toggle  button  to  change  the  input  value. 

No  is  the  default  option. 

3. 4. 6.4  Solar  Zenith  Angle  (deg). — Select  Solar  Zenith  Angle  (deg)  in  the  Sun 
Changes  menu  to  display  an  adjustable  scale.  Drag  the  scale  cursor  to  a  new 
position  on  the  Solar  Zenith  Angle  (deg)  adjustable  scale  to  input  the  solar 
zenith  angle. 

The  Solar  Zenith  Angle  (deg)  0.0°  is  the  default. 

3. 4. 6. 5  Solar  Azimuth  Angle  (deg). — Select  Solar  Azimuth  Angle  (deg)  in  the  Sun 
Changes  menu  to  display  an  adjustable  scale.  Drag  the  scale  cursor  to  a  new 
position  on  the  Solar  Azimuth  Angle  (deg)  adjustable  scale  to  input  the  solar 
azimuth  angle.  The  solar  azimuth  angle  0.0°  is  the  default. 
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3.4. 7  Flare  Selection 


Select  Flare  Selection  or  press  f  in  the  Modify  menu  (or,  enter  Alt-mf  or 
FlO-mf)  to  display  a  menu  with  one  pushbutton  for  each  defined  flare  and,  if 
the  maximum  number  of  flares  is  not  reached,  one  pushbutton  corresponding 
to  a  new  flare. 

All  pushbuttons,  except  possibly  the  last,  are  Flare  -  #  in  which  #  is  the  ordinal 
number  of  the  flare.  The  last  pushbutton  is  Add  New  Flare  if  it  is  possible  to 
create  a  new  flare. 

Click  on  the  corresponding  toggle  button  to  select  the  flare  of  interest.  Click 
outside  the  menu  to  terminate  the  menu.  The  default  input  contains  no  flare. 

Select  Flare  -  #  in  which  #  is  a  number  to  display  a  menu  with  three 
pushbuttons  Parameter  Options,  Location,  and  Delete  Flare. 

Select  Add  New  Flare  to  display  a  menu  to  with  one  pushbutton  Parameter 
Options. 

Click  on  the  corresponding  pushbutton  to  select  the  desired  operation  for  the 
flare  of  interest.  Click  outside  the  menu  to  terminate  the  menu. 

3.4.7. 1  Parameter  Options. — Select  Parameter  Options  or  press  p  in  the  Flare 
Selection  menu  to  display  a  menu  to  with  one  pushbutton,  one  toggle  button 
menu,  and  two  adjustable  scales. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Flare  Type 

The  adjustable  scales  are 

•  Flare  Intensity  (watts) 

•  Flare  Temperature  (K) 
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After  entering  the  Parameter  Options  input  data,  select  Finished  with 
Selections  to  terminate  the  menu.  If  Add  New  Flare  option  is  selected, 
Location  is  invoked  after  you  select  Finished  with  Selections. 

1 .  Flare  Type.  Select  Flare  Type  in  the  Parameter  Options  menu  to  display 
a  toggle  button  menu.  The  toggle  button  menu  contains  three  choices: 

•  Isotropic 

•  10  percent  Up  &  90  percent  Down 

•  User  Defined 

The  depressed  toggle  button  indicates  the  input  value.  Click  on  a  different 
toggle  button  to  change  the  input  value. 

Selecting  Isotropic  means  the  flare  energy  radiates  uniformly  in  all  directions. 
Selecting  10  percent  Up  &  90  percent  Down  means  that  10  percent  of  the 
flare  energy  radiates  uniformly  in  all  directions  above  the  flare  and  90  percent 
of  the  energy  radiates  uniformly  in  all  directions  below  the  flare. 

Select  User  Defined  in  the  Flare  Type  menu  to  display  another  menu  with  one 
pushbutton  and  eight  adjustable  scales. 

The  pushbutton  is  Finished  with  Selections. 

Four  of  the  adjustable  scales  are  Fraction  of  Energy  in  Up  Direction  #. 

Four  of  the  adjustable  scales  are  Fraction  of  Energy  in  Down  Direction  #. 

In  both  cases,  #  ranges  from  1  to  4  indicating  the  octant  of  interest. 

Drag  the  scale  cursors  to  a  new  position  along  the  adjustable  scales  to  input  the 
fraction  of  flare  energy  for  each  octant.  If  the  sum  of  the  fractions  of  flare 
energy  do  not  total  unity,  the  software  normalizes  the  fractions  so  the  new  total 
is  unity. 


After  entering  the  energy  fractions,  select  Finished  with  Selections  to  terminate 
the  User  Defined  menu. 

2.  Flare  Intensity  (watts).  Select  Flare  Intensity  (watts)  in  the  Parameter 
Options  menu.  Drag  the  scale  cursor  to  a  new  position  along  the  Flare 
Intensity  (watts)  adjustable  scale  to  input  the  flare  intensity  in  watts. 

3.  Flare  Temperature  (K).  Select  Flare  Temperature  (K)  in  the  Parameter 
Options  menu.  Drag  the  scale  cursor  to  a  new  position  on  along  the  Flare 
Temperature  (K)  adjustable  scale  to  input  the  flare  temperature  in  Kelvin. 

3. 4. 7. 2  Location. — Select  Location  or  press  1  in  the  Flare  Selection  menu  to  snap  to 
a  view  downward  from  the  positive  Z  axis.  Red  with  a  red  lettered  prompt 
below  the  projection  stating  Move  Flare  depicts  the  projection  of  the  flare 
location  onto  the  XY  plane.  Hold  the  left  mouse  button  and  move  the  mouse 
to  change  the  position  of  the  flare  in  the  XY  plane.  Release  the  left  mouse 
button  and  the  display  snaps  to  a  view  toward  the  BLIRB8  space  from  the 
negative  Y  axis.  Red  with  a  red  lettered  prompt  below  the  projection  stating 
Move  Flare  depicts  the  projection  of  the  flare  location  onto  the  XZ  plane. 
Hold  the  left  mouse  button  down  and  move  the  mouse  to  change  the  position 
of  the  flare  in  the  XZ  plane.  Release  the  left  mouse  button  and  the  display 
snaps  back  to  the  original  view,  but  the  flare  of  interest  is  in  a  new  position. 
Red  stars  depict  flare  positions. 

The  origin  of  the  BLIRB8  space  is  the  default  position  of  a  newly  created  flare. 
It  must  be  repositioned. 

3.4. 7.3  Delete  Flare. — Select  Delete  Flare  or  press  d  in  the  Flare  Selection  menu  to 
remove  the  flare  of  interest  from  all  inputs  and  the  display. 

3.4.8  SearchLight  Selection 

Select  SearchLight  Selection  or  press  1  in  the  Modify  menu  (or,  enter  Alt-ml 
or  FlO-ml)  to  display  a  menu  with  one  or  three  pushbuttons. 

The  pushbutton  is  Add/Modify  SearchLight  if  no  searchlight  exists. 
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The  menu  contains  three  pushbuttons  if  a  searchlight  exists: 

•  Add/Modify  SearchLight 

•  Location 

•  Delete  SearchLight  (if  a  searchlight  exists) 

Only  one  searchlight  is  allowed. 

The  default  input  contains  no  searchlight. 

Click  on  the  corresponding  pushbutton  to  select  the  desired  operation  for  the 
searchlight.  Click  outside  the  menu  to  terminate  the  menu. 

3.4.8. 1  Add/Modify  SearchLight. — Select  Add/Modify  SearchLight  or  press  a  in  the 

SearchLight  Selection  menu  (or,  enter  Alt-mla  or  FlO-mla)  to  display  a  menu 
with  one  pushbutton  and  five  adjustable  scales. 

The  pushbutton  is  Finished  with  Selections. 

The  adjustable  scales  are 

•  SearchLight  Beam  Zenith  (deg) 

•  SearchLight  Beam  Azimuth  (deg) 

•  SearchLight  Intensity  (watts) 

•  SearchLight  Temperature  (K) 

•  SearchLight  Diameter  (m) 

After  entering  the  Add/Modify  SearchLight  input  data,  select  Finished  with 
Selections  to  terminate  the  menu.  Location  is  automatically  invoked  after 
selecting  Finished  with  Selections  if  the  searchlight  did  not  exist. 

1.  SearchLight  Beam  Zenith  (deg).  Select  SearchLight  Beam  Zenith  (deg) 
in  the  Add/Modify  SearchLight  menu.  Drag  the  scale  cursor  to  a  new  position 
on  the  SearchLight  Beam  Zenith  (deg)  adjustable  scale  to  input  the  searchlight 
beam  zenith  angle  in  degrees. 
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2.  SearchLight  Beam  Azimuth  (deg).  Select  SearchLight  Beam  Azimuth 
(deg)  in  the  Add/Modify  SearchLight  menu.  Drag  the  scale  cursor  to  a  new 
position  on  the  SearchLight  Beam  Azimuth  (deg)  adjustable  scale  to  input  the 
searchlight  beam  azimuth  angle  in  degrees. 

3.  SearchLight  Intensity  (watts).  Select  SearchLight  Intensity  (watts)  in  the 
Add/Modify  SearchLight  menu.  Drag  the  scale  cursor  to  a  new  position  on 
the  SearchLight  Intensity  (watts)  adjustable  scale  to  input  the  searchlight 
intensity  in  watts. 

4.  SearchLight  Temperature  (K).  Select  SearchLight  Temperature  (K)  in  the 
Add/Modify  SearchLight  menu.  Drag  the  scale  cursor  to  a  new  position  on 
the  SearchLight  Temperature  (K)  adjustable  scale  to  input  the  searchlight 
temperature  in  Kelvin. 

5.  SearchLight  Diameter  (m).  Select  SearchLight  Diameter  (m)  in  the 
Add/Modify  SearchLight  menu.  Drag  the  scale  cursor  to  a  new  position  on 
the  SearchLight  Diameter  (m)  adjustable  scale  to  input  the  searchlight 
diameter  in  meters. 

3. 4. 8. 2  Location. — Select  Location  or  press  1  in  the  SearchLight  Selection  menu  (or 

enter  Alt-mil  or  FlO-mll)  to  snap  to  a  view  downward  from  the  positive  Z  axis. 
White  with  a  red  lettered  prompt  below  the  projection  stating  Move  Slite 
depicts  the  projection  of  the  searchlight  location  onto  the  XY  plane.  Hold  the 
left  mouse  button  down  and  move  the  mouse  to  change  the  position  of  the 
searchlight  in  the  XY  plane.  Release  the  left  mouse  button  to  snap  to  a  view 
toward  the  BLIRB8  space  from  the  negative  Y  axis.  White  with  a  red  lettered 
prompt  below  the  projection  stating  Move  Slite  depicts  the  projection  of  the 
searchlight  location  onto  the  XZ  plane.  Hold  the  left  mouse  button  down  and 
move  the  mouse  to  change  the  position  of  the  searchlight  in  the  XZ  plane. 
Release  the  left  mouse  button  to  snap  back  to  the  original  view  with  the 
searchlight  a  new  position.  A  white  star  depicts  the  searchlight  position. 

The  origin  of  the  BLIRB8  space  is  the  default  position  of  a  newly  created 
searchlight.  It  must  be  repositioned. 
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3. 4. 8. 3  Delete  SearchLight. — Select  Delete  SearchLight  or  press  d  in  the  SearchLight 

Selection  menu  (or,  enter  Alt-mid  or  FlO-mld)  to  remove  the  searchlight  from 
all  inputs  and  the  display. 

3.4.9  Spectral  Range  Changes 

Select  Spectral  Range  Changes  or  press  t  in  the  Modify  menu  (or,  enter 
Alt-mt  or  FlO-mt)  to  display  a  menu  with  two  pushbuttons.  The  pushbuttons 
allow  you  to  choose  the  units  for  the  spectral  range  selection  options.  This 
spectral  range  corresponds  to  the  spectral  range  of  the  radiation  energy  wave 
bands  for  BLIRB8. 

The  pushbuttons  are 

•  Wavenumber 

•  Wavelength 

The  pushbuttons  allow  you  to  choose  the  units  for  the  spectral  range  selection 
options.  The  spectral  range  corresponds  to  the  spectral  range  of  the  radiation 
energy  wave  bands  for  BLIRB8. 

Click  on  the  corresponding  pushbutton  to  select  the  spectral  range  units.  Click 
outside  the  menu  to  terminate  the  menu. 

3.4.9. 1  Wavenumber. — Select  Wavenumber  or  press  n  in  the  Spectral  Range  Changes 

menu  (or,  enter  Alt-mtn,  FlO-mtn,  or  Ctrl-Fll)  to  display  a  menu  with  one 
pushbutton  and  a  toggle  button  menu  with  five  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Wavenumber  Interval  (per  cm). 

The  toggle  buttons  are 
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•  Visible:  8000  -  28000 

•  Near  IR:  3000  -  13000 


•  Mid  IR:  1200  -  5200 

•  Far  IR:  500  -  1500 

•  2  Color  IR:  600  -  3600 

Select  the  wavenumber  range  of  interest  from  the  menu. 

Select  one  of  the  five  toggle  buttons  to  display  a  menu  with  one  pushbutton  and 
three  adjustable  scales. 

The  pushbutton  is  Finished  with  Selections. 

The  adjustable  scales  are 

•  Lowest  Wavenumber  (per  cm) 

•  Highest  Wavenumber  (per  cm) 

•  Number  of  Wavenumber  Intervals 

The  range  of  values  and  increments  available  for  the  first  two  scales  are  the 
only  differences  between  the  scales  in  one  toggle  button  selection  and  the  scales 
in  another  toggle  button  selection.  The  scale  value  ranges  correspond  to  the 
numbers  in  the  toggle  button  label. 

After  entering  the  scale  input  data,  select  Finished  with  Selections  to  terminate 
the  three-scale  menu. 

After  entering  the  Wavenumber  input  data,  select  Finished  with  Selections  to 
terminate  the  Wavenumber  menu. 

1 .  Lowest  Wavenumber  (per  cm).  Select  Lowest  Wavenumber  (per  cm)  in 
the  Wavenumber  Interval  (per  cm)  menu.  Drag  the  scale  cursor  to  a  new 
position  on  the  Lowest  Wavenumber  (per  cm)  adjustable  scale  to  input  the 
lowest  wavenumber. 

The  Lowest  Wavenumber  (per  cm)  10,000  per  cm  is  the  default  value. 
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2.  Highest  Wavenumber  (per  cm).  Select  Highest  Wavenumber  (per  cm)  in 
the  Wavenumber  Interval  (per  cm)  menu.  Drag  the  scale  cursor  to  a  new 
position  on  the  Highest  Wavenumber  (per  cm)  adjustable  scale  to  input  the 
highest  wavenumber. 

The  Highest  Wavenumber  (per  cm)  25,000  per  cm  is  the  default  value. 

3.  Number  of  Wavenumber  Intervals.  Select  Number  of  Wavenumber 
Intervals  in  the  Wavenumber  Interval  (per  cm)  menu.  Drag  the  scale  cursor 
to  a  new  position  on  the  Number  of  Wavenumber  Intervals  adjustable  scale 
to  input  the  number  of  wavenumber  intervals  used  for  integration  over  the 
spectral  range  within  BLIRB8. 

The  Number  of  Wavenumber  Intervals  15  is  the  default  value. 

3. 4. 9. 2  Wavelength. — Select  Wavelength  or  press  1  in  the  Spectral  Range  Changes 

menu  (or,  enter  Alt-mtl,  FlO-mtl,  or  Ctrl-F12)  to  display  a  menu  with  one 
pushbutton  and  a  toggle  button  menu  with  five  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Wavelength  Interval  (micrometers). 

The  toggle  buttons  are 

•  Visible:  0.3  -  1.3 

•  Near  IR:  0.7  -  3.2 

•  Mid  IR:  2.0  -  7.0 

•  Far  IR:  6.0  -  16.0 

•  2  Color  IR:  3.0  -  13.0 

Select  the  wavelength  range  of  interest  from  the  menu. 

Select  one  of  the  five  toggle  buttons  to  display  a  menu  with  one  pushbutton  and 
three  adjustable  scales. 
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The  pushbutton  is  Finished  with  Selections. 


The  adjustable  scales  are 

•  Lowest  Wavelength  (micrometers) 

•  Highest  Wavelength  (micrometers) 

•  Number  of  Wavelength  Intervals 

The  range  of  values  and  increments  available  for  the  first  two  scales  are  the 
only  differences  between  the  scales  in  one  toggle  button  selection  and  the  scales 
in  another  toggle  button  selection.  The  scale  value  ranges  correspond  to  the 
numbers  in  the  toggle  button  label. 

After  entering  the  scale  input  data,  select  Finished  with  Selections  to  terminate 
the  three-scale  menu. 

After  entering  the  Wavelength  input  data,  select  Finished  with  Selections  to 
terminate  the  Wavelength  menu. 

L  Lowest  Wavelength  (micrometers).  Select  Lowest  Wavelength 
(micrometers)  to  display  an  adjustable  scale.  Drag  the  scale  cursor  to  a  new 
position  on  the  Lowest  Wavelength  (micrometers)  adjustable  scale  to  input  the 
lowest  wavelength. 

2.  Highest  Wavelength  (micrometers).  Drag  the  scale  cursor  to  a  new  position 
on  the  Highest  Wavelength  (micrometers)  adjustable  scale  to  input  the  highest 
wavelength. 

3.  Number  of  Wavelength  Intervals.  Drag  the  scale  cursor  to  a  new  position 
on  the  Number  of  Wavelength  Intervals  adjustable  scale  to  input  the  number 
of  wavelength  intervals  used  for  integration  over  the  spectral  range  within 
BLIRB8. 
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3.4.10  Computation  Changes 

Select  Computation  Changes  or  press  p  in  the  Modify  menu  (or,  enter 
Alt-mp,  FlO-mp,  or  Shift-Fll)  to  display  a  menu  with  one  pushbutton,  two 
toggle  button  menus,  and  three  adjustable  scales. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menus  are 

•  Delta  Function  Adjustment 

•  Order  of  Spherical  Harmonics 

The  adjustable  scales  are 

•  Maximum  Number  of  Iterations 

•  Convergence  Criterion 

•  Number  of  Convergence  Fail  Points 

After  entering  the  Computation  Changes  input  data,  select  Finished  with 
Selections  to  terminate  the  menu. 

3.4.10.1  Delta  Function  Adjustment. — Select  Delta  Function  Adjustment  in  the 
Computation  Changes  menu  to  display  a  toggle  button  menu. 

The  toggle  button  menu  contains  two  choices: 

•  No 

•  Yes 

The  depressed  toggle  button  indicates  the  Delta  Function  Adjustment  choice. 
Click  on  the  corresponding  toggle  button  to  change  the  input  value. 

Yes  is  the  default  choice. 
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3.4.10.2 


3.4.10.3 


3.4.10.4 


3.4.10.5 


Order  of  Spherical  Harmonics. — Select  Order  of  Spherical  Harmonics  in  the 
Computation  Changes  menu  to  display  a  toggle  button.  The  toggle  button 
menu  contains  seven  choices  for  the  order  of  the  spherical  harmonics  used  in 
the  BLIRB8  computations. 

The  toggle  buttons  are  Order  #  in  which  #  is  an  integer  between  0  and  6. 

The  depressed  toggle  button  indicates  the  Order  of  Spherical  Harmonics 
choice.  Click  on  the  corresponding  toggle  button  to  change  the  input  value. 

Order  2  is  the  default  choice. 

Maximum  Number  of  Iterations. — Select  Maximum  Number  of  Iterations  in 
the  Computation  Changes  menu  to  display  an  adjustable  scale.  Drag  the  scale 
cursor  to  a  new  position  on  the  Maximum  Number  of  Iterations  adjustable 
scale  to  input  the  maximum  number  of  iterations  to  be  used  in  the  computation. 

The  Maximum  Number  of  Iterations  10  is  the  default  value. 

Convergence  Criterion. — Select  Convergence  Criterion  in  the  Computation 
Changes  menu  to  display  an  adjustable  scale.  Drag  the  scale  cursor  to  a  new 
position  on  the  Convergence  Criterion  adjustable  scale  to  input  the 
convergence  criterion  to  be  used  in  the  computation. 

The  Convergence  Criterion  0.002  is  the  default  value. 

Number  of  Convergence  Fail  Points. — Select  Number  of  Convergence  Fail 
Points  in  the  Computation  Changes  menu  to  display  an  adjustable  scale.  Drag 
the  scale  cursor  to  a  new  position  on  the  Number  of  Convergence  Fail  Points 
adjustable  scale  to  input  the  number  of  convergence  fail  points  used  in  the 
computation. 

The  Number  of  Convergence  Fail  Points  5  is  the  default. 
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3.4.11 


Output  File  Changes 


Select  Output  File  Changes  or  press  o  in  the  Modify  menu  (or,  enter  Alt-mo, 
FlO-mo,  or  Shift-F12)  to  display  a  menu  with  one  pushbutton  and  a  toggle 
button  menu  with  four  toggle  buttons. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Radiant  Flux  Output  Options. 

The  toggle  buttons  are 

•  No  Output  Flux 

•  Formatted  Output  File  (GRID.ASC) 

•  Unformatted  (binary)  Output  File  (GRID.BIN) 

•  Both  Formatted  and  Unformatted  (GRID.ASC  and  GRID.BIN) 

The  options  govern  the  type  of  BLIRB8  radiant  flux  output  file(s)  created. 

Both  Formatted  and  Unformatted  is  the  default  option. 

After  entering  the  Output  File  Changes  input  data,  select  Finished  with 
Selections  to  terminate  the  menu. 

3.5  Reset 


Select  Reset  on  the  menubar  to  remove  rotation  and/or  translation  of  the 
BLIRB8  space  display.  (Or,  enter  Alt-r  or  FlO-r.)  The  display  resets  to  a 
view  along  an  axis  looking  at  the  center  of  the  BLIRB8  space. 
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3.6 


Help 


Select  Help  on  the  menubar  to  display  a  menu  with  eight  options: 

•  General  Information 

•  File  Options 

•  Viewing  Options 

•  Flux  Display  Options 

•  Input  Modifications  Options 

•  Reset 

•  BLIRB8  Space  Rotations 

•  BLIRB  Space  Translations 

(Or,  enter  Alt-h  or  FlO-h.) 

Select  an  option  or  press  g,  f,  v,  x,  m,  s,  r,  or  t.  (Or,  enter  Alt-hg  or  FlO-hg; 
Alt-hf  or  FlO-hf;  Alt-hv  or  FlO-hv;  Alt-hx  or  FlO-hx;  Alt-hm  or  FlO-hm; 
Alt-hs  or  FlO-hs;  Alt-hr  or  FlO-hr;  or  Alt-ht  or  FlO-ht.) 

Click  outside  the  menu  to  terminate  the  menu. 

Select  any  options  except  Viewing  Options,  Flux  Display  Options,  and  Input 
Modifications  Options  to  display  a  corresponding  help  message  on  the  screen. 

Click  on  ok  to  terminate  the  help  message  display. 

3.6.1  Viewing  Options 

Select  Viewing  Options  in  the  Help  menu  to  display  a  menu  with  one 
pushbutton  and  a  toggle  button  menu  with  four  options. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  View  Options. 
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The  options  are 


•  Viewing  Axis  Options 

•  Sun  Options 

•  Zoom  Options 

•  Toggle  Switch  Options 

Select  one  of  the  four  options  to  display  a  corresponding  help  message  on  the 
screen. 

Click  on  ok  to  terminate  the  help  message  display. 

After  reading  the  help  messages,  select  Finished  with  Selections  to  terminate 
the  menu. 

3.6.2  Flux  Display  Options 

Select  Flux  Display  Options  in  the  Help  menu  to  display  a  menu  with  one 
pushbutton  Finished  with  Selections  and  a  toggle  button  menu  Flux  Display 
Options  with  four  options. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Flux  Display  Options. 

The  options  are 

•  Flux  Options 

•  Cross-Section  Plane  Orientation 

•  Cross-Section  Plane  Value  Selection 

•  Wave  Number  Selection 

Select  one  of  the  four  options  to  display  a  corresponding  help  message  on  the 
screen. 

Click  on  ok  to  terminate  the  help  message  display. 
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After  reading  the  help  messages,  select  Finished  with  Selections  to  terminate 
the  menu. 

3.6.3  Input  Modifications  Options 

Select  Input  Modifications  Options  in  the  Help  menu  to  display  a  menu  with 
one  pushbutton  and  a  toggle  button  menu  with  1 1  options. 

The  pushbutton  is  Finished  with  Selections. 

The  toggle  button  menu  is  Modify  Options. 

The  options  are 

•  Model  Changes 

•  Region  Selection 

•  Albedo  Area  Selection 

•  Grid  Mesh  Selection 

•  Cloud  Changes 

•  Sun  Changes 

•  Flare  Selection 

•  Searchlight  Selection 

•  Spectral  Range  Changes 

•  Computation  Changes 

•  Output  File  Changes 

Select  one  of  the  11  options  to  display  a  corresponding  help  message  on  the 
screen. 

Click  on  ok  to  terminate  the  help  message  display. 

After  reading  the  help  messages,  select  Finished  with  Selections  to  terminate 
the  menu. 


77 


4.  BLIRB8  Space  Rotation 


Hold  the  left  mouse  button  down  and  move  the  mouse  to  perform  rotations  of 
the  BLIRB8  space.  The  display  is  an  ortho  projection;  therefore,  everything  in 
the  BLIRB8  space  is  projected,  using  reasonably  parallel  projection  lines,  onto 
an  observer  position  plane.  Ortho  projection  helps  conserve  length  and  angular 
relationships  between  the  objects  in  the  display  (near  objects  do  not  appear 
much  larger  than  distant  objects).  Unfortunately,  ortho  projection  does  not 
allow  the  observer  to  select  arbitrary  positions  around  the  BLIRB8  space  from 
which  to  view  the  objects.  The  projections  are  onto  a  plane  not  a  point. 

There  are  three  observer  position  planes  to  choose  from,  a  YZ  plane  on  the 
positive-X  axis,  an  XZ  plane  on  the  negative-Y  axis,  and  an  XY  plane  on  the 
positive-Z  axis.  Hold  down  the  left  mouse  button  and  move  the  mouse  to  move 
the  observer  position  on  one  of  these  planes.  The  center  of  the  BLIRB8  space 
is  the  point  looked  at  from  all  planes  using  all  observer  positions.  The  BLIRB8 
space  can  disappear  from  the  screen  if  a  severe  rotation  is  performed  on  any 
observer  plane.  If  the  BLIRB8  space  disappears,  undo  some  of  the  rotation  and 
select  another  observer  plane  from  which  to  view  the  BLIRB8  space.  Severe 
rotations  are  not  necessary. 
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5.  BLIRB8  Space  Translation 


Hold  down  the  right  mouse  button  and  move  the  mouse  to  perform  translations 
of  the  BLIRB8  space.  Translations  cause  the  point  looked  at  in  the  BLIRB8 
space  to  change  from  the  center  of  the  BLIRB8  space.  Perform  translations 
with  caution  as  they  can  cause  unexpected  viewing  problems  when  followed  by 
rotations. 
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6.  BLIRB8  Default  Input  Values 


The  BLIRB8  default  input  values  are  loaded  for  the  BLIRB8  inputs  when  you 
select  the  default  Create  New  File  or  start  VISUAL  without  a  filename  on  the 
command  line.  Change  the  BLIRB8  default  input  values  under  the  various 
options  available  under  Modify  on  the  menubar.  The  default  values  follow: 


BLIRB8  Input 

Aerosol  Model 
Temperature  Profile  Model 
Meteorological  Range 
Tropospheric  Profile 
Albedo  Type 
Aerosol  Profile  Printout 
Surface  Temperature 

Number  of  Regions 
Dimensions  of  Region 

Materials  for  Region 
Material  Visibilities  for  Region 

Number  of  Albedo  Areas 
Dimensions  of  Area 

Albedo  for  Area 

Number  of  X  Grid  Meshes 

Start  and  End  Points  of  X  Grid  Mesh 

Number  of  Subintervals 

Number  of  Y  Grid  Meshes 

Start  and  End  Points  of  Y  Grid  Mesh 

Number  of  Subintervals 


Default  Value 

No  aerosols 
1976  U.S.  Standard 
40  km 

Set  by  Meteorological  Range 
Wave  Independent,  User-defmed 
None 
288.2  K 

1  (primary  BLIRB8  region) 

5  by  4  by  5  km  beginning 
at  (X,Y,Z)  =  (0,0,0) 

No  cloud 
Infinite 

1 

5  by  4  km  beginning  at 
(X,Y,Z)  =  (0,0,0) 

Background  Albedo  =  0.2 

1 

0  and  5  km 
10 

1 

0  and  4  km 
8 
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Number  of  Z  Grid  Meshes 

Start  and  End  Points  of  Z  Grid  Mesh 

Number  of  Subintervals 

Cloud  Structure 

Aerosol  Outside  Physical  Region 
Wind  Speed 

Solar  Flux  and  Sky  Radiance  at  5  km 
Sky  Radiance  Input 
Spectral  Molecular  Transmission 
Solar  Zenith  Angle 
Solar  Azimuth  Angle 

Number  of  Flares 
Number  of  Searchlights 

Lowest  Wavenumber 
Highest  Wavenumber 
Number  of  Wavenumber  Intervals 

Delta  Function  Adjustment 
Order  of  Spherical  Harmonics 
Maximum  Number  of  Iterations 
Convergence  Criterion 
Number  of  Convergence  Fail  Points 

Radiant  Flux  Output  Option 


1 

0  and  5  km 
10 

No  Cloud 

Periodic  Boundary  Conditions 
0  mps 

LOWTRAN 

No 

No 

0° 

0° 

0 

0 

10,000  per  cm 
25,000  per  cm 
15 

Yes 

2 

10 

0.002 

5 

Both  Formatted  and  Unformatted 
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7.  VISUAL  Global  Software  Variables 


The  file  VISUALO.H,  under  the  heading  Definitions  used  in  the  BLIRB8 
Visualization  Program,  contains  the  global  variables  for  the  VISUAL. C  code. 
Appendix  A  contains  a  listing  of  VISUALO.H.  You  can  assign  new  values  to 
the  global  variables  and  recompile  the  VISUAL.C  code  to  produce  a  new 
executable  VISUAL.  However,  remember  that  these  global  variables  are  set  to 
be  consistent  with  the  FORTRAN  parameters  in  the  BLIRB8  code.  If  you 
change  the  variables,  change  the  corresponding  parameters  in  the  BLIRB8  code. 
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8.  BLIRB  EN 


The  BUFR  binary  stream  contains  the  BLIRB  B  radiant  flux  field  output 
encoded  to  save  space.  A  BUFR  binary  file  is  composed  of  as  many  as  six 
sections  in  series.  Section  0,  the  indicator  section,  is  required  and  includes  the 
total  length  of  the  BUFR  file  or  message.  Section  1,  the  identification  section, 
is  required  and  includes  the  length  of  the  section  and  identifying  information 
about  the  originating  site  and  the  BLIRB  8  data.  Section  2,  the  optional  section, 
is  not  required  and  not  used  for  encoding  the  BLIRB  8  data.  Section  3,  the  data 
description  section,  is  required  and  contains  the  length  of  the  section  and  a 
collection  of  descriptors  which  define  the  form  and  content  of  the  individual 
data  elements  comprising  the  BLIRB  8  data.  Section  4,  the  data  section,  is 
required  and  contains  the  length  of  the  section  and  the  encoded  BLIRB  8  data 
elements  as  defined  by  descriptors  in  Section  3.  Section  5,  the  end  section,  is 
required  and  contains  ASCII  7777  to  signal  the  end  of  the  BUFR  file  or 
message. 

The  size  of  a  BUFR  message  can  be  quite  large  depending  upon  the  size  of  the 
BLIRB8  radiant  flux  field  output  file.  The  approach  used  to  develop  the 
BLIRBEN  source  code,  BLIRBEN.C,  so  it  could  create  the  complete  BUFR 
message  in  one  pass  through  a  BLIRB  8  radiant  flux  field  output  file  was  to 
concurrently  construct  Sections  0,  1,3,  and  4  by  analyzing  the  BLIRB8  data  as 
it  is  read  and  writing  the  required  encoding  information  for  each  section  to  a 
corresponding  temporary  file.  After  all  the  BLIRB  8  data  are  processed,  the 
four  temporary  files  are  reread  in  sequence  and  the  binary  coded  data  from  each 
along  with  the  Section  5,  7777,  are  written  to  the  final  BUFR  binary  file. 

Enter  blirb_en  -i  <infile>  -o  <outfIIe>  in  which  <infile>  is  the  BLIRB  8  radiant 
flux  field  ASCII  output  filename  and  <outfile>  is  the  BLIRB  8  BUFR  binary 
encoded  output  filename  to  execute  BLIRB  EN. 

8.1  Section  1 

Section  1  contains  the  year,  month,  day,  hour,  minute,  and  second  taken  from 
the  computer  system  clock  at  runtime  to  specify  when  the  BUFR  message  was 
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generated.  If  this  information  is  to  apply  to  the  date  and  time  for  the  BLIRB8 
data  used  in  a  prescribed  scenario,  the  corresponding  C  code  in  procedure 
Section  1  must  be  modified. 

As  of  the  end  of  this  contract  period,  several  parameters  used  in  this  section  are 
not  officially  defined.  As  a  result,  dummy  values  are  being  used  until  the 
official  values  are  assigned.  The  dummy  values  are  assigned  in  the  include  file, 
BUFR.H  appendix  B.  The  Local  Originating  Center  Code  (LOCC)  (byte  18) 
is  given  a  temporary  value  of  1 1 1.  The  Model  Identifier  (MODEL)  (byte  19) 
is  given  a  temporary  value  of  1.  The  Database  Sequence  Number  (DBSN) 
(bytes  21  and  22)  is  given  a  temporary  value  of  0.  The  assigned  values  must 
be  changed  after  official  values  are  available. 

8.2  Section  3 

Section  3  is  composed  of  data  element  descriptors,  replication  operators,  data 
description  operators,  and  data  descriptor  sequences.  These  operators  and 
sequences  can  be  nested  as  deeply  as  desired.  A  data  element  descriptor  simply 
defines  the  type  of  data  element,  unit  of  measurement,  reference  value,  scale 
value,  and  data  field  width  in  bits.  A  replication  operator  replicates  all 
descriptors  and  operators  following  its  execution  until  it  is  signaled  to  stop.  A 
data  descriptor  operator  is  primarily  used  to  temporarily  change  reference  value, 
scale  value,  or  data  field  width  for  a  data  element  descriptor.  A  descriptor 
sequence  is  a  sequence  of  data  element  descriptors,  replication  operators,  and 
data  descriptor  operators.  Nesting  of  sequences,  operators,  and  data  descriptors 
is  quite  common.  For  each  data  element  value  encoded  in  Section  4,  a  unique 
description  of  that  data  element  exists  somewhere  encoded  in  Section  3.  The 
better  the  nesting  and  encoding,  the  shorter  the  section  length. 

To  construct  this  section  for  the  BLIRB8  radiant  flux  field  data,  a  series  of  new 
data  descriptors  had  to  be  added  to  the  original  BUFR  Table  B,  the  list  of  all 
data  descriptors.  Appendix  F  (beginning  on  page  183)  contains  the  additional 
data  descriptors.  The  F  (column  1)  of  Table  B  is  required  to  be  0  for  all  data 
descriptors  (records).  The  value  of  X  (column  2)  is  assigned  a  temporary  value 
of  55  until  an  official  value  is  designated.  This  number  will  delineate  the 
BLIRB8  data  descriptors  from  all  other  data  descriptors. 
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The  BLIRB8  radiant  flux  field  output  file  contains  a  copy  of  the  BLIRB8  input 
records  from  the  ASCII  input  file  in  addition  to  the  flux  field  output.  The 
values  of  Y  (column  3)  of  Table  B  contain  the  integers  1  through  83  and  120 
through  147.  The  values  1  through  83  denote  BLIRB8  input  data  elements. 
The  values  120  through  147  denote  BLIRB8  output  values  or  arrays. 

In  addition  to  modifying  BUFR  Table  B,  BUFR  Table  D,  a  list  of  data 
descriptor  sequences,  was  modified.  The  sequences  contained  in  Table  D  are 
like  a  shorthand  method  of  assigning  the  data  descriptors  from  Table  B  to  sets 
of  data  requiring  several  data  descriptors.  An  additional  10  sequences  added 
to  Table  D  pertain  to  the  BLIRB8  input/output  data  descriptors.  Appendix  G 
(beginning  on  page  193)  contains  these  sequences.  A  sequence  is  a  series  of 
records  in  which  the  first  record  is  3  X  Y  with  X  and  Y  being  positive 
integers.  The  first  record  defines  the  sequence;  and,  the  record  -1  -1  -1 
denotes  the  end  of  the  sequence.  All  records  between  the  first  and  end  records 
are  the  data  descriptor  members  of  the  sequence.  For  the  BLIRB8  data,  a 
temporary  value  of  25  was  assigned  to  X.  The  value  of  Y  is  the  sequence 
number,  1  through  10. 

The  values  are  temporarily  assigned  and  can  be  changed  later  when  the  official 
Tables  B  and  D  are  defined.  The  pertinent  definitions  are  contained  in 
BUFR.H.  The  value  assigned  to  BB  (currently  55)  is  the  temporary  value  of 
X  denoting  BLIRB8  data  descriptors.  The  value  assigned  to  YYI  (currently  1) 
is  the  temporary  value  of  Y  corresponding  to  the  beginning  of  the  BLIRB8 
inputs.  The  value  of  YYO  (currently  120)  is  the  temporary  value  of  Y 
corresponding  to  the  beginning  of  the  BLIRB8  outputs.  The  value  of  YYM 
(currently  147)  is  the  temporary  value  of  Y  corresponding  to  the  last  data 
descriptor  of  the  BLIRB8  data.  The  value  of  DD  (currently  25)  is  the 
temporary  value  of  X  denoting  BLIRB8  descriptor  sequences. 

Section  4 

Section  4  contains  the  encoded  BLIRB8  data  element  values.  Positive  and 
negative  values,  real,  integer,  and  ASCII  data  elements  are  included.  If  it  is 
necessary  to  keep  the  Data  Field  Width  (number  of  bits  per  data  element)  as 
small  as  possible  yet  accommodate  the  full  range  of  data  values,  the  software 
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breaks  up  the  original  data  arrays  into  smaller  arrays  in  which  the  ratio  of  the 
largest  data  element  to  the  smallest  data  element  is  less  than  1000.  The  smaller 
data  arrays  can  be  rescaled  and  re-referenced  differently  from  the  original  data 
array.  Selecting  1000  for  the  ratio  represents  a  reasonable  guess  at  its  best 
value  to  achieve  a  minimum  total  BUFR  message  length  over  many  different 
BLIRB8  output  files.  The  larger  the  ratio,  the  longer  the  Section  4  component 
of  the  message.  The  smaller  the  ratio,  the  longer  the  Section  3  component  of 
the  message.  Replication,  rescaling,  and  re-referencing  are  used  extensively  to 
shorten  the  Section  4  length. 


9.  BLIRB  DE 


The  BUFR  binary  stream  contains  pertinent  information  about  the  BLIRB  8 
radiant  flux  field  output  file,  except  the  ASCII  output  file  formatting 
specification.  Except  for  this  shortcoming,  a  universal  BUFR  decoder  could  be 
written  and  applied  to  all  data.  BLIRBDE  was  developed  to  specifically 
decode  a  BUFR  encoded  BLIRB8  radiant  flux  field  output  binary  stream  and 
create  an  ASCII  file  containing  the  data  formatted  as  the  original  data.  The 
approach  used  to  develop  the  BLIRB  DE  source  code,  BLIRB  DE.C,  was  to 
first  decode  Sections  0  and  1  of  the  BUFR  stream,  then  fully  expand  Section  3 
into  its  simplest  descriptors,  and  last  decode  the  Section  4  data  values  using  the 
expanded  version  of  the  Section  3  data  descriptors.  The  decoded  data  values 
are  written  to  an  ASCII  file  with  the  proper  format. 

The  expansion  of  the  BUFR  Section  3  data  is  performed  using  a  multipass 
process.  Each  pass  entails  expanding  another  layer  of  nesting  and  writing  the 
intermediate  results  to  a  temporary  file.  The  process  terminates  when  there  are 
no  more  nests,  replications,  or  sequences  to  expand. 

All  writing  to  the  formatted  ASCII  output  file  is  performed  in  the  procedure 
WRITEFILE.  The  integer  arrays  CH_DESC,  CHLAST,  INDESC,  and 
OUTDESC  in  the  procedure  contain  the  values  of  Y  (Table  B)  minus  the 
value  of  YYI  or  YYO  (BUFR.H).  These  values  represent  the  data  descriptor 
offsets  for  particular  data  elements.  CH  DESC  contains  the  offsets  for  all 
sixteen  ASCII  data  elements.  Each  of  these  ASCII  data  elements  represent  the 
beginning  of  a  different  type  of  BLIRB  8  input  record.  CH  LAST  contains  the 
offsets  of  the  last  data  element  for  each  type  of  BLIRB8  input  record. 
IN_DESC  contains  the  offsets  of  the  seven  integer  input  data  elements. 
OUT  DESC  contains  the  offsets  of  the  five  integer  output  data  elements. 

Enter  blirb_de  -i  <inflle>  -o  <outfile>  in  which  <infile>  is  the  BLIRB  8  BUFR 
encoded  binary  output  filename  and  <outfile>  is  the  BLIRB  8  ASCII  output 
filename  to  execute  BLIRB  DE. 
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10.  BLIRB  CM 


BLIRB  CM  was  developed  to  compare  the  original  BLIRB  8  radiant  flux  field 
ASCII  output  file  with  the  reconstituted  version  of  the  file  after  BUFR 
encoding  with  BLIRB  EN  and  decoding  with  BLIRBDE.  Because  of  a 
possible  difference  of  one  bit  in  the  least  significant  position  between  the 
original  real  data  element  value  before  encoding  and  the  real  data  element  value 
after  decoding,  a  UNIX  diff  or  cmp  comparison  is  generally  not  feasible.  The 
comparison  criterion  for  the  data  element  values  is  based  on  the  ratio  of  the 
absolute  difference  between  the  two  data  values  to  the  absolute  average  of  the 
two  data  values.  If  the  data  elements  are  BLIRB 8  input  data,  they  are 
considered  the  same  value  if  the  ratio  is  less  than  0.001.  If  the  data  elements 
are  BLIRB8  radiant  flux  field  output  data,  they  are  considered  the  same  value 
if  the  ratio  is  less  than  0.0001. 

Enter  blirb_cm  <filel>  <file2>  in  which  <filel>  is  the  original  BLIRB8  radiant 
flux  field  ASCII  output  filename  or  the  filename  of  the  reconstituted  version  of 
the  same  file  and  <file2>  is  the  other  filename  to  execute  BLIRB  CM. 
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Acronyms  and  Abbreviations 


AFGL 

Air  Force  Geophysical  Laboratory 

BLIRB 

Boundary  Layer  Illumination  Radiation  Balance  Model 

BUFR 

Binary  Universal  Form  for  the  Representation  of 
meteorological  data 

EOSAEL 

Electro-Optical  Systems  Atmospheric  Effects  Library 

GUI 

graphical  user  interface 

LOCC 

Local  Originating  Center  Code 

MODEL 

model  identifier 

RH 

relative  humidity 

SGI 

Silicon  Graphics  Inc. 

3-D 

three-dimensional 
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Appendix  A 

Listing  of  VISUALO.H,  the  Include  File  for  VISUAL.C 


*  -  Definitions  used  in  the  BLIRB  Visualization  Program 

*7 

#def ine  RELEASED  0 

#def ine  PRESSED  1 

#define  WINDOW_HEIGHT  10.0  /*  Relative  Window  Hgt  (in)  */ 

#define  RLEN  90  ....  /*  Input/Output  Record  Len  */ 


#def ine  I AM  6 

#def ine  IRM  12 

#def ine  NEST  10 

#define  ISM  8 

#def ine  I DM  6 

#define  ITM  10 

#def ine  MXMTR  3 

#def ine  ISCT  6 


/*  Max  Number  of  Input  Cards „of  a  given  type.  */ 


/*  Max  number  Areas  */ 
/ *  Max  number  Regions  * / 
/*  Max  number  of  Flares  */ 
/*  Max  number  Grid  Mesh  */ 


/*  Max  num  Surface  Albedos  */ 
/*  Max  num  Mtrl  Composites  */ 
/*  Max  Material  per  Region  */ 
/*  Max  number  Spherical  Harm*/ 


#define  NV 
#define  NA 
#define  ITN 
#def ine  ITN1 
#def ine  MAXMX 
# define  MAXMY 
#def ine  MAXMZ 
#def ine  MAX_LEN__X  10 
#def ine  MAX__LEN_Y  10 
#def ine  MAX  LEN  Z  12 


/* 

47 

5 

(ITM+1) *NA 

ITN+1 

40 

40 

40 


Max  Output  Array  Dimensions  */ 

/*-  Max  number  Wave  Number  */ 
/*  Num  of  Atmospheric  Layrs  */ 
/*  Num  misc.  coefficients  */ 
/*  ITN  +1  */ 

/*  Max  number  X  grid  points  */ 
/*  Max  number  Y  grid  points  */ 
/*  Max  number  Z  grid  points  */ 
/*  Max  X  BLIRB  Box  (km)  */ 

/*  Max  Y  BLIRB  Box  (km)  */ 

/*  Max  Z  BLIRB  Box  (km)  */ 


#define  MAX(X/Y)  ((X)  >  (Y)  ?  (X)  :  (Y) ) 

#def  ine  MAXXYZ  MAX  (MAXMX,  MAX  (MAXMY,  MAXMZ)  )  /*  Max  (MAXMX,  MAXMY,  MAXMZ)  */ 


* 

* 


-  Structure  and  Function  Pointer  Prototypes 


*/ 

typedef  struct  _mov  { 

float  magf actor; 
int  ndx; 
int  ndy; 
int  tdx ; 
int  tdy; 

}  MOVEPLOT,  *PL0TPTR; 


/*  Plot  Magnification  Factor  */ 
/*  Left  Mouse  Posn  in  X  dir  */ 

/*  Left  Mouse  Posn  in  Y  dir  */ 

/*  Rgt  Mouse  Posn  in  X  dir  */ 

/*  Rgt  Mouse  Posn  in  Y  dir  */ 


typedef  void  (*FctnPointer) ; 

*  -  Procedure  (function)  Prototypes 

*/ 

void  main (int  argc,  char  **argv) ; 


/* - : - 

*  -  Widget  creation  functions 

_ 

*/ 

Widget  create_menubar (Widget  w) ; 
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void  create_f ilemenu (Widget  w) ; 

void  create_viewmenu (Widget  w) ; 

void  create_outputsmenu (Widget  w) ; 

void  create_modifymenu (Widget  w)  ; 

void  create_helpmenu (Widget  w,  Widget  helpcas) ; 

void  create_axismenu (Widget  w) ; 

void  create_sunmenu (Widget  w)  ; 

void  create_zoommenu (Widget  w) ; 

void  create_f luxmenu (Widget  w) ; 

void  create_csectmenu (Widget  w) ; 

void  create_cvaluemenu (Widget  w) ; 

void  create_wavemenu (Widget  w) ; 

void  create_areamenu (Widget  w) ; 

void  create_arealmenu (Widget  w,  int  *n)  ; 

void  create_regionmenu (Widget  w)  ; 

void  create_regionlmenu  (Widget  w,  int  *n)  ; 

void  create_f larmenu (Widget  w) ; 

void  create_flarlmenu (Widget  w,  int  *n)  ; 

void  create_srchmenu (Widget  w) ; 

void  create_jneshmenu  (Widget  w)  ; 

void  create_spectmenu (Widget  w) ; 

void  create_message (Widget  w,  char  *string[],  unsigned  char  dialogtype) ; 
void  create_messagef (Widget  w,  char  *st ring [] , unsigned  char  dialogtype); 
Widget  create_rowcol (Widget  w,  char  *label,  FctnPointer  cbfctn) ; 

Widget  create_bboard (Widget  w,  char  *label) ; 

Widget  create_togglebutton (Widget  w,  char  *tog_label,  int  *index, 

FctnPointer  cbfctn) ; 

Widget  create__radiobox  (Widget  w,  int  *nc,  char  *cat_label)  ; 

Widget  create_scale (Widget  w,  char  *scale_label ,  int  *wid,  int  *min, 

int  *max,  int  *inc,  int  *dec,  int  *val,  int  *swid, 
int  *index,  FctnPointer  cbfctn) ; 
void  create__separator  (Widget  w,  int  *hv,  int  *sd)  ; 

void  create_cascadebutton (Widget  w.  Widget  pane,  char  label  [] ,  int  nm)  ; 
void  create_pushbuttons (Widget  w,  int  net,  int  index [],  char  *label  [] , 

int  nm[] ,  FctnPointer  cbfctn); 

void  create_pushbuttonss (Widget  w,  int  *index,  char  *label,  int  nm, 

FctnPointer  cbfctn) ; 

void  create _pushbuttonfn (Widget  w,  char  *fctn_key,  char  *fc_key, 

char  *button_label,  int  nm_key, 

FctnPointer  cbfctn) ; 

void  create_buttonsf  (Widget  w,  int  net,  int  index  [],  char  *f ctn__key  []  , 

char  *fc_key[] ,  char  *button_label [] , 
int  nm_key[] ,  FctnPointer  cbfctn) ; 

/* - - 

*  -  Data  input,  output,  check,  and  miscellaneous  functions 


*/ 

void  newfile  (void) ; 
void  fileopen  (void) ; 
void  blirb_inout (void) ; 
void  getdata (void) ; 
void  readcards (void) ; 
void  checkinputs (void) ; 
void  readoutput (FILE  *fp) ; 
void  set_albedo (void) ; 
void  set_aerosol (void) ; 
void  set_mtrl_color (void) ; 
void  order_mtrl (void) ; 
void  order_albd (void) ; 
void  set_axis_pts (void) ; 
void  writecards (void) ; 


void  reset (void) ; 
void  model2 (void) ; 
void  flar2 (int  ind) / 
void  albedo_chg (void) ; 
void  obsc (void) ; 
void  plot_out_def 1 (void) ; 
void  area__f  ix  (void)  ; 
void  regn_f  ix  (void)  ; 
void  regn_mtll (void) ; 
void  aeroO(int  *n) ; 
void  aerol (void) ; 
void  aero2 (void)  ; 
void  aero3 (void) ; 
void  albeO(int  *n)  ; 
void  albel(int  *n)  ; 
void  albe2 (void) ; 
void  albe3 (void) ; 
void  mtrlO(int  *n)  ; 
void  mtrll(int  *n)  ; 
void  mtrl2 (int  *n) ; 
void  mtrl3 (int  *n) ; 
void  mtrl4 (int  *n) ; 
void  mtrl5(int  *n) ; 
void  mtrl6(int  *n) ; 
void  mtrl7(int  *n) ; 
void  mtrl8 (int  *n) ; 
void  mtrl9(int  *n) ; 

XmString  xstr2xmstr (char  *chararray []  ,  int  n)  ; 

/* - : - 

*  -  GL  window  plot  related  functions 

*  - 

*/ 

void  drawscene (void) ; 

void  dist_sun (void) ; 
void  plot_sun (void) ; 

void  plot_areas (void) ; 

void  plot_axes (void) ; 
void  plot_xaxis (void) ; 
void  plot__yaxis  (void)  ; 
void  plot_zaxis (void) ; 

void  plot_regions (void) ; 

void  regn_sides (float  regn_vertex [8] [3] ) ; 
void  bottom_f ace (float  regn_vertex [8]  [3]  ) ; 
void  left_face (float  regn_vertex [8]  [3]  )  ; 
void  right_f ace (float  regn_vertex [8]  [3]  ) ; 
void  front_f ace (float  regn_vertex [8] [3]); 
void  back_f ace (float  regn_vertex [8] [3] ) / 
void  top_f ace (float  regn_vertex [8] [3]); 

void  plot _ f lars (void) ; 

void  plot_slite (void) ; 

void  plot__f  lux  (void)  ; 

void  plot___flux_axis  (int  out_indx[3],  int  cur_imx)  ; 

void  plot_f  lux_tran  (int  out_indx[3],  int  cur__imx,  int  which_flux)  ; 

void  plot_flux_base (int  out_indx[3],  int  cur_imx,  int  which_flux) ; 
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Callback  functions 


/*- 
* 

*  _ 

*/ 

void  okCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  okfCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  cancelCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  cancelobCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  canceloCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  cancelsCB  (Widget  w,  XtPointer  c,  XtPointer  call__data)  ; 

void  cancelaCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  cancelbCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) / 

void  cancelbbCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  cancelrCB  (Widget  w,  XtPointer  c,  XtPointer  call__data) ; 

void  cancelmCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  cancelmeCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  cancelfCB  (Widget  w,  XtPointer  c,  XtPointer  call_data)  ; 

void  cancelslCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  helpCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  exitCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  initCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  exposeCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  resizeCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  inputCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  resetCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  fileCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  checkf iletypeCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  newfCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  savefileCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  savefileasCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) / 

void  getf ilenameCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  zoomCB  (Widget  w,  XtPointer  c,  XtPointer  call__data)  ; 

void  minor_gridCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  axisCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  fluxCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  cross_sectionCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  transCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  sun_posCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  sunCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  obscCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  planeCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  waveCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  model_optCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  modelCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  model3CB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  cloud_optCB (Widget  w7  XtPointer  c,  XtPointer  call__data) ; 

void  cloudCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  aerosol_optCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  aerosolCB  (Widget  w;  XtPointer  c,  XtPointer  call__data)  ; 

void  aerosOCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  metrng_optCB  (Widget  w,  XtPointer  c#  XtPointer  call__data)  ; 

void  metrngCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  area_optCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  areaCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  area_locCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  area_delCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  area_albCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  albedolCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  albedlCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  albedo2CB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  albed2CB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  albeOCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
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void  albedo3CB (Widget  w7  XtPointer  c,  XtPointer  call_data) ; 
void  albed3CB (Widget  w7  XtPointer  c,  XtPointer  call_data) ; 
void  regn_optCB (Widget  w,  XtPointer  c7  XtPointer  call_data) ; 
void  regnCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  regn_locCB (Widget  w,  XtPointer  c7  XtPointer  call_data) / 

void  regn_delCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  regn_mtlCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  mtrlCB (Widget  w7  XtPointer  c7  XtPointer  call_data) ; 
void  mtrlOCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  mtrllCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  denmtlCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  meshxmenuCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  meshymenuCB (Widget  w,  XtPointer  c7  XtPointer  call_data) ; 
void  meshzmenuCB (Widget  w7  XtPointer  c7  XtPointer  call_data) ; 
void  meshCB (Widget  w,  XtPointer  c7  XtPointer  call_data) ; 
void  flar__optCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  flarinCB  (Widget  w,  XtPointer  c,  XtPointer  call__data)  ; 
void  flar3CB (Widget  w7  XtPointer  c,  XtPointer  call_data) ; 
void  flar_JLocCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  flar_delCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  srch_optCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  srchinCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  srch_locCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  srch_delCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  sun_optCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  suninCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  spect_optCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  spectCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  spectlmenuCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  spectlCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  comp_optCB (Widget  w7  XtPointer  c,  XtPointer  call_data) ; 
void  compCB (Widget  w#  XtPointer  c,  XtPointer  call_data) ; 
void  output_optCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  output CB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  help_generalCB (Widget  w7  XtPointer  c,  XtPointer  call_data) ; 
void  help_fileCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  he lp_viewCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  help_fluxCB (Widget  w,  XtPointer  cf  XtPointer  call_data) ; 
void  help_modifyCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  help_resetCB (Widget  w,  XtPointer  c,  XtPointer  call_data) / 
void  help_rotationCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  help_translationCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 
void  help_axisCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  help__sunoCB  (Widget  w,  XtPointer  c,  XtPointer  call_data)  ; 

void  help_zoomCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  help_togCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  help_optCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  help_orCB (Widget  w,  XtPointer  c,  XtPointer  call_data) / 
void  help_valCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  help_waveCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  help_modCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  help_regCB (Widget  w7  XtPointer  c,  XtPointer  call_data) ; 

void  help_areaCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 
void  help_meshCB (Widget  w7  XtPointer  c,  XtPointer  call_data) ; 
void  help_cldCB (Widget  w,  XtPointer  c,  XtPointer  call_data) ; 

void  help_sunCB (Widget  w7  XtPointer  c7  XtPointer  call_data) ; 

void  help_flareCB (Widget  w,  XtPointer  c7  XtPointer  call_data) ; 

void  help_sliteCB (Widget  w7  XtPointer  c7  XtPointer  call__data) ; 

void  help_spectCB (Widget  w7  XtPointer  c7  XtPointer  call_data) ; 

void  he lp__compCB (Widget  w7  XtPointer  c7  XtPointer  call_data) ; 
void  he lp_outCB (Widget  w7  XtPointer  c7  XtPointer  call_data) ; 
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Appendix  B 
Listing  of  BUFR.H 


*  -  Definitions 

*/ 

#def ine  MISSING  999999 
#define  RLEN  190 
#def ine  SEQ_SIZE  1200 


#define  LOCC  111 

#def ine  MODEL  1 

#define  DBSN  0 

#def ine  BB  55 

#def ine  YYI  1 

#def ine  YYO  120 

#define  YYM  147 

#define  DD  25 


/*  missing  value  indicator  */ 
/*  Input  Record  Length  bytes*/ 
/*  Size  of  sequence  array  */ 

/*  ARL-WSMR  Specific  Values  for  debugging  */ 

/*  Local  Orig  Center  Code  */ 
/*  Model  Identifier  */ 

/*  Database  Sequence  Number  */ 

/*  BUFR  "xO"  from  Table  B  */ 
/*  init  yO  for  BLIRB  inputs  */ 
/*  init  yO  for  BLIRB  outputs*/ 
/*  maximum  yO  for  BLIRB  data*/ 

/*  BUFR  "xO"  from  Table  D  */ 


*  -  Structure  Prototypes 

*7 

/* - - - 

*  Identification  section 

*  _ ______ 

*/. 

struct  identif 
{ 


long  length;  /*  length  of  section  */ 
int  master_tbl;  /*  master  table  (zero  if  standard  WMO  FM  94-IX)  */ 
unsigned  orig_cntr;  /*  originating  centre  Code  table  0  01  031  */ 
int  updt_seq;  /*  update  sequence  number  (0  for  original  BUFR)  */ 
int  opt_sec;  /*  optional  section  0  missing,  1  exists  */ 
int  msg__type ;  /*  BUFR  message  type  TABLE  A  */ 
int  msg_subtype;  /*  BUFR  message  type  defined  by  local  ADP  */ 
int  mstr_vrsn;  /*  master  table  version  (currently  2)  */ 
int  locl_vrsn;  /*  local  table  version  */ 
int  year;  /*  year  of  century  */ 
int  month;  /*  month  */ 
int  day;  /*  day  */ 
int  hour;  /*  hour  */ 
int  minute;  /*  minute  */ 
int  locc;  /*  local  originating  center  code  */ 
int  model;  /*  model  identifier  */ 
int  second;  /*  second  */ 
unsigned  dbsn;  /*  database  sequence  number  */ 
}  ' 


*  -  Structure  table_b  holds  the  information  about  element 

*  descriptors,  their  scale  value,  reference  value,  #  of  bits  and 

*  units . 


*/ 

struct  table  b 

{ 

long  descriptor;  /*  element  descriptor  */ 
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int  scale; 

/*  scaling  factor 

*/ 

long  ref_val; 

/*  reference  value 

*/ 

int  data_width; 

/*  data  width 

*/ 

char  units [32] ; 

/*  units 

*/ 

}  ; 


/* - 

*  -  Structure  table_d  holds  information  about  sequences,  number  of 

*  descriptors  that  are  associated  to  a  sequence,  and  the  index  of 

*  the  first  descriptor  in  the  seq_desc  array. 

*  _ 


*/ 

struct  table  d 

{ 

long  sequence; 
long  seq^index; 


long  seq_expand; 


}; 


/*  sequence  descriptor 

/*  pointer  to  where  the  first  descriptor 
associated  to  this  sequence  is  stored  in 
seq_desc  array 

/*  number  of  descriptors  associated  to  this 
sequence 


*/ 


*/ 

*/ 


/* - 

*  -  Structure  to  hold  the  operands  modifications 


*/ 

struct  operation 


int  dt_width_op;  /*  value  for  change  data  width  */ 

int  scale_op;  /*  value  for  change  scale  */ 

long  ref _val_op ;  /*  value  for  change  reference  value  */ 

long  assoc_fld;  /*  the  significance  of  associated  field 

(0  31  021)  */ 

long  assoc  width;  /*  the  size  of  the  associated  field  */ 

} ;  ~ 


*  -  Procedure  (function)  Prototypes 

*/ 

void  main(int  argc,  char  **argv) ; 

void  Parselnput (int  argc,  char  **argv) ; 

void  read_table_b (void) ; 

void  read_table_d (void) ; 

void  section_0 (void) ; 

void  sectionJL (void) ; 

void  write_data  (long  out;  char  *tempx,  int  size__byte)  ; 
void  readcards (void) ; 

void  out_data (char  cl,  char  c2 ,  char  c3 ,  char  c4,  int  net,  float  x[10], 
unsigned  long  *n4,  int  desc) ; 

void  putbits (unsigned  long  *n,  long  input,  int  *bit,  int  inbits, 

FILE  *sx,  long  *out_len) ; 

void  readoutput (unsigned  long  *n4,  unsigned  long  *n3) ; 

void  get_trans (int  yO,  int  *scale,  int  *width,  float  *ref ) ; 

void  group_bytes (unsigned  long  *n4,  unsigned  long  *n3,  float  *data, 

long  net,  int  scale,  int  nochg,  int  width,  float  ref, 
int  param) ; 

void  write_bytes (unsigned  long  *n4,  unsigned  long  *n3,  float  *data, 

long  net,  int  scale,  int  nochg,  int  width,  float  mini, 
float  maxi,  long  zero,  float  ref,  int  param) ; 
void  factor(long  net,  long  *nctl,  long  *nct2,  long  *nct3,  long  *nct4)  ,* 
void  gbyte (unsigned  long  *iout,  int  nbyte) ; 
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void  bufridenti (struct  identif  *id)  ; 

void  bufrgetind (int  file,  int  *fin,  unsigned  long  *status) ; 
void  get_data (void) ; 

void  bufruncomp (struct  operation  *oper) ; 
void  write_f ile (char  *string,  long  index); 
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Appendix  C 

Listing  of  BLIRB_EN.C 


#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 


<  string .  h>~ 
<stdio . h> 
<math.h> 

<f cntl .h> 
<ctype.h> 
<time . h> 
<stdlib . h> 
"bufr .h" 


/*  Prototypes  &  Definitions 


Array  declarations  and  assignments 


/*  Main  Structures 


/*  Filename  and  I/O  Variables  */ 
/*  BLIRB  Data  Filename  */ 

/*  Pointer  to  Input  File  */ 

/*  Pointer  to  Output  File  */ 
/*  Pointer  to  Sect  0  tempfil*/ 
/*  Pointer  to  Sect  1  tempfil*/ 
/*  Pointer  to  Sect  3  tempfil*/ 
/*  Pointer  to  Sect  4  tempfil*/ 


struct  table  b  *tbl  b; 


char  *file_name; 

FILE  *  f p ; 

FILE  *fpo ; 

FILE  *fpoO ; 

FILE  *fpol ; 

FILE  *fpo3 ; 

FILE  *  fpo4 ; 
static  char  *tempO  = 
static  char  *templ  = 
static  char  *temp3  = 
static  char  *temp4  = 
long  outO,  outl,  out 3 
int  bitO,  bitl,  bit3, 
long  out__length; 
int  counter; 


float  mdlljmodel;  /*  The  BLIRB  Temp  model  */ 

float  domd_isc;  /*  Order  Spherical  Harmonic  */ 

float  wavn_vl ,  wavn__v2 ,  wavn_dv ;  /*  Wavenumber  info  */ 

int  out__imx  [3 ]  ;  /*  Num  of  X,  Y,  &  Z  grid  pt  */ 

int  out_nwave ;  /*  Number  of  Waves  */ 

/****************************************************************^^+**** 

*  VOID  MAIN 
*********************************************************************** 
*<Begin> 

*< Identification  Name:  main 

*  Type:  C  Main  Program 

*  Filename:  blirb_en.c 

*  Parent :  None 


'tempo . tmp" ; 

/*  Tempfile  0  name 

*/ 

'tempi . tmp" ; 

/*  Tempfile  1  name 

*/ 

1  temp 3 . tmp" ; 

/*  Tempfile  2  name 

*/ 

'temp4 . tmp" ; 

/*  Tempfile  3  name 

*/ 

out 4  ; 

/*  Num  bytes  in  Sect  0-4 

*/ 

bit4 ; 

/*  Bits  counts  in  Sect  0-4 

:*/ 

/*  Num  bytes  in  output  file 

*/ 

/*  Num  records  in  Table  B 

*/ 

/*  BLIRB  Input /Output  Variables 

*/ 

mesy,  mesz, 

albd,  mtrl,  reel;  /*  Input  card  ent 

*/ 

/*  The  BLIRB  Temp  model 

*/ 

/*  Order  Spherical  Harmonic 

*/ 

,  wavn__dv ; 

/*  Wavenumber  info 

*/ 

/*  Num  of  X,  Y,  Sc  Z  grid  pt 

*/ 

/*  Number  of  Waves 

*/ 

*<Description> 

*  This  program  encodes  a  BLIRB  ASCII  output  file  into  a  binary 

*  output  file  using  the  BUFR  encoding  system. 


*<Called  routines> 

*  Parselnput 

*  read__table_b 

*  section_0 

*  section  1 


parses  the  command  line  inputs 
reads  the  structure  records  from  Table_B 
generates  section  0  BUFR  temporary  file 
generates  section  1  BUFR  temporary  file 


no 


*  readcards 

* 

*  write_data 

* 

===____ 


-  reads  the  BLIRB  input  records  and  writes 
them  to  a  binary  output  file. 

-  reads  the  BUFR  data  from  a  temporary  file 
and  writes  it  to  final  composite  file 


*< Parameters > 

*  Formal  declaration: 

*  void  main(int  argc, 

*  Input : 

*  argc 

*  argv 

* 

*  Output : 

*  None 

*========================== 


char  **argv) 

(int)  the  number  of  command  lines  inputs 
(char  pointer)  the  array  of  command  lines 
inputs 


*<History> 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 
*__=_-.___________=:  =  :_  =  ___;__--_-.====__  =  =  =  =  =  =  =  ===__=:  =  =  =  =  =  =;_-  =  _  =  ===:=:  =  : 


*<End> 

*********************************************************************** 

*/ 

void  main (int  argc,  char  **argv) 

{ 

int  loop; 


tbl_b  =  NULL; 
read_table_b ( ) ; 
if (tbl_b  ==  NULL) 

{  printf ( "Could  not  get  the  records  from  Table_B . \n" ) ; 
printf ( "Program  Aborting ! \n" ) ; 
exit (0) ; 

} 


Parselnput (argc,  argv) ; 

out_length  =  (long)0; 

section_0 ( ) ; 
section_l () ; 
readcards ( )  ; 


out_length  +=  out3; 
out_length  +=  out4; 
out_length  +=  (long) 4; 

free (tbl_b) ; 

write_data (out_length,  tempo,  4); 
write_data (outl,  tempi,  0); 
write_data (out3 ,  temp3,  0); 
write_data (out 4 ,  temp4,  0) ; 

for (loop  =  0;  loop  <  4;  loop++) 
fputc ( (char) 7,  fpo) ; 
f close (fpo) ; 

printf ( "\nSection  0  had  %81d  bytes\n",  outO) ; 
printf ( "Section  1  had  %81d  bytes \n " ,  outl); 
printf ( "Section  3  had  %81d  bytes\n",  out3) ; 
printf ( "Section  4  had  %81d  bytes \n " ,  out4) ; 
printf ( "Section  5  had  4  bytes\n"); 


in 


printf ( "There  were  %81d  bytes  total \n",  out_length) ; 
}  /*  end  main  ()  */ 


/*********************************************************************** 

*  VOID  PARSEINPUT 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  Parselnput 

*  Type :  C  void 

*  Filename:  blirb_en.c 

*  Parent:  main 

*<Description> 

*  Parses  the  command  line  inputs. 

*<Called  routines> 

*  None . 


*<Parameters> 


Formal  declaration: 

void  Parselnput (  int  argc,  char  **argv) 

Input : 

argc  -  (int)  the  number  of  command  lines  inputs 

argv  -  (char  pointer)  the  array  of  command  lines 

inputs 

Output : 

None 


*_____ = __  _ 
*<History> 

*  02/02/94 

* 

*  05/31/94 

* 

*  02/01/95 


CSC  Monterey,  CA  Mugur  Georgescu 
Probably  developed  the  original  source  code 
PL  Hanscom  AFB,  MA  Rodger  Biasca 
Probably  modified  the  original  source  code 
AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Modified  the  source  code  again 


*<End> 


*********************************************************************** 

*/ 

void  Parselnput (int  argc,  char  **argv) 
int  i,  status; 


status  =  0; 

for  ( i = 1 ;  i<argc;  i++) 

{  if (argv [i]  [0]  ==  '  -'  ) 

{  switch (argv [i] [1]) 

{  case  'o' : 

fpo  =  f open (argv [i+1] ,  "wb") ; 

fpoO  =  fopen( tempo,  "wb")  ; 
fpol  =  f open (tempi,  "wb"); 
fpo3  =  fopen(temp3,  "wb"); 
fpo4  =  fopen(temp4,  "wb"); 
break; 
case  7 i#  : 

file_name  =  argv[i+l]; 
fp  =  fopen (f ile_name,  "r" ) ; 
break ; 
default : 

status  =  1; 
break; 

} 
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if (status  ==  1  ]  j  fpo  ==  NULL  |  j  fp  ==  NULL) 

{  printf ("Usage:  bufr_enc  -o  outfile  -i  infile\n"); 
exit (0) / 

}  /*  end  ParselnputO  */ 


V°ID  SECTI0N->° 


*<Begin> 

*<Identif ication> 
* 

* 

* 


Name : 
Type: 
Filename : 
Parent : 


section_0 
C  void 
blirb_en.c 
main 


*<Description> 

*  Generates  the  BUFR  section  0  temporary  output  file. 

*<Called  routines> 

*  None . 


*<Parameters> 

*  Formal  declaration: 

*  void  section_0 (void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  section  0 (void) 

{ 

unsigned  long  nO; 
long  nn; 


nO  =  (unsigned  long)0; 
outO  =  (long)0; 
bitO  =  0; 


nn  =  ('B'  <<  8)  +  7U7 ; 

putbits(&n0,  nn,  &bit0,  16,  fpoO,  &out0) ; 
nn  =  (7F7  <<  8)  +  7 R7 ; 

putbits(&n0,  nn,  &bit0,  16,  fpoO,  &out0) ; 
putbits (&n0,  0,  &bit0,  24,  fpoO,  &out0) ; 
putbits(&n0,  2,  SbitO,  8,  fpoO,  &out0) ; 

out_length  +=  outO; 
fclose (fpoO) ; 

}  /*  end  section_0()  */ 

/*********************************************************************** 
*  VOID  SECTION_l 

********************************************** ** *********************** 
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*<Begin> 

*<Identif ication> 


Name 

Type 

Filename 

Parent 


section_l 
C  void 
blirb_en. c 
main 


* 

* 

* 

*<Description> 

*  Generates  the  BUFR  section  1  temporary  output  file. 

*<Called  routines> 

*  None . 

*<Parameters> 

*  Formal  declaration: 

*  void  section_l (void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  section  1 (void) 

{ 

time_t  ltime; 
struct  tm  * times ; 
unsigned  long  nl; 
char  cl; 
int  loop; 

nl  =  (unsigned  long)0; 
bitl  =  0; 
outl  =  (long)0; 
putbits (&nl ,  0,  &bitl, 
putbits ( &nl ,  0,  &bitl, 
putbits (&nl,  128 ,  &bitl 
putbits ( &nl ,  0 ,  &bitl , 
putbits (&nl,  0,  &bitl, 
putbits (&nl,  255,  &bitl 
putbits ( &nl ,  0 ,  &bitl , 
putbits (&nl,  3,  &bitl, 
putbits (&nl,  0,  &bitl , 


24,  fpol,  &outl) ; 

8,  fpol,  &OUtl) ; 

16,  fpol,  &outl) ; 
8,  fpol,  fcoutl) ; 

8,  fpol,  fcoutl) ; 

,  8,  fpol,  &outl) ; 
8,  fpol,  &OUtl) ; 

8,  fpol,  fcoutl) ; 

8,  fpol,  &OUtl) ; 


ltime  =  time (NULL) ; 
times  =  localtime (fcltime) ; 


putbits (&nl, 
putbits (&nl, 
putbits (&nl, 
putbits (&nl, 
putbits (&nl, 
putbits (&nl, 
putbits (&nl, 
putbits (&nl, 
putbits (&nl, 


(long) (*times) .tm_year,  fcbitl,  8,  fpol,  &outl) ; 
(long) ( (*times) . tm_mon+l) ,  &bitl,  8,  fpol,  &outl) ; 
(long) (* times ) .tm_mday,  &bitl,  8,  fpol,  &outl); 
(long) (*times) .tm_hour,  &bitl,  8,  fpol,  &outl); 
(long) (*times) .tm_min,  &bitl;  8,  fpol,  &outl); 
(long) LOCC,  &bitl,  8,  fpol,  &outl); 

( long ) MODEL,  &bitl,  8,  fpol,  &outl); 

(long) (* times) . tm_sec ,  &bitl,  8,  fpol,  &outl) ; 
(long) DBSN,  &bitl,  16,  fpol,  &outl) ; 


if (bitl  >  0) 
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{  loop  =  0; 

nl  <<=  (32  -  bitl) ; 
while  (bitl  >  0) 

{  cl  =  (char) ( (nl  <<  (8  *  loop))  >>  24); 
f put c ( cl ,  fpol) ; 

OUtl++ ; 

bitl  -=  8; 
loop++; 


if(outl  %  (long) 2  ==  (long)l) 
{  fputc ( (char) 0,  fpol); 
outl++ ; 

} 


out__length  +=  outl; 
f close (fpol) ; 

}  /*  end  section_l()  */ 


^ *  VOID  READ  TABLE  B 


*<Begin> 

*<Identif ication>  Name: 

*  Type : 

*  Filename: 

*  Parent : 
*=============================== 


read_table_b 
C  void 
blirb_en. c 
main 


*<Description> 

*  Reads  the  BUFR  descriptors  from  Table_B. 


*<Called  routines> 
*  None . 


*<Parameters> 

*  Formal  declaration: 

*  void  read_table_b (  void) 

*  Input : 

*  None . 

*  Output : 

*  None 


*<History> 

*  02/02/94  CSC  Monterey,  CA  Mugur  Georgescu 

*  Probably  developed  the  original  source  code 

*  05/31/94  PL  Hans com  AFB,  MA  Rodger  Biasca 

*  Probably  modified  the  original  source  code 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Modified  the  source  code  again 


*<End> 

1e1cicic**ieieieicicici'ie***icie1iie1cie*1e****  +  ieieicic1e*1e1eie**je*ieieieie1r*1eie'k'k'k'k'k'k'k’k'k'k'k'kie1e‘k'k,ie1e'k‘k 
*/ 

void  read  table  b (void) 

{ 

FILE  *ftb; 

long  fO,  xO,  y0,  scale,  ref,  width; 
int  size,  num; 

char  card [RLEN] ,  name [200],  unit [16]; 


size  =  50; 
num  =  0 ; 


if((ftb  =  fopen ( "table_b" ,  "r"))  ==  0) 

{  printf ( HTableJ3  file  not  found.  Program  Aborting ! \n" ) ; 
exit (0) ; 

} 

else 

{  tbl_b  =  (struct  table_b  *)  malloc  (sizeof  (struct  table__b)  *  size); 

while  ( !  feof  (ftb)  ) 

{  fgets(card,  RLEN,  ftb); 

sscanf (card,  " %ld%ld%ld%ld%ld%ld%s%s »' ,  &f0,  &x0,  &y0, 
kscale,  &ref ,  &width,  unit,  name) ; 

tbl_b [num] . descriptor  =  fO* (long) 100000  +  xO* (long) 1000  +  yO ; 

tbl_b [num] . scale  =  (int)scale; 

tbl_b [num] . ref_val  =  ref; 

tbl_b [num] . dat a_width  =  ( int ) width ; 

strcpy (tbl_b [num] .units,  unit) ; 


num++ ; 

if (num  >=  size) 

{  size  +=  50; 

tbl_b  =  (struct  table_b  *)  realloc (tbl_b, 
sizeof (struct  table_b)  *  size) ; 


counter  =  num  -  1; 
f close (ftb) ; 

}  /*  end  read_table_b ()  */ 

/********************************************************* ************** 
*  VOID  WRITE_DATA 

*********************************************************************** 
*<Begin> 


*<Identif ication> 


Name 

Type 

Filename 

Parent 


write_data 
C  void 
blirb  en.c 


*<Description> 

*  Reads  the  BUFR  data  from  a  temporary  file  and  writes  it  to  the 

*  final  composite  BUFR  output  file. 


*<Called  routines> 

*  None . 

*<Parameters> 

*  Formal  declaration: 

*  void  write_data (long  out,  char  *tempx,  int  size_byte) 

*  Input : 

*  out  -  the  number  of  bytes  in  this  section 

*  *tempx  -  Name  of  the  temporary  output  file 

*  size_byte  -  first  byte  to  hold  the  section  size 

*  Output : 

*  None 

*<History> 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 


*<End> 
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*********************************************************************** 

*/ 

void  write  data (long  out,  char  *tempx,  int  size  byte) 

{ 

static  int  iter  =  0; 
long  nn,  cnt; 
char  cl; 

FILE  *f pox; 

iter++; 
if (iter  ==  1) 
cnt  =  (long) 8; 
else 

cnt. =  out; 


fpox  =  fopen(tempx,  nrbn) ; 

for  (nn  =  (long)0;  nn  <  cnt;  nn++) 
{  cl  =  fgetc(fpox); 


if (nn  ==  size_byte) 

{  cl  =  (char)  ((out  <<  8)  >>  24); 

fputc(cl,  fpo) ; 

} 

else  if (nn  ==  size_byte  +  1) 

{  cl  =  (char)  ((out  <<  16)  >>  24); 

fputc(cl,  fpo)  ; 

ehse  if (nn  ==  size_byte  +  2) 

{  cl  =  (char)  ((out  <<  24)  >>  24); 

fputc(cl,  fpo) ; 

else 

fputc(cl,  fpo); 

} 


f close (fpox) ; 
remove  (tempx)  ; 

}  /*  end  write_data()  */ 


/*********************************************************************** 
*  VOID  READCARDS 

*********************************************************************** 


*<Begin> 

*<Identif ication> 
* 

* 

* 

*  =  =  =  =  =  =  =  =  =  =  =  =  =  =:  =  =  ; 


Name: 
Type: 
Filename : 
Parent : 


readcards 
C  void 
blirb_en. c 
main 


*<Description> 

*  Reads  the  BLIRB  input  records  from  the  BLIRB  output  file  and 

*  encodes  the  records  into  the  BUFR  binary  output  file. 


*<Called  routines> 

*  readoutput 

* 

*===== __________  ______ 


-  reads  BLIRB  output  from  the  output  file 
and  encodes  the  data  in  the  BUFR  format 


*<Parameters> 

*  Formal  declaration: 

*  void  readcards (  void) 

*  Input : 

*  None 
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*  Output : 

*  None 

*<History> 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  readcards (void) 

{  ' 

char  cardlabel [5]  ,  card [RLEN] ,  c [5]  ; 

unsigned  long  n3 ,  n4 ; 

float  x [10] ,  ref; 

long  nn,  y [10] ; 

int  j ,  w [10] ,  sea; 

int  loop; 


/* - 

*  -  Initialize  the  Input  Card  Type  Counters 


*/ 

n4  -  (unsigned  long)0; 
out 4  =  (long) 0 ; 
bit4  =  0; 

putbits ( &n4 ,  0,  &bit4 ,  32,  fpo4,  &out4) ;  /*  Number  bytes  in  Sect  4  */ 


n3  =  (unsigned  long)0; 
out 3  =  (long)0; 
bit3  =  0; 


putbits ( &n3 ,  0, 

&bit3 , 

32,  fpo3,  &out3 ) ; 

/* 

Number  bytes  in  Sect  3 

*/ 

putbits (&n3 ,  1, 

&bit3 , 

16 ,  fpo3 ,  &out3) ; 

/* 

data  subset  =  1 

*/ 

putbits (&n3,  0, 

&bit3 , 

8,  fpo3 ,  &OUt3) ; 

/* 

"other"  data  &  no  comp. 

*/ 

area  =  regn  =  mesx  =  mesy  =  mesz  =  albd  =  mtrl  =  reel  =  -1 ; 

do  /*  From  VIEW. R JOB  Subroutine*/ 

/* - 

*  -  Read  a  BLIRB  input  card  from  the  file. 


*/ 

{  fgets(card,  RLEN,  fp) ; 


/* - 

*  -  Get  the  first  5  characters  (card  identifier)  from  the  card. 

*  _ _ _ 

*/ 

sscanf (card,  "%s",  cardlabel); 


/* - 

*  -  Process  the  rest  of  the  card  depending  upon  the  identifier. 


if (strnemp (cardlabel , "MDL1" , 4)  ==  0) 

{  sscanf  (card,  "%s%10e%10e%10e%10e%10e" ,  c,  &x[0],  &x[l],  Six  [  2], 
&x[3]  ,  Six  [4]  )  ; 
mdll_model  =  x[l] ; 

out_data  ( ' M '  ,  'D' ,  'L',  '  l' ,  5,  x,  Scn4,  YYI  +  l)  ; 


else  if (strnemp (cardlabel, "MDL2 ", 4)  ==  0) 
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{  sscanf(card,  "%s%10e%10e%10e%10e" ,  c,  &x[0],  &x[l],  &x[2],  &x[3]); 
OUt_data ( ' M ' ,  'D' ,  'L',  '2',  4,  x,  &n4,  YYI  +  7) ; 

if ( (int)mdll_model  !=  7) 

{  fgets(card,  RLEN,  fp)  ; 

sscanf(card,  "%ld%ld%ld%ld%ld%ld%ld" ,  &y[0]  ,  &y[l]  ,  &y[2]  , 

&y[3],  &y[4],  &y[5]  ,  &y[6]  )  ; 

for  (j  =  0;  j  <  7;  j++) 

{  get_trans ( j  +  YYI  +  18(  &sca,  &w[j]  ,  &ref) ; 
if (sea  ! =  0) 

y [j]  *=  (long)  pow( (double) 10,  (double) sea) ; 
y[j]  -=  (long  )  ref  ; 

putbits ( &n4 ,  y[j],  &bit4,  w[j],  fpo4,  &out4) ; 


else  if  (strncmp(cardlabel, ''MDL3",4)  ==  0) 

{  sscanf (card,  "%s%10e%10e%10e%10e%10e%10e" ,  c,  &x[0],  &x[l],  &x[2], 
&x[3]  ,  &x  [4]  ,  &x  [5] )  ; 

out_data ( ' M' ,  'D',  'L' ,  '3',  6,  x,  &n4,  YYI  +  12); 

fgets(card,  RLEN,  fp) ; 

sscanf (card,  "%ld%ld%ld%ld%ld%ld%ld" ,  &y[0] ,  &y[l] ,  &y[2],  &y[3] , 
&y[4],  &y[5],  &y  ( 6 ] )  ; 

for  (j  =  0;  j  <  7;  j++) 

{  get_trans(j  +  YYI  +  18,  &sca,  &w[j] ,  &ref) ? 
if (sea  ! =  0) 

y[j]  *=  (long)  pow( (double) 10,  (double) sea) ; 
y[j]  -=  (long)  ref; 

putbits(&n4,  y[j],  &bit4,  w[j] ,  fpo4,  &out4) ; 


else  if (strnemp (cardlabel , "AREA" , 4)  ==  0) 

{  area++;  /*  AREA  card  */ 

sscanf (card,  "%s%10e%10e%10e%10e%10e" ,  c,  &x[0] ,  &x[l],  &x[2] , 
&x[3]  ,  &x  [4]  )  ; 

out_data ( ' A' ,  'R' ,  'E',  'A',  5,  x,  &n4,  YYI  +  26); 


else  if (strnemp (cardlabel, "REGN" , 4)  ==  0) 

{  regn++;  /*  REGN  card  */ 

sscanf (card,  "%s%10e%10e%10e%10e%10e%10e%10e" ,  c,  &x[0],  &x[l], 
&x[2],  &x  [ 3 ]  ,  &x[4],  &x  [5]  ,  &x  [ 6 ]  )  ; 

OUt_data ( ' R ' ,  'E',  'G' ,  'N',  7,  x,  &n4,  YYI  +  32); 


else  if (strnemp (cardlabel , "MESX" , 4)  ==  0) 

{  mesx++ ;  /*  MESX  card  */ 

sscanf (card,  "%s%10e%10e" ,  c,  &x[0],  &x[l]); 
out_data('M' ,  'E' ,  'S',  'X',  2,  x,  &n4,  YYI  +  40); 


else  if (strnemp (cardlabel , "MESY" , 4)  ==  0) 

{  mesy++;  /*  MESY  card  */ 

sscanf  (card,  "%s%10e%10e" ,  c,  &x[0],  &x[l]),- 
out_data('M' ,  'E' ,  'S',  'Y',  2,  x,  &n4,  YYI  +  43); 
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else  if (strncmp (cardlabel , "MESZ" , 4)  ==  0) 

{  mesz++;  /*  MESZ  card  */ 

sscanf (card,  " %s%10e%10e" ,  c,  &x[0],  &x[l]); 
out  data { '  M'  ,  'E',  'S',  'Z',  2,  x,  &n4 ,  YYI  +  46); 

} 

else  if (strncmp (cardlabel , "ALBD" , 4)  ==  0) 

{  albd++ ;  /*  ALBD  card  */ 

sscanf (card,  "%s%10e%10e%10e" ,  c,  &x[0],  &x[l],  &x [ 2 ] ) ; 

out  data ('A',  'L',  'B'(  'D' ,  3,  x,  &n4,  YYI  +  49); 

} 

else  if (strncmp (cardlabel, "MTRL" , 4)  ==  0) 

{  mtrl++;  /*  MTRL  card  */ 

sscanf (card, "%s%10e%10e%10e%10e%10e%10e" ,  c,  &x[0],  &x[l], 

&x[2],  &x  [  3  ]  ,  &x[4],  &x  [ 5 ]  )  ; 

out  data ( 'M' ,  'T'(  'R' ,  'L',  6,  X,  &n4,  YYI  +  53); 

}  " 

else  if (strncmp (cardlabel, "CLDS" , 4)  ==  0) 

{  sscanf (card,  " %s%l0e%10e%10e" ,  c,  &x[0],  &x[l],  &x[2]); 

out  data ( '  C'  ,  '  L'  ,  'D' ,  'S',  3,  x,  &n4 ,  YYI  +  60); 

}  “ 

else  if (strncmp (cardlabel, "DOMD" , 4)  ==  0) 

{  sscanf (card,  " %s%10e%10e%10e%10e%10e " ,  c,  &x[0],  &x[l],  &x[2], 

&x[3]  ,  &x[4]  )  ; 
domd_isc  =  x[0]; 

out  data ( ' D'  ,  'O',  'M' ,  'D' ,  5,  x,  &n4 ,  YYI  +  64); 

}  “ 

else  if (strncmp (cardlabel, "SUN" , 3)  ==  0) 

{  sscanf (card,  "%s%10e%10e%10e%10e%10e" ,  c,  &x[0],  &x[l],  &x[2], 

&x[3]  ,  &x[4]  )  ; 

out  data ('S',  'U' ,  'N' ,  '  5,  x,  &n4,  YYI  +  70); 

} 

else  if (strncmp (cardlabel, "WAVN" , 4)  ==  0) 

{  sscanf (card,  " %s%10e%10e%10e" ,  c,  &x  [  0  ] ,  &x[l],  &x[2]); 

x  [2]  =  (x[l]  -  x  [0]  )  /  x  [2  ]  ; 
wavn_vl  =  x[0]  ; 
wavn_v2  -  x[l]  ; 
wavn_dv  =  x  [  2  ]  ; 

out  data ( '  W'  ,  'A' ,  'V' ,  'N' ,  3,  x,  &n4 ,  YYI  +  76); 

}  " 

else  if  (strncmp  (cardlabel , ’'ASCI"  ,  4)  ==  0) 

{  sscanf (card,  "%s%10e",  c,  &x[0]); 

out  data ( '  A'  ,  'S',  'C',  'I',  1,  x,  &n4,  YYI  +  80); 

} 

else  if (strncmp (cardlabel , "RECL" , 4)  ==  0) 

{  reel  =0;  /*  RECL  card  */ 

sscanf (card,  "%s%10e",  c,  &x[0]); 

out  data ( ' R' ,  'E' ,  ’ C’ ,  'L',  1,  x,  &n4,  YYI  +  82); 

} 


else 

printf(M  Record  ID  %s  not  identified. \n" ,  cardlabel);  /*  Unknown*/ 
}  while  (reel  ! =  0); 
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putbits (&n3,  3,  &bit3,  2,  fpo3 ,  &out3) / 
putbits(&n3,  (long)DD,  &bit3,  6,  fpo3 ,  &out3) ; 
if ( (int) mdll_model  !=  7) 

putbits (&n3,  2,  &bit3,  8,  fpo3 ,  &out3) ; 
else 

putbits (&n3,  1,  &bit3,  8,  f po3 ,  &out3) ; 


if (area  >  0) 

{  putbits (&n3 ,  1;  &bit3,  2,  fpo3 ,  &out3); 
putbits (&n3,  1,  &bit3,  6,  fpo3 ,  &out3) ; 

putbits (&n3 ,  (long) (area  +  1.0),  &bit3,  8,  fpo3,  &out3) ; 

} 

putbits (&n3,  3,  &bit3,  2,  fpo3,  &out3) ; 
putbits(&n3,  (long)DD,  &bit3,  6,  fpo3 ,  &out3) ; 
putbits (&n3 ,  3,  &bit3,  8,  fpo3 ,  &out3) ; 


if (regn  >  0) 

{  putbits (&n3 ,  1,  &bit3,  2,  fpo3,  &out3); 

putbits (&n3 ,  1,  &bit3,  6,  fpo3 ,  &out3) ; 

putbits(&n3,  (long) (regn  +  1.0),  &bit3,  8,  fpo3 ,  &out3) ; 

} 

putbits (&n3,  3,  &bit3,  2,  f po3 ,  &out3) ; 

putbits (&n3 ,  (long)DD,  &bit3,  6,  f po3 ,  &out3) ; 

putbits (&n3,  4,  &bit3,  8,  f po3 ,  &out3); 

if (mesx  >  0) 

{  putbits (&n3,  1,  &bit3,  2,  fpo3,  &out3) ; 

putbits (&n3,  1,  &bit3 ,  6,  fpo3,  &out3); 

putbits ( &n3 ,  (long) (mesx  +  1.0),  &bit3,  8,  f po3 ,  &out3) ; 

} 

putbits (&n3,  3,  &bit3,  2,  fpo3 ,  &out3) ; 

putbits ( &n3 ,  (long)DD,  &bit3,  6,  fpo3 ,  &out3) ; 

putbits (&n3 ,  5,  &bit3,  8,  f po3 ,  &out3) ; 

if (mesy  >  0) 

{  putbits (&n3,  1,  &bit3,  2,  fpo3,  &out3); 

putbits (&n3,  1,  &bit3,  6,  fpo3,  &out3) ; 

putbits(&n3,  (long) (mesy  +  1.0),  &bit3,  8,  fpo3 ,  &out3) ; 

} 

putbits (&n3 ,  3,  &bit3,  2,  fpo3 ,  &out3) ; 

putbits(&n3,  (long)DD,  &bit3,  6,  fpo3 ,  &out3) ; 
putbits (&n3,  6,  &bit3 ,  8,  f po3 ,  &out3) ; 

if (mesz  >  0) 

{  putbits (&n3 ,  1,  &bit3,  2,  fpo3,  &out3); 

putbits (&n3,  1,  kbit 3,  6,  f po3 ,  &out3) ; 

putbits(&n3,  (long) (mesz  +  1.0),  &bit3 ,  8,  fpo3,  &out3) ; 

} 

putbits (&n3,  3,  &bit3 ,  2,  f po3 ,  &out3); 

putbits (&n3 ,  (long)DD,  &bit3,  6,  fpo3,  &out3); 
putbits (&n3,  7,  &bit3 ,  8,  fpo3 ,  &out3) ; 

if (albd  >  -1) 

{  if (albd  >  0) 

{  putbits (&n3,  1,  &bit3,  2,  f po3 ,  &out3) ; 
putbits  (&Ji3 ,  1,  &bit3,  6,  f po3 ,  &out3)  ; 

putbits(&n3,  (long) (albd  +  1.0),  &bit3,  8,  fpo3 ,  &out3) ; 

putbits (&n3,  3,  &bit3 ,  2,  f po3 ,  &out3) ; 

putbits(&n3,  (long)DD,  &bit3,  6,  fpo3,  &out3) ; 
putbits (&n3 ,  8,  &bit3,  8,  f po3 ,  &out3) ; 
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if (mtrl  >  0) 

{  putbits ( &n3 ,  1,  &bit3,  2,  fpo3,  &out3) ; 

putbits ( &n3 ,  1,  &bit3 ,  6,  f po3 ,  &out3) ; 

^  putbits ( &n3 ,  (long) (mtrl  +  1.0),  &bit3,  8,  fpo3,  &out3) ; 

putbits (&n3,  3,  &bit3 ,  2,  fpo3,  &out3) ; 
putbits (&n3,  (long)DD,  &bit3,  6,  f po3 ,  &out3); 
putbits (&n3,  9,  &bit3 ,  8,  fpo3,  &out3) ; 

putbits (&n3,  3,  &bit3,  2,  fpo3 ,  &out3) ; 
putbits (&n3 ,  (long)DD,  &bit3,  6,  fpo3,  &out3) ; 
putbits (&n3,  10,  &bit3 ,  8,  fpo3 ,  &out3) ; 

readoutput ( &n4 ,  &n3 ) ; 

/*- - - - - 

*  -  When  finished  reading  all  the  data,  close  the  file. 

*  _ 

*/  ’  " 
f close (fp) ; 

}  /*  end  readcardsO  */ 


*  VOID  OUT_DATA 

*<Begin> 


*<Identif ication> 


Name 

Type 

Filename 

Parent 


out_data 
C  void 
blirb_en. c 
readcards 


*<Description> 

"  Transforms  the  raw  data  into  BUFR  form  and  sends  it  to  be  written 

*  to  the  section  4  temporary  data  stream 


*<Called  routines> 
*  get_trans 


-  gets  the  Scale,  Data  Width,  and  Reference 
Value  for  a  variable. 


*  Parameters  > 

*  Formal  declaration: 

*  void  out_data (char  cl,  char  c2 ,  char  c3,  char  c4,  int  net, 

*  float  x [10] ,  unsigned  long  *n4,  int  desc) 


Input : 
cl 
c2 
c3 
c4 
net 
x  [10] 
*n4 
desc 

Output 

None 


-  the  first  character  of  the  card  ID 

-  the  second  character  of  the  card  ID 

-  the  third  character  of  the  card  ID 

-  the  fourth  character  of  the  card  ID 

-  the  number  of  data  values  to  output 

-  the  array  of  raw  data  values 

-  pointer  to  section  4  output  stream 

-  the  Table  B  descriptor  (0  BB  desc)  for  the 
first  data  value  in  the  array 


*<History> 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 
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void  out_data (char  cl,  char  c2,  char  c3,  char  c4,  int  net,  float  x[10], 
unsigned  long  *n4,  int  desc) 


float  ref; 
long  nn; 

int  j ,  w [10] ,  sea; 


nn  =  ((int) cl  <<  8)  +  (int)c2; 
putbits(n4,  nn,  &bit4,  16,  fpo4,  &out4) ; 
nn  =  ((int)c3  <<  8)  +  (int)c4; 
putbits(n4,  nn,  &bit4,  16,  f po4 ,  &out4) ; 


for  (j  =  0;  j  <  net;  j++) 

{  get_trans(j  +  desc,  &sca,  &w[j],  &ref ) ; 
if(sca  1=  0) 

x[j]  *=  (float)  pow( (double) 10,  (double) sea) ; 
x[j]  -=  ref; 

putbits(n4,  (long)x[j],  &bit4,  w[j],  fpo4,  &out4) ; 
}  /*  end  out_data()  */ 


/*********************************************************************** 

*  VOID  PUTBITS 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  putbits 

*  Type:  C  void 

*  Filename :  blirb_en . c 

*  Parent:  main,  readcards,  readoutput, 

*  write_bytes 
*__;_=;:==__==_=;==__=._=:=:=_=:==_=_==:===_=_____=___=__===_==_=_==;=_=_==_=====;_ 

*<Description> 

*  This  routine  puts  some  BLIRB  output  bits  into  the  BUFR  output 

*  data  stream. 

*===—-~—~—=~==================~==z==================================~=== 


*<Called  routines> 
*  None . 


*<Parameters> 

*  Formal  declaration : 

*  void  putbits (unsigned  long  *n,  long  input,  int  *bitx, 

*  int  inbits,  FILE  *sx,  long  *out_len) 

*  Input : 

*  *n  -  pointer  to  part  of  the  output  data  stream 

*  input  -  the  input  value 

*  *bitx  -  pointer  to  the  number  of  bits  in  "n" 

*  inbits  -  the  number  of  bits  in  "input" 

*  *sx  -  the  output  stream  pointer 

*  *out_len  -  pointer  to  section  output  length  in  bytes 

*  Output 

*  None 

*<History> 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★it********************************** 

*/ 

void  putbits (unsigned  long  *n,  long  input,  int  *bitx,  int  inbits, 

FILE  *sx,  long  *out_len) 


123 


int  suml ,  sum2 ; 
char  cl; 


{ 


if (input  <  0) 

input  =’((long)l  <<  (inbits  -1))  j  labs (input); 

if(*bitx  +  inbits  <=  32) 

{  *n  <<=  inbits; 

*n  +=  input; 

*bitx  +=  inbits; 

if (*bitx  ==  32) 

{  cl  =  (char)  (*n  >>  .24)  ; 
fputc(cl,  sx) ; 

cl  =  (char)  ( (*n  <<  8)  >>  24); 
fputc(cl,  sx) ; 

cl  =  (char)  (  (*n  <<  16)'  >>  24); 
fputc(cl,  sx) ; 

cl  =  (char)  ( (*n  <<  24)  >>  24); 
fputc(cl,  sx)  ; 

*out_len  +=  (long) 4; 

*n  =  (long)0; 

*bitx  =  0; 


else 

{  suml  =  *bitx  +  inbits; 
sum2  =  suml  -  32; 
suml  =  inbits  -  sum2 ; 

*n  <<=  suml; 

*n  +=  input  >>  sum2; 

cl  -  (char)  (*n  >>  24) ; 
fputcfcl,  sx) ; 

cl  =  (char)  ( (*n  <<  8)  >>  24); 
fputc(cl/  sx) ; 

cl  =  (char)  ( (*n  <<  16)  >>  24); 
fputc(cl,  sx) ; 

cl  =  (char)  ( (*n  <<  24)  >>  24); 
fputc(cl,  sx) ; 

*out__len  +=  (long)  4; 

*n  =  (input  <<  (32  -  sum2))  >>  (32  -  sum2) ; 

*bitx  =  sum2; 

}  /*  end  putbitsO  */ 

/*********************************************************************** 

*  VOID  READOUTPUT 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  readoutput 

*  Type:  C  void 

*  Filename:  blirb_en.c 

*  Parent :  readcards 

*<Description> 

*  Reads  the  BLIRB  output  data  from  the  BLIRB  output  file  and  sends 

*  it  to  be  written  to  sections  3  &  4  streams 
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*<Called  routines> 

*  group_bytes  -  Collects  the  sequential  BLIRB  data  bytes 

*  together  into  commensurate  groups 

*  <  Parameters  > 

*  Formal  declaration: 

*  void  readoutput (  unsigned  long  *n4 ,  unsigned  long  *n3) 

*  Input : 

*  *n4  -  part  of  the  section  4  output  data  stream 

*  *n3  -  part  of  the  section  3  output  data  stream 

*  Output : 

*  None 


*<History> 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  readoutput (unsigned  long  *n4,  unsigned  long  *n3) 
float  dum,  *data,  ref; 

int  i,  k,  m,  1,  w[3] ,  wid,  sea,  loop,  na,  itn,  itnl; 
long  j ,  incr,  y[3],  duml; 
char  cl; 

/* - - - - - - - 

*  -  Determine  the  number  of  wavenumbers. 


*/ 

out^nwave  =  wa vn_dv ; 

/* - 

*  -  Read  the  values  of  NA  and  ITN. 


*/ 

fscanf(fp,  "%d%d" ,  &na,  &itn) ; 
y  [0]  =  (long) na; 

get_trans (YYO,  &sca,  &w[0],  &ref) ; 
if(sca  ! =  0) 

y[0]  *=  (long)  pow { (double) 10 ,  (double) sea) ; 
y[0]  -=  (long)  ref; 

putbits(n4,  y [ 0] ,  &bit4,  w[0]  ,  fpo4,  &out4) ; 
y [0]  =  (long) itn; 

get_trans (YYO  +  1,  &sca,  &w[0],  &ref ) ; 
if (sea  ! =  0) 

y[0]  *=  (long)  pow  (  (double)  10,  (double)  sea). ; 
y[0]  -=  (long)  ref; 

putbits(n4,  y[0],  &bit4,  w[0],  fpo4,  &out4) ; 
itnl  =  itn  +  1; 

/* - - - - - 

*  -  Referencing  the  VIEW  program  subroutine  RJOB,  get  the  X,  Y,  and 

*  Z  BLIRB  main  region  grid  points  and  calculate  the  flux  grid 

*  points  from  them. 


*/ 

fscanf(fp,  n%d%d%d",  &out_imx[0],  &out_jlmx[l]  ,  &out_imx  [  2  ]  )  ; 
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for  (i  -  0 ;  i  <  3;  i++) 

{  get_trans (YYO  +  2  +  i,  &sca,  &w[i] ,  &ref) ; 
y[i]  =  (long)  out_irax  [i]  / 
if (sea  ! =  0) 

y[i]  *  =  (long)  pow( (double) 10,  (double) sea) ; 
y [i]  -=  (long)  ref; 

putbits(n4/  y[i]  ,  &bit4,  w[i]  ,  fpo4,  &out4) ; 


duml  =  (float)  (out_imx[0]  *  out_imx[l]  *  out__imx[2]  +  1)  ; 
if (duml  <  (na  +  1)) 

duml  =  (float)  (na  +  1)  ; 
if (duml  <  4  *  itnl) 

duml  =  (float) (4  *  itnl) ; 
if (duml  <  (domd_isc  +  (float) 1.0)  *  (float) itnl) 
duml  =  (domd_isc  +  (float) 1.0)  *  (float) itnl; 

data  =  (float  *)  malloc ( (long) sizeof (float)  *  duml) ; 

for  ( i = 0 ;  i<3;  i++) 

{  if (out_imx [i]  >  0) 

{  get_trans (YYO  +  5  +  i,  &sca,  &wid,  &ref) ; 
for  (j  =  0;  j <=out_imx [i] ;  j++) 

fscanf  (fp,  11  %12eM ,  (data  +  j));  /*  Read  X,Y,Z  grid  points  */ 

group_bytes (n4 ,  n3 ,  data,  (long) (out_imx [i]  +  1),  sea,  1,  wid, 
ref,  YYO  +  5  +  i) ; 


/* - 

*  Referencing  the  VIEW  program  subroutine  RJOB,  get  the  surface 

*  albedo  indices  at  each  (X,Y)  grid  point  (ISURF) . 

*  _ 

*/ 

if (out_imx [0]  >  0  &&  out_imx [1]  >  0) 

{  get_trans (YYO  +  8,  &sca,  &wid,  &ref) ; 

for  (incr  =0,  i  =  0;  i<out_imx[l] ;  i++) 
for  (j  =  0;  j <out_imx [0] ;  incr++,  j++) 
fscanf (fp,  "%l2e" ,  (data  +  incr)); 

group_bytes (n4,  n3,  data,  (long) (out_imx [0]  *  out_imx [1] ) ,  sea,  1, 
wid,  ref,  YYO  +  8) ; 


/* - - - . - - - 

*  -  Referencing  the  VIEW  program  subroutine  RJOB,  get  the  region 

*  material  indices  at  each  (X,Y,Z)  grid  point  (IVOLM) . 

*  _ _ 

*/ 

if (out_imx [0]  >  0  &&  out_imx[l]  >  0  &&  out_imx[2]  >  0) 

{  get_trans (YYO  +  9,  &sca,  &wid,  &ref) ; 

for  (incr  =  0,  k  =  0;  k<out_imx  [2]  ,-  k++) 
for  (i  =  0;  i<out_imx [1] ;  i++) 

for  (j  =  0;  j<out_imx[0] ;  incr++,  j++) 
fscanf (fp,  "%12e"  ,  (data  +  incr) ) ; 

group_bytes (n4 ,  n3,  data,  (long) (out_imx [0]  *  out_imx[l]  * 
out_imx [2] ) ,  sea,  1,  wid,  ref,  YYO  +  9); 
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} 


/* - - - - - 

*  -  Referencing  the  VIEW  program  subroutine  RFLX,  get  the  LOWTRAN 

*  molecular  transmission  (TRLW) . 

*  _ 

*/ 

for  (m  -  0;  mcout_nwave;  m++) 

{  get_trans (YYO  +  10,  &sca,  &wid,  &ref) ; 

for  (j  =  0;  jc=na;  j++) 

fscanf(fp,  "%12e" ,  (data  +  j)); 

group_bytes (n4 ,  n3 ,  data,  (long) (na  +  1),  sea,  0,  wid,  ref, 

YYO  +  10) ; 

/* - 

*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the  surface 

*  albedos  (SALB) . 

*  _ 

*/ 

if (albd  >=  0) 

{  get_trans (YYO  +  11,  &sca,  &wid,  &ref ) ; 

for  (j  =  0;  j<=albd;  j++) 

fscanf(fp,  "%12e" ,  (data  +  j)); 

group_bytes (n4 ,  n3 ,  data,  (long) (albd  +  1),  sea,  1,  wid,  ref, 

YYO  +  11) ; 

} 

/* - - - 

*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the 

*  extinction  coefficients  (REXT) . 

*  - 

*/ 

get_trans (YYO  +  12,  &sca,  &wid,  &ref ) ; 

for  (j  =  0;  jcitnl;  j++) 

fscanf(fp,  n%l2e",  (data  +  j)); 

group_bytes (n4 ,  n3,  data,  (long)itnl,  sea,  0,  wid,  ref,  YYO  +  12); 

/* - - - - - 

*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the 

*  scattering  coefficients  (RSCT) . 

*  _ 

*/ 

get_trans (YYO  +  13,  &sca,  &wid,  &ref) ; 

for  (j  -  0;  jcitnl;  j++) 

fscanf(fp,  "%12en,  (data  +  j)); 

group_bytes (n4 ,  n3 ,  data,  (long)itnl,  sea,  0,  wid,  ref,  YYO  +  13); 


/* - - - 

*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the 

*  "unknown"  coefficients  (FDLT) . 


*/ 

get_trans (YYO  +  14,  &sca,  &wid,  &ref ) ; 
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for  (j  =  0;  jcitnl;  j++) 

fscanf(fp,  "%12en,  (data  +  j)); 

group_bytes (n4/  n3,  data,  (long) itnl,  sea,  0,  wid,  ref,  YYO  +  14); 


/* - 

*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the  phase 

*  function  angles  (AGL) . 

*  _ 

*/ 

get_trans (YYO  +  15,  &sca,  &wid,  &ref ) ; 

for  (incr  =  0,  j  =  0;  jcitnl;  j++) 
for  (i  =  0;  i<4 ;  incr++,  i++) 

fscanf(fp,  "%12e",  (data  +  incr)); 

group_bytes (n4,  n3,  data,  (long) (4  *  itnl) ,  sea,  0,  wid,  ref, 

YYO  +  15) ; 


/* - - - 

*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the  phase 

*  functions  for  different  materials  (PHF) . 

*  _ 

*/ 

get_trans (YYO  +  16,  &sca,  &wid,  &ref) ; 

for  (incr  =  0,  j  =  0;  jcitnl;  j++) 
for  (i  =  0;  ic4 ;  incr++,  i++) 

fscanf(fp,  "%12e",  (data  +  incr) ) ; 

group_bytes (n4 ,  n3,  data,  (long) (4  *  itnl),  sea,  0,  wid,  ref, 

YYO  +  16)  ; 


/* - 

*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the 

*  Legendre  coefficients  (RLEG) . 


*/ 

get_trans (YYO  +  17,  &sca,  &wid,  &ref) ; 

for  (incr  =  0,  j  =  0;  jcitnl;  j++) 

for  (i  =  0;  ic= (int) domd_isc;  incr++,  i++) 
f scanf (fp,  "%12e" ,  (data  +  incr) ) ; 

group_bytes (n4 ,  n3,  data,  (long) ( (domd_isc  +  1)  *  itnl),  sea,  0, 
wid,  ref,  YYO  +  17) ; 


*  Referencing  the  VIEW  program  subroutine  RFLX,  get  the  direct 

*  solar  flux,  reflected  solar  flux,  and  8  diffuse  flux  values  at 

*  each  (X, Y, Z)  flux  grid  point. 


*/ 

for  (1=0;  lclO ;  1++) 

{  get_trans (YYO  +18+1,  &sca,  &wid,  &ref) ; 

for  (incr  =  0,  i  =  0;  icout_imx [2] ;  i++) 
for  (j  =  0;  j cout_imx [1] ;  j++) 

for  (k  =  0;  kcout_imx [0] ;  incr++,  k++) 
f scanf (fp,  "%12e",  (data  +  incr) ) ; 

group_bytes (n4 ,  n3,  data,  (long) (out_imx [0]  *  out_imx[l]  * 
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out  irax[2])/  sea,  0,  wid,  ref,  YYO  +  18  +  1)  ; 


/* - 

*  -  Finish  off  the  Section  3  stream. 


*/ 

if (bit3  >  0) 

{  loop  =  0; 

*n3  <<=  (32  -  bit3); 
while  (bit3  >  0) 

{  cl  =  (char) (  (*n3  <<  (8  *  loop))  >>  24); 
fputc (cl,  fpo3) ; 
out3++; 
bit3  -=  8; 
loop++; 


if (out3  %  (long) 2  ==  (long) 1) 
{  fputc ( (char) 0,  fpo3) ; 
out3++ ; 

} 

f close (fpo3) ; 


/* - 

*  -  Finish  off  the  Section  4  stream. 


*/ 

if (bit4  >  0) 

{  loop  =  0; 

*n4  <<=  (32  -  bit4) ; 
while  (bit4  >  0) 

{  cl  =  (char) ( (*n4  <<  (8  *  loop))  >>  24); 
fputc (cl,  fpo4) ; 
out4++ ; 
bit4  -=  8; 
loop++; 


if (out 4  %  2  ==  1) 

{  fputc ( (char) 0 ,  fpo4) ; 
out4++ ; 

} 

fclose ( f po4 ) ; 


free (data) ; 

}  /*  end  readoutputO  */ 


*  VOID  GET_TRANS 


*<Begin> 

*<Identif ication> 

* 

* 

* 

it--—--——--————-———— 

*<Description> 

*  Gets  the  Scale 

*<Called  routines> 


Name : 
Type: 
Filename : 
Parent : 


get_trans 
C  void 
blirb_en. c 

readoutput ,  readcards 


Data  Width,  and  Reference  Value  for  a  variable. 
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None . 


*<Parameters> 

*  Formal  declaration: 

*  void  get_trans (int  yO,  int  *scale,  int  *width,  float  *ref) 

*  Input : 

*  yO  -  the  "yO"  of  Table  B  for  the  BLIRB  variable 

*  *scale  -  the  standard  (exponent  of  10)  scale  factor 

*  *width  -  the  standard  number  of  bits  used  by  the 

*  encoded  data  element 

*  *ref  -  the  reference  value  to  be  subtracted  from 

*  each  data  element 

*  Output : 

*  None 

*<History> 

*  02/01/95  AMSRL-BE- S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*******★★*********★★•*•*★****★***********★★★•*•★★*****★***■*■★■*■*■*■*■*■*•**•*■*■***** 

*/ 

void  get_trans (int  yO,  int  *scale,  int  *width,  float  *ref) 
int  j ,  yl ; 

for  (j  -  0;  j  <  counter;  j++) 

{  if (tbl_b [ j ]  . descriptor  ==  ( (long)  (1000)  *  (long)BB  +  (long)yO)) 

{  *scale  =  tbl_b [j ]. scale; 

*ref  =  (float)  tbl_b [ j ] . ref_val ; 

*width  =  tbl_b [ j ] . data_width; 
break ; 

.  } 


/*  end  get_trans()  */ 


/*********************************************************************** 

*  VOID  GROUP_B YTE S 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  group_bytes 

*  Type :  C  void 

*  Filename :  blirb_en . c 

*  Parent :  readoutput 


t<Description> 

c  Collects  the  sequential  BLIRB  output  data  values  together  into 

r  commensurate  groups  and  sends  the  group  info  and  data  to  be  written 

f  to  the  sections  3  &  4  streams. 


*<Called  routines> 
*  write_bytes 


Writes  the  group  info  and  encoded  data  to 
the  sections  3  &  4  streams . 


*<Parameters> 

*  Formal  declaration: 

*  void  group_bytes (  unsigned  long  *n4,  unsigned  long  *n3 , 

*  float  *data,  long  net,  int  scale,  int  nochg, 

*  int  width,  float  ref,  int  param) 

*  Input : 

*  *n4  -  part  of  the  section  4  output  data  stream 

*  *n3  -  part  of  the  section  3  output  data  stream 


*  *data 

*  net 

*  scale 

*  nochg 

*  width 

* 

*  ref 

* 

*  param 

* 

*  Output : 

*  None 
★====s===:====__ 


-  pointer  to  the  data  to  be  encoded 

-  number  of  BLIRB  data  elements 

-  the  standard  (exponent  of  10)  scale  factor 

-  flag  to  indicate  if  scale  in  unchangeable 

-  the  standard  number  of  bits  used  by  the 
encoded  data  element 

-  the  reference  value  to  be  subtracted  from 
each  data  element 

-  the  Table  B  (Y0)  number  corresponding  to 
the  BLIRB  data 


*<History> 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 


*/ 

void  group_bytes (unsigned  long  *n4,  unsigned  long  *n3 ,  float  *data, 

long  net,  int  scale,  int  nochg,  int  width,  float  ref, 
int  param) 

{ 

static  float  minO  =  (f loat) (1 . 0E+20) ; 

static  float  maxO  =  (f loat)  ( -1 . 0E+20) ; 

float  dum,  mini,  maxi,  last; 

int  k,  flag,  kk,  tomuch,  nochang; 

long  i,  j,  start,  zero; 

static  long  istart [1000] ,  istop [1000]; 


Find  any  identical  data  subgroups. 


/* 

* 

* 

*/ 

i  =  (long) 0 ; 
k  =  0  ,* 
flag  =  0 ; 

istart [0]  =  istop[0]  =  (long) (-1) ; 
last  =  -1.0; 


/*  initialize  data  counter  */ 
/*  init  #  of  ident  subgroups  */ 
/*  init  ident  subgroup  flag  */ 
/*  init  start  &  stop  pointers*/ 
/*  initialize  last  data  value*/ 


while  (i  <  net)  /*  loop  thru  all  the  data  */ 

{  dum  =  (float) fabs ( (double) (* (data  +  i) ) ) ;  /*  work  with  abs  values  */ 


if (dum  ==  last)  /* 

{  if (! flag)  /* 

{  istart  [k]  =  i  -  (long)l;  /* 

flag  =1;  /* 

} 

istop [k]  =  i;  /* 

} 

else  /* 

{  last  =  dum;  /* 

if (flag)  /* 

{  flag  =0;  /* 

if ( (istop  [k]  -  istart [k]  +  (long) 1) 
{  k++;  /* 

if (k  ==  1000)  /* 

{  k~;  /* 

break;  /* 


if  curr  =  last  values  */ 

if  no  group  in  progress  */ 

set  start  pointer  */ 

indicate  group  in  progress*/ 

set  stop  pointer  */ 

curr  !=  last  data  values  */ 

save  current  data  value  */ 

if  group  in  progress  */ 

terminate  the  group  */ 

*  (long) width  >  (long) 80) 
incr  group  counter  */ 

if  too  many  groups  */ 

deer  group  counter  */ 

stop  checking  for  them  */ 
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istart [k]  =  istop [k] 


(long)  (-1);  /*  init  start  &  stop  pointr*/ 
/*  get  next  data  value  */ 


/* - 

*  Check  the  data  for  commensurate  subgroups  and  send  the  data  groups 

*  (both  commensurate  and  identical)  to  be  processed. 


*/ 


mini  =  minO ; 

/* 

initialize  minimum  value 

*/ 

maxi  =  maxO ; 

/* 

initialize  maximum  value 

*/ 

tomuch  =  0 ; 

/* 

initialize  grp  break  index*/ 

zero  =  j  =  (long) 0 ; 

/* 

initialize  counters 

*/ 

start  =  (long)0; 

/* 

initialize  pointer 

*/ 

i  =  (long) 0 ; 

/* 

initialize  data  counter 

*/ 

kk  =  0  ; 

/* 

ident  data  group  index 

*/ 

while  (i  <  net) 

/* 

loop  thru  all  the  data 

*/ 

{  dum  =  (float) fabs ( (double) (*(data  + 

i) )  ) 

;  /*  work  with  abs  values 

*/ 

j++; 

/* 

inc  data  subgroup  index 

*/ 

/* 

★ 

* 

* 


/ 


--  Send  the  identical  data  groups  (if  any)  for  processing. 


if(i  ==  istart  [kk] )  /* 

{  j  =  istop  [kk]  -  istart  [kk]  +  (long)l; 
mini  =  maxi  =  dum;  /* 


if  start  of  ident  data  grp*/ 
/*  get  data  item  count  */ 
get  min  and  max  values  * / 


if (dum  ==  0.0) 

{  zero  =  j ; 
nochang  =  0; 

else 

{  zero  =  (long) 0 ; 
nochang  =  nochg ; 


/*  if  data  values  are  zero  */ 
/*  set  zero  counter  to  total  */ 
/*  allow  change  of  scale  */ 

/*  if  data  values  non-zero  */ 
/*  set  zero  count  to  0  */ 
/*  preserve  "nochg”  scale  chg*/ 


write_bytes (n4,  n3 ,  (data  +  start) 
mini,  maxi,  zero,  ref, 

start  +=  j ; 

i  +=  (j  -  (long) 1) ; 
mini  =  minO ; 
maxi  =  maxO ; 
j  =  zero  =  (long)0; 
tomuch  =  0 ; 

if (kk  <  k) 
kk++ ; 

} 


j,  scale,  nochang,  width, 
pa  ram)  ; 

/*  update  pointer  start  point*/ 


/*  update  data  pointer  */ 
/*  reset  minimum  value  */ 
/*  reset  maximum  value  */ 
/*  reset  counters  */ 


/*  reset  group  break  index  */ 

/*  if  more  ident  data  subgrps*/ 
/*  incr  ident  data  group  indx*/ 


--  Get  the  commensurate  data  (if  any)  grouped  for  processing. 


else 

{  if (dum  >  0.0) 

{  if (  dum  <  mini) 

{  if (maxi  /  dum  >  1000.0) 


/*  non- ident  data  checking  */ 
/*  process  non-zero  data  */ 
/*  find  the  minimum  value  */ 
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tomuch  =  1; 
else 

mini  =  dum; 

} 

if (  dum  >  maxi) 

{  if (dum  /  mini  >  1000.0) 
tomuch  =  1 ; 
else 

maxi  =  dum; 


else 

zero++; 


/*  range  of  data  excessive  */ 

/*  find  the  maximum  value  */ 
/*  range  of  data  excessive  */ 

/*  process  zero  data  values  */ 
/*  incr  zero  data  count  */ 


if (tomuch  | |  i  ==  (istart[kk] 

{  if (tomuch) 

j--; 

if ( j  ==  zero) 

mini  =  maxi  =  (float) 0.0; 
write_bytes (n4 ,  n3 ,  (data  + 
mini ,  maxi ,  zero 

start  +=  j ; 


-  (long)l))  /*  process  data  subgrp*/ 
/*  if  not  last  non-ident  val  */ 
/*  remove  last  value  frm  grp  */ 
/*  if  group  all  zero  values  */ 
/*  set  max  and  min  to  zero  */ 
start),  j,  scale,  nochg,  width, 

,  ref,  param) ; 

/*  update  pointer  start  point*/ 


if (tomuch) 

i--  ; 

mini  =  minO; 
maxi  =  maxO; 
j.  =  zero  =  (long)0; 
tomuch  =  0 ; 


/* 

if  not  last  non-ident  val 

*/ 

/* 

reprocess  last  data  value 

*/ 

/* 

reset 

minimum  value 

*/ 

/* 

reset 

maximum  value 

*/ 

/* 

reset 

counters 

*/ 

/* 

reset 

group  break  index 

*/ 

i++; 

} 


/*  inc  pointer,  get  next  data*/ 


/* - - - 

*  -  Send  any  remaining  data  for  processing. 

*  _ 

*/ 

i f ( j  >  0)  /*  process  any  remaining  data*/ 

{  if ( j  ==  zero)  /*  if  all  data  are  zeros  */ 

mini  =  maxi  =  (float) 0.0;  /*  set  min  and  max  to  zero  */ 

write_bytes (n4 ,  n3 ,  (data  +  start),  j,  scale,  nochg,  width,  mini, 
maxi,  zero,  ref,  param) ; 

}  /*  end  group_bytes ()  */ 

/*********************************************************************** 

*  VOID  WR I TE__B YTE S 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  write_bytes 

*  Type :  C  void 

*  Filename :  blirb_en . c 

*  Parent :  group_bytes 

*<Description> 

*  Writes  the  group  info  and  encoded  data  to  the  sections  3  &  4 

*  streams . 

*<Called  routines> 

*  factor  -  Factors  an  integer  into  up  to  4  factors 
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* 

* 


(each  less  than  256) 


*<Parameters> 

*  Formal  declaration: 

*  void  write_bytes (  unsigned  long  *n4,  unsigned  long  *n3 , 

float  *data,  long  net,  int  scale,  int  nochg, 
int  width,  float  mini,  float  maxi,  long  zero, 
float  ref,  int  param) 

-  part  of  the  section  4  output  data  stream 

-  part  of  the  section  3  output  data  stream 

-  pointer  to  the  data  to  be  encoded 

-  number  of  BLIRB  data  elements 

-  the  standard  (exponent  of  10)  scale  factor 

-  flag  to  indicate  if  scale  in  unchangeable 

-  the  standard  number  of  bits  used  by  the 
encoded  data  element 

-  the  minimum  value  in  the  group 

-  the  maximum  value  in  the  group 

-  number  of  zero  data  values 

-  the  reference  value  to  be  subtracted  from 
each  data  element 

-  the  Table  B  (Y0)  number  corresponding  to 
the  BLIRB  data 


*<History> 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  write_bytes (unsigned  long  *n4,  unsigned  long  *n3 ,  float  *data, 

long  net,  int  scale,  int  nochg,  int  width,  float  mini, 

^  float  maxi,  long  zero,  float  ref,  int  param) 

float  lmaxl,  reff,  reffl,  sclO; 
double  lminl; 
int  1,  11,  111; 

long  nctl ,  nct2,  nct3 ,  nct4,  nctx,  wid,  i; 


* 

* 

* 

* 

Input : 

* 

*n4 

* 

*n3 

* 

*data 

* 

net 

* 

scale 

* 

nochg 

* 

width 

* 

★ 

mini 

* 

maxi 

* 

zero 

* 

ref 

★ 

* 

param 

* 

* 

Output : 

* 

None 

/* - - - 

*  -  Determine  a  new  reference  value  (if  possible)  assumming  the 

*  scale  does  not  change. 

*  _ 

*/ 

if (ref  ! =  0.0) 

ref  =  ref  *  (float)  pow ( (double) 10 ,  (double) ( -scale) ) ; 

if (zero  ==  (long) 0  &&  (net  *  (long) width  >  (long) 80)) 

{  if (fabs ( (double)  (maxi  -  mini))  >  0.00001  *  mini) 
reff  =  (float) 0.0; 
else 

{  if (fabs ( (double)  (mini  -  ref))  >  0.00001  *  mini) 
reff  =  mini; 


else 

{  if (zero  ==  net) 

{  if (ref  ==  0.0) 
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reff 

else 

reff 

} 

else 
reff  = 


=  (float) 0.0; 


=  -ref ; 


(float) 0.0; 


ref  +=  reff; 


/* - 

*  -  Determine  the  scale  to  apply  to  each  data  value. 


*/ 

if (nochg) 

11  =  scale; 
else 

{  if (mini  >  ref) 

{  Iminl  =  logl0(  (double)  (mini  -  ref)); 

11  =  (int) ( (float) 4  -  (float) floor ( (double) Iminl) ) ; 

} 

else  if (ref  !=  0.0) 

{  Iminl  =  loglO (  fabs ( (double) ref) ) ; 

11  =  (int )( (float) 4  -  (float) floor ( (double) Iminl) ) ; 

} 

else 

11  =  scale; 

} 


*  -  Determine  the  field  width  of  the  reference  value . 


*/ 

if (ref  !  =  0 . 0) 

reffl  =  ref  *  (float)  pow ( (double) 10 ,  (double)  (11) ) ; 
else 

reffl  =  0.0; 

if (reff  1=  0.0  {{  (ref  !=  0.0  &&  11  !=  scale)) 

{  111  =  width; 

reffl  =  (float) 2.0  *  (float) fabs ( (double) reff 1) ; 

for  (i=0,  wid=l ;  i<31;  wid  *=  2,  i++) 

{  if (ref f 1  <  (wid  -  1)) 

{  111  =  width; 

if  (i  >111  j  |  (111  -  i  >  1)  ) 

111  =  (int)i; 
break; 


else 

111  =  0; 


/* . - - - - 

*  -  Determine  the  field  width  of  each  data  value. 

*  _ 

*/ 

if (maxi  >  ref) 

lmaxl  =  (float)  pow ( (double) 10 ,  (loglO ( (double)  (maxi  -  ref)) 
+  (double) 11) ) ; 

else 
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lmaxl  =  ( float) 1.0; 
lmaxl  *=  (float) 2.0; 

1  =  width; 

for  (i=0,  wid=l;  i<31;  wid  *  =  2,  i++) 
{  if (lmaxl  <  (wid  -  1)) 

{  1  =  width; 

if (i  >  1  | |  (1  -  i  >  l)) 

1  =  ( int ) i ; 
break ; 


/* - 

*  -  If  the  data  field  width  is  different  than  standard  tell  the  BUFR 

*  stream. 


*/ 

if  (1  !  sb  width) 

{  putbits (n3 ,  2,  &bit3 ,  2,  fpo3 #  &out3); 
putbits (n3,  1,  Scbit3 ,  6,  fpo3 ,  &out3); 

putbits (n3 ,  (long) (128  +  1  -  width),  &bit3,  8,  fpo3 ,  &out3) ; 


/* - 

*  -  If  the  scale  is  different  than  standard  tell  the  BUFR  stream. 


*/ 

if (11  ! =  scale) 

{  putbits (n3,  2,  &bit3,  2,  f po3 ,  &out3) ; 
putbits (n3,  2,  &bit3,  6,  fpo3 ,  &out3) ; 

putbits (n3 ,  (long) (128  +  11  -  scale),  &bit3,  8,  f po3 ,  &out3) ; 
sclO  =  (float)  pow( (double) 10,  (double) 11); 
ref  *=  sclO; 

} 

else 

{  sclO  =  (float)  pow ( (double) 10 ,  (double) scale) ; 
ref  *=  sclO; 

} 


z* - 

*  -  If  there  is  a  reference  value  tell  the  BUFR  stream. 


*/ 

if (111  ! =  0) 

{  putbits (n3, 
putbits (n3 , 
putbits (n3 , 


2,  &bit3 ,  2,  fpo3,  &out3) ; 

3,  &bit3,  6,  fpo3 ,  &out3) ; 
(long)lll,  &bit3 ,  8,  fpo3,  &out3) ; 


putbits (n3,  0,  &bit3,  2,  fpo3,  &out3) ; 
putbits (n3 ,  (long) BB,  &bit3,  6,  fpo3,  &out3) ; 
putbits (n3 ,  (long) param,  &bit3,  8,  fpo3,  &out3) ; 


putbits (n3,  2,  &bit3 ,  2,  fpo3 ,  &out3); 
putbits (n3,  3,  &bit3,  6,  fpo3,  &out3) ; 
putbits(n3,  255,  &bit3,  8,  f po3 ,  &out3); 


putbits (n4, 

} 


(long) ref ,  &bit4.  111,  fpo4,  &out4) ; 


/* - 

*  -  Determine  the  replication  factors  and  tell  the  BUFR  stream. 
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*/ 

if (net  >  (long)l) 

{  nctx  =  net; 

while  (nctx  >  (long)O) 

{  nctl  =  nct2  =  nct3  =  nct4  =  (long)l; 


if (nctx  >  (long) 255) 

{  factor(nctx,  &nctl,  &nct2,  &nct3,  &nct4)  ; 
if (nctl  >  (long) 255) 
nctl  =  (long) 255; 

} 

else 

nctl  =  nctx; 


nctx  -  =  nctl  *  nct2  *  nct3  *  nct4 ; 


} 


if (nct4  >  (long)l) 

{  putbits (n3,  1,  &bit3,  2, 

putbits(n3,  4,  &bit3,  6, 

putbits (n3,  nct4,  &bit3, 

if (nct3  >  (long)l) 

{  putbits (n3,  1,  &bit3 ,  2, 

putbits(n3,  3 ,  &bit3 ,  6, 

putbits (n3,  nct3,  &bit3 , 

if (nct2  >  (long)l) 

{  putbits (n3,  1,  &bit3,  2, 

putbits (n3,  2,  &bit3 ,  6, 

putbits (n3,  nct2,  &bit3, 

if (nctl  >  (long)l) 

{  putbits (n3,  1,  kbit 3,  2, 

putbits (n3,  1,  &bit3,  6, 

putbits (n3,  nctl,  &bit3. 


f po3 ,  &out3) ; 
fpo3 ,  &out3) ; 

8,  fpo3 ,  &out3 ) ; 


f po3 ,  &out3) ; 
fpo3,  &out3) ; 

8,  f po3 ,  &out3) ; 


fpo3,  &out3) ; 

fpo3,  &OUt3) ; 

8,  f po3 ,  &out3) ; 


fpo3,  &out3) ; 
fpo3 ,  &out3) ; 

8,  fpo3 ,  &Out3)  ; 


} 

if (nctx  >  (long)O) 

{  putbits(n3,  0,  &bit3 ,  2,  fpo3 , 
putbits(n3,  (long)BB,  &bit3,  6, 
putbits (n3 ,  (long) param,  &bit3 , 


&out3)  ; 
fpo3,  &out3)  ; 

8,  f po3 ,  &out3) 


/* - 

*  -  Tell  the  BUFR  stream  the  Descriptor  for  the  data. 


*/ 

putbits (n3,  0,  &bit3 ,  2,  f po3 ,  &out3) ; 
putbits(n3,  (long)BB,  &bit3 ,  6,  f po3 ,  &out3) ; 
putbits(n3,  (long)param,  &bit3,  8,  fpo3,  &out3) ; 


/* - - - 

★  -  Transform  the  data  and  put  it  into  the  BUFR  stream. 


*/ 

for  (i  =  0;  ienct;  i++) 

{  reff  =  (sclO  *  (*(data  +  i)  )  )  -  ref; 

putbits(n4,  (long)reff,  &bit4,  1,  f po4 ,  &out4) ; 
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/* - 

*  -  Tell  the  BUFR  stream  to  kill  any  reference  value  changes. 


*/ 

if  (111  ! =  0) 


{  putbits (n3. 

2, 

&bit3 , 

2, 

f po3 ,  &out3) ; 

putbits (n3 , 

3, 

kbit 3 , 

6, 

fpo3 ,  &out 3) ; 

putbits (n3 , 

0, 

&bit3 , 

8, 

fpo3,  &out3) ; 

/* - 

*  -  Tell  the  BUFR  stream  to  kill  any  scale  changes. 


*/ 

if (11  i =  scale) 

{  putbits (n3 ,  2, 
putbits (n3 ,  2  , 
putbits (n3,  0, 

} 


&bit3,  2,  fpo3, 
&bit3,  6,  fpo3, 
&bit3,  8,  fpo3. 


&out3)  ; 
&out3)  ; 

&OUt3)  ; 


/* - 

*  -  Tell  the  BUFR  stream  to  kill  any  field  width  changes. 


*/ 

if (1  1=  width) 

{  putbits (n3 ,  2,  &bit3 f  2,  fpo3 ,  &out3); 

putbits (n3,  1,  &bit3,  6,  fpo3 ,  &out3) ; 

putbits (n3,  0,  &bit3,  8,  fpo3 #  &out3); 

}  /*  end  write_bytes ( )  */ 


/************************************************************^**^^**^+++ 

*  VOID  FACTOR 
******************************************** *************************** 
*<Begin> 

*<Identif ication>  Name:  factor 

*  Type :  C  void 

*  Filename:  blirb_en.c 

*  Parent:  write_bytes 

*<Description> 

*  Factors  an  integer  into  up  to  4  factors  (each  less  than  256) 

*<Called  routines> 

*  None . 


*<Parameters> 

* 

Formal  d' 

* 

void 

* 

* 

Input : 

* 

net 

* 

*nctl 

* 

*nct2 

* 

*nct3 

* 

*nct4 

* 

Output : 

* 

* _ 

None 

*<History> 

* 

02/01/95 

* 
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long  *nct4) 


long  *nctl,  long  *nct2,  long  *nct3 , 


number  of  BLIRB  data  elements 
pointer  to  the  first  factor 
pointer  to  the  second  factor 
pointer  to  the  third  factor 
pointer  to  the  fourth  factor 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  factor  (  long  net,  long  *nctl,  long  *nct2,  long  *nct3,  long  *nct4) 

{ 

static  int  num[26]  =  {  2,  3,  5,  7,  11,  13,  17,  19,  23,  29,  31,  37,  41, 

43,  47,  53,  59,  61,  67,  71,  73,  79,  83,  89,  91, 

97  }  ; 

static  int  mpy[26]  =  {  127,  85,  51,  36,  23,  19,  15,  13,  11,  8,  8,  6, 

6,  5,  5,  4,  4,  4,  3,  3,  3,  3,  3,  2,  2,  2  }; 


int  i ; 


*nct2  =  *nct3  =  *nct4  =  (long)l; 
*nctl  =  net; 


while  (*nctl  >  (long) 255) 

{  for  (i=0 ;  i<26;  i++) 

{  if(*nctl  %  (long) num [i]  ==  0) 

{  while  (*nctl  %  (long)num[i]  ==  (long) 0  &&  *nctl  > 
{  *nctl  /=  (long)num[i] ; 
if(*nct2  <  (long)mpy [i] ) 

*nct2  *=  (long)num[i] ; 
else  if(*nct3  <  (long) mpy [i] ) 

*nct3  *=  (long)num[i] ; 
else  if(*nct4  <  (long) mpy [i] ) 

*nct4  *=  (long) num[i] ; 


break ; 

}  /*  end  factor ()  */ 


(long) 255) 
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Appendix  D 

Listing  of  BLIRB  DE.C 


#include  <stdio.h> 

#include  <fcntl.h> 

#include  <ctype.h> 

#include  <string.h> 

#include  <stdlib.h> 

#include  <math.h> 

#include  "bufr.h"  /*  BUFR  encoder/decoder  include  file  */ 

/* - 

*  -  Array  declarations  and  assignments 


*/ 


struct  table_b  *tbl_b;  /*  pointer  to  array  of  structures  Table  B  */ 

struct  table_d  *tbl_d;  /*  pointer  to  array  of  structures  Table  D  */ 


char  *file  name; 

/* 

FILE  *  f p ; 

/* 

FILE  *fpo ; 

/* 

FILE  *fpo3  0 ; 

/* 

static  char  *temp30  =  " 

temp30 . 

.  tmp " ; 

static  char  *temp31  =  " 

temp31 . 

.  tmp " ; 

int  counter; 

/* 

int  dt_sets; 

/* 

long  count__desc; 

/* 

int  seq_count ; 

/* 

long  seq_desc [SEQjSIZE] 

/* 

unsigned  long  lMessageS 

ize ; 

/* 

float  bufr_data; 

/* 

int  compressed; 

/* 

long  sect4_bits; 

/* 

long  mess_desc; 

/* 

BUFR  input  filename  */ 
Pointer  to  BUFR  input  file  */ 
Pointer  to  BLIRB  output  file  */ 
Pointer  to  1st  temp  Sect  3  file  */ 
/*  Sect  3  1st  temporary  filename  */ 
/*  Sect  3  2nd  temporary  filename  */ 
number  of  records  found  in  Table  B*/ 
number  of  subsets  in  the  message  */ 
number  of  descriptors  sent  */ 
number  of  sequences  in  Table  D  */ 
pointer  to  array  of  desc  expanded  */ 
length  of  current  Section  in  bytes*/ 
pointer  to  data  value  */ 
flag  for  compressed  data: 

1-compressed,  0 -uncompressed  */ 
number  of  remaining  bits  in  sect  4*/ 
descriptor  from  message  */ 


/it*******************************************************-*?-*:*-********-*:*** 

*  VOID  MAIN 
*<Begin> 

*<Identif ication>  Name:  main 

*  Type :  C  Main  Program 

*  Filename :  blirb_de . c 

*  Parent :  None 

*<Description> 

*  This  program  decodes  a  BLIRB  BUFR  binary  output  file  into  a  ascii 

*  BLIRB  output  file. 

-  Parses  the  command  line  inputs 

-  reads  the  structure  records  from  Table_B 

-  reads  the  structure  sequences  from  Table_D 

-  extracts  specified  bits  from  BUFR  stream 

-  gets  the  BUFR  section  1  data 

-  expands  the  input  descriptors 

-  interprets  individual  descriptors  and  gets 
section  4  data  processed 

*< Parameters > 

*  Formal  declaration: 


*<Called  routines> 

*  Parselnput 

*  read_table_b 

*  read_table_d 

*  gbyte 

*  bufridenti 

*  bufrgetind 

*  get_data 

* 
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*  void  main(int  argc,  char  **argv) 

*  Input : 

*  argv  -  (char  pointer)  the  array  of  command  lines 

*  argc  -  (int)  the  number  of  command  lines  inputs 

*  inputs 

*  Output : 

*  None 


*<History> 

*  02/02/94  CSC  Monterey,  CA  Mugur  Georgescu 

*  Developed  the  original  source  code. 

*  '  05/31/94  PL  Hanscom  AFB,  MA  Rodger  Biasca 

*  Modified  the  original. 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Adapted  the  modified  code  to  BLIRB  BUFR  decode  use. 

*<End> 

*********************************************************************** 

*/ 

void  main (int  argc,  char  **argv) 

unsigned  long  edition;  /*  BUFR  edition  number  */ 

struct  identif  id;  /*  structure  identification  section  */ 

unsigned  long  IMessageSizeT;  /*  length  of  BUFR  message  in  bytes  */ 

int  observed;  /*  observed  data  indicator  */ 

unsigned  long  lBytel,  lByte2 ,  lByte3,  status4,  something; 
unsigned  int  dumm; 
char  dum[5]  ; 
long  ii; 

int  status,  ft,  xt,  yt,  i,  fin,  flip; 

/* - 

*  -  Get  descriptors  from  Table  B. 


*/ 

read_table_b ( ) ; 

/* - 

*  -  Get  sequences  from  Table  D. 


*/ 

read_table_d ( ) ; 

/* - 

*  -  Get  the  filenames  from  the  command  line. 


*/ 

Parselnput (argc,  argv) ; 

/* - - - 

*  -  Begin  processing  the  encoded  data. 


*/ 

for  (i  =  0;  i  <  4;  i++)  /*  search  for  start  of  BUFR  message  */ 

dum[i]  =  fgetc(fp); 
while  (strncmp (dum,  "BUFR",  4)  !=  0) 

{  for  (i  =  1;  i  <  4;  i++) 
dum[i-l]  =  dum[i]  ; 
if ((dum [3]  =  fgetc(fp))  ==  EOF) 

{  printf("The  characters  BUFR  were  never  found.\nn); 
pr int f ( "Program  Aborting! \n" ) ; 
f close (fp) ; 
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f close (fpo) ; 
f close (fpo30) ; 
remove (temp30) ; 
exit ( -1) ; 


status  =  0; 


/* - 

*  -  Process  Section  0  information. 


*/ 

gbyte ( &lMessageSizeT,  24);  /*  get  the  BUFR  message  length  */ 

printf ( " \n  Total  Message  length  =  %lu\n",  iMessageSizeT) ; 

gbyte (^edition ,  8);  /*  get  edition  */ 

if (edition  !=  (unsigned  long) 2) 

{  status  =  1; 

printf ("The  edition  of  the  BUFR  message  is  not  2\n"); 


*  -  Process  Section  1  information. 


*/ 

if ( ! status) 

{  bufridenti (&id) ; 

printf ( 
printf  ( 
printf ( 
printf ( 
printf { 
printf ( 
printf  ( 

printf ( "  Master  Table  Version 

printf ("  Local  Table  Version 

printf ("  Year 

printf ("  Month 

printf ( "  Day 

printf ( n  Hour 

printf ( n  Minute 

printf ("  Second 

printf ( "  Model  Identifier 

printf ("  Database  Sequence  No. 


/*  get  the  identification  section 

id.master_tbl) ; 
id. orig_cntr) ; 
id. locc) ; 
id.updt_seq) ; 
id. opt_sec) ; 

%d\n" ,  id.msg_type) ; 
%d\nH ,  id.msg_subtype) ; 
%d\n"/  id.mstr_vrsn) ; 
%d\nM ,  id . locl_vrsn) ; 
%d\nM,  id. year) ; 

%d\nn ,  id. month) ; 

%d\n",  id. day) ; 

%d\n" ,  id. hour) ; 

%d\nn#  id. minute) ; 

%d\nH ,  id. second) ; 

%d\n" ,  id. model) ; 

%u\nll/  id.dbsn)  ; 


Master  Table  ID  =  %d\n"/ 

Originating  Center  =  %u\n,t , 

Local  Originating  Center  =  %d\nn , 
Update  Sequence  =  %d\nn. 

Optional  Section  Present?  =  %d\n"r 
Message  Type 
Message  SubType 


*/ 


if (id.master_tbl  ! =  0)  /*  chk  std  WMO  FM  94 -IX  Ext  BUFR  tbls*/ 

{  status  =  1 ; 

printf ("The  BUFR  tables  are  not  WMO  standard. \n" ); 


if (id.mstr_vrsn  i=  3)  /*  chk  version  num  BUFR  tables  used  */ 

{  status  =  1; 

printf ( "Version  #  %d  of  the  BUFR  tables  is  usedXn",  id.mstr_vrsn) ; 


if (id. updt_seq  !=  0)  /*  check  update  sequence  number  */ 

{  status  =  1; 

printf ( "This  is  an  update  of  the  BUFR  format .\n"); 
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/* . . . . 

*  -  Process  Section  2  information. 


*/ 

if (! status) 

{  if (id.opt_sec) 

{  gbyte (SdMessageSize,  24);  /*  get  section  size  */ 

IMessageSize  -=  (unsigned  long) 3;  /*  skip  the  info  */ 

for  (i  =  0;  i  <  (int) IMessageSize;  i++) 
gby t  e { &s ome thing ,  8 ) ; 


/* - - 

*  -  Process  Section  3  information. 


gbyte (^IMessageSize,  24);  /*  get  section  size  */ 

gbyte (Ssomething,  8);  /*  reserved  0  */ 

gbyte (^something,  16); 

dt_sets  =  (unsigned) something;  /*  Number  data  subsets  */ 

gbyte (fcsomething,  8);  /*  data  type  info  */ 

dumm  =  (unsigned) something  %  256; 

observed  =  (int) (dumm  «  8)  »  15;  /*  observed  or  other  data  flag*/ 

compressed  =  (int) (dumm  <<  9)  >>  15;/*  compressed  or  uncompressed  */ 

printf("  Data  subsets  =  %d\n",  dt_sets) ; 

printf ( "  Observed  bit  =  %d\n",  observed); 

print f ( "  Compressed  bit  =  %d\n\n",  compressed); 

count_desc  =  ( (long) IMessageSize  -  (long) 7)  /  (long) 2; 

for  (ii  =0;  ii  <  count_desc;  ii++)  /*  get  element  descriptors  */ 
{  gbyte ( &something ,  8 ) ; 
lBytel  =  something  >>  6; 
lByte2  =  (something  <<  26)  »  26; 
gbyte ( &some thing ,  8 ) ; 
lByte3  =  something; 

mess_desc  =  (long)lBytel  *  (long) 100000  + 

( long ) lByte2  *  (long) 1000  +  (long) lByte3 ; 

f write (&mess_desc,  sizeof (long) ,  1,  fpo30) ;  /*  put  into  file  */ 

fclose (fpo30) ; 

gbyte (&some thing,  8);  /*  get  the  trailing  zero  byte  */ 

printf ("  Expanding  Section  3  Descriptors:"); 
i  =  1; 
fin  =  1; 
flip  =  0; 

while  (fin  !=  0)  /*  get  elements  descriptors  indices  */ 

{  printf ("\n%2d:",  i) ; 

i++; 

flip++; 

bufrgetind( (flip  %  2),  &fin,  &status4) ; 

if (status4  ! =  (\msigned  long)(-l))  /*  error  processing  */ 

{  printf ("\nCould  not  find  descriptor\n") ; 
ft  =  (int) ( (long) status4/ (long) 100000) ; 
xt  =  (int) (( (long) status4  -  (long) ft  *  (long) 100000)  / 
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(long) 1000) ; 

yt  =  (int) { (long) status4  -  (long) ft  *  (long) 100000  - 
(long)xt  *  (long)1000); 
printf ("  %d  %d  %d\n,,/  ft,  xt,  yt)  ; 

printf  ( 11  \nProgram  Aborting !  \nM )  ; 

remove (temp30) ; 

remove (temp31) ; 

f close (fpo) ; 

f close (fp) ; 

exit ( -I) ; 


/* . . . . 

*  -  Process  Section  4  information. 


*/ 

free (tbl_d) ; 

gbyte (&lMessageSize ,  24);  /*  get  section  size  */ 

gbyte (^something,  8);  /*  reserved  0  */ 

lMessageSize  -=  (unsigned  long) 4; 

printf  ( "\n\n  Processing  Section  4  data:\n  11 ); 

get_data();  /*  decode  the  encoded  BLIRB  data  */ 

free (tbl_b) ; 


/*  end  main()  */ 


*  VOID  PARSE INPUT 


*<Begin> 

*<Identif ication>  Name: 

*  Type : 

*  Filename: 

*  Parent : 
*=_._====_==____======;= ____________ 


Parselnput 
C  void 
blirb_de . c 
main 


*<Description> 

*  Parses  the  command  line  inputs. 


*<Called  routines> 

*  gbyte  -  extracts  specified  bits  from  BUFR  stream 


*< Parameters > 

*  Formal  declaration: 

*  void  Parselnput (  int  argc,  char  **argv) 

*  Input : 

*  argc  -  (int)  the  number  of  command  lines  inputs 

*  argv  -  (char  pointer)  the  array  of  command  lines 

*  inputs 

*  Output : 

*  None 


*<History> 

*  02/02/94 

* 

*  05/31/94 

* 

*  02/01/95 


CSC  Monterey,  CA  Mugur  Georgescu 
Developed  the  original  source  code. 

PL  Hanscom  AFB,  MA  Rodger  Biasca 
Modified  the  original. 

AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
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* 

* 


Adapted  the  modified  code  to  BLIRB  BUFR  decode  use. 


*<End> 

***************************************************************-A-******* 

*/ 

void  Parselnput (int  argc,  char  **argv) 
int  i,  status,  indx; 


status  =  indx  =  0; 

for  (i  =  1;  i  <  argc;  i++) 

{  if (argv [i]  [0]  ==  ' - ' ) 

{  switch (argv [i] [1]) 

{  case  ' o' : 

fpo  =  f open (argv [i+1] ,  "w") ; 
fpo30  =  fopen (temp30,  "wb") ; 
indx++ ; 
break ; 
case  '  i'  : 

file_name  =  argv  [i+1]; 
fp  =  fopen (f ile_name,  "rb”) ; 
break; 
default: 

status  =  1; 
break ; 


if (status  ==  1  [ |  fpo  ==  NULL  ( |  fp  »»  NULL) 

{  printf ("Usage:  bufr_enc  -o  outfile  -i  infile\n") ; 
if (indx) 

{  fclose(fpo); 
f close (fpo30) ; 
remove ( temp3  0 ) ; 

exit (~1) ; 

}  /*  end  Parselnput ()  */ 


/*********************************************************************** 

*  VOID  READ_TABLE_B 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  read_table_b 

*  Type:  C  void 

*  Filename:  blirb_de.c 

*  Parent :  main 

*<Description> 

*  Reads  the  descriptors  from  Table_B. 

*< Cal led  routines> 

*  None . 

*<Parameters> 

*  Formal  declaration: 

*  void  read_table_b (  void) 

*  Input : 

*  None . 

*  Output : 

*  None 
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*  - 


*<History> 

*  02/02/94  CSC  Monterey,  CA  Mugur  Georgescu 

*  Developed  the  original  source  code. 

*  05/31/94  PL  Hanscom  AFB,  MA  Rodger  Biasca 

*  Modified  the  original. 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Adapted  the  modified  code  to  BLIRB  BUFR  decode  use. 

*<End> 

*********************************************************************** 

*/ 

void  read  table  b(void) 

{ 

FILE  *ftb; 

long  fO,  xO,  yO,  scale,  ref,  width; 
int  size,  num; 

char  card [RLEN] ,  name [200] ,  unit [16] ; 

size  =  50; 
num  =0; 

if((ftb  =  fopen ( "table_b" ,  "r"))  ==  0) 

{  printf ( "Table_B  file  not  found.  Program  Aborting  l \n" )  ; 
exit (-1) ; 

} 

else 

{  tbl_b  =  (struct  table_b  *)  malloc (sizeof (struct  table_b)  *  size); 

while ( i f eof (ftb) ) 

{  fgets(card,  RLEN,  ftb);' 

sscanf (card,  " %ld%ld%ld%ld%ld%ld%s%s " ,  &f0,  &x0,  &y0, 

&scale,  &ref ,  &width,  unit,  name) ; 

tbl_b [num] . descriptor  =  fO* (long) 100000  +  xO* (long) 1000  +  yO ; 

tbl_b [num] . scale  =  (int)scale; 

tbl_b [num] . ref_val  =  ref; 

tbl_b [num] .data_width  =  (int) width; 

strcpy (tbl_b [num] .units,  unit) ; 


size) 

50; 

(struct  table_b  *)  realloc (tbl_b, 
sizeof (struct  table  b)  *  size) ; 


counter  =  num  -  1; 
fclose (ftb) ; 

}  /*  end  read_table_b ( )  */ 

/*********************************************************************** 

*  VOID  READ_TABLE_D 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name :  read_table_d 

*  Type :  C  void 

*  Filename:  blirb__de.c 

*  Parent :  main 


num++; 
if (num  >= 
{  size  += 
tbl  b  = 
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*<Description> 

*  Reads  the  descriptor  sequences  from  Table_D. 

*<Called  routines> 

*  None . 


*<Parameters> 

*  Formal  declaration: 

*  void  read_table_d (  void) 

*  Input : 

*  None . 

*  Output : 

*  None 


*<History> 

*  02/02/94 

* 

*  05/31/94 

* 

*  02/01/95 

* 

*  —  —  —  —  —  —  —  : 


CSC  Monterey,  CA  Mugur  Georgescu 
Developed  the  original  source  code. 

PL  Hanscom  AFB,  MA  Rodger  Biasca 
Modified  the  original. 

AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Adapted  the  modified  code  to  BLIRB  BUFR  decode  use. 


*<End>  ^  . .  ^  ^  ^  ^  ^  ^  ^  ^  ^ 


*/ 

void  read  table  d(void) 

{ 

short  IsDes ; 

int  size,  num,-  num_seq,  seq^tot; 
long  fO,  xO,  yO; 
char  card [RLEN] ; 

FILE  *fpd; 


size  =  50; 

num  =  num_seq  =  seq_tot  =  0; 

if ( (fpd  =  fopen ( " table_d" ,  "r"))  ==  0) 

{  printf ( "Table_D  file  not  found.  Program  Aborting ! \n" ) ; 
exit ( -1) ; 

}  .  - 

else 

{  tbl_d  =  (struct  table_d  *)  malloc (sizeof (struct  table_d)  *  size); 

IsDes  =  1; 
while ( ! feof (fpd) ) 

{  fgets (card,  RLEN,  fpd) ; 

sscanf(card,  n%ld%ld%ld" ,  &f0,  &x0,  &y0)  ; 


if (IsDes) 

{  tbl_d [num] . sequence  =  fO* (long) 100000  +  xO* (long) 1000  +  yO; 
tbl_d  [num]  .  seq_index  =  (long) seq_tot ; 

IsDes  =0; 

} 

if (f 0  ==  (long) (-1)  j|  xO  ==  (long) (-1)  ||  yO  ==  (long)(-l)) 

{  IsDes  =  1; 

tbl_d [num] . seq_expand  =  (long) num_seq; 

num_seq  =  0 ; 

num++; 

if (num  >=  size  -  1) 

{  size  +=  50; 

tbl  d  =  (struct  table  d  *)  realloc (tbl  d, 


} 


sizeof (struct  table  d)  *  size); 

>} 

else 

{  IsDes  =  0; 
num_seq++ ; 

seq_desc  tseq__tot]  =  fO*  (long)  100000  +  xO*  (long)  1000  +  yO ; 
seq_tot++; 

if (seq_tot  >=  SEQ_SIZE  -  1) 

{  printf("The  Pointer  Array  of  Sequences  (seq_desc)  is  not\n" ); 
printf ( "large  enough.  Please  increase  the  value  of\n" ); 
printf ( "SEQ_SIZE  in  <bufr.h>  and  recompile  the  program. \n" ) ; 
printf ( " \nProgram  Aborting ! \n" ) ; 


seq__count  =  num  -  1; 
f close (fpd) ; 

}  /*  end  read_table_d ( )  */ 

/*********************************************************************** 

*  VOID  GBYTE 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  gbyte 

*  Type :  C  void 

*  Filename:  blirb_de.c 

*  Parent :  main 

*<Description> 

*  Extracts  a  few  bits  from  the  BUFR  binary  stream. 

*<Called  routines> 

*  None 

*  Parameters  > 

*  Formal  declaration: 

*  void  gbyte (unsigned  long  *iout,  int  nbyte) 

*  Input : 

*  *iout  -  the  extracted  bits 

*  nbyte  -  number  of  bits  to  extract 

*  Output : 

*  None 

*<History> 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  gbyte (unsigned  long  *iout#  int  nbyte) 

static  unsigned  long  nn  =  (unsigned  long)0; 
static  unsigned  long  remainder  =  (long)0; 
static  int  nbits  =  0; 
static  int  first  =  1; 
int  i,  cnt,  addbytes; 


if (first) 


/*  read  the  first  4  bytes  from  file  */ 
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*/ 


{  for  (i  =  0;  i  <  4;  i++) 

nn  =  (nn  <<  8)  +  (unsigned  long) fgetc (fp) ; 
first  =  0; 

} 


if (nbyte  >  32)  /*  "nbyte"  must  be  <=  32  bits 

{  printf(nMore  than  32  bits  were  asked  for  in  <gbyte> . \n" ) ; 
printf ( "This  is  unacceptable.  Program  Aborting! \n" ) ; 
fclose (fp) ; 
f close (fpo) ; 
fclose (fpo30) / 
remove (temp30) ; 
exit (-1) ; 

} 

else 

{  *iout  =  (unsigned  long)  (nn  >>  (32  -  nbyte) ) ;  /*  get  return  value*/ 


cnt  =  nbyte;  /*  now  remove  bits  from  temp  buffer  */ 

if (nbits)  /*  if  still  have  bits  in  temp  buffer  */ 

{  if (nbits  <=  nbyte)  /*  bits  in  buffer  <=  bits  removed  */ 

{  nn  =  (nn  <<  nbits)  +  remainder; 
remainder  =  (long)0; 
cnt  -=  nbits; 
nbits  =  0; 

else  /*  bits  in  temp  buffer  >  bits  removed*/ 

{  nn  =  (nn  <<  nbyte)  +  (remainder  >>  (nbits  -  nbyte) ) ; 
remainder  =  (remainder  <<  (32  -  nbits  +  nbyte) )  >> 

(32  -  nbits  +  nbyte) ; 


cnt  =  0; 
nbits  -=  nbyte; 


addbytes  =  cnt  /  8;  /*  get  new  bytes  from  file  to  buffer  */ 

if (addbytes  >  0) 

for  (i  =  0;  i  <  addbytes;  i++) 

{  nn  =  (nn  <<  8)  +  (unsigned  long) fgetc (fp) ; 
cnt  - =  8 ; 

} 


} 


} 


if (cnt  >  0) 

{  remainder  = 
nn  =  (nn  << 
remainder  = 
nbits  =  8  - 

} 


/*  if  necessary,  get  part  of  another  */ 
(unsigned  long)  fgetc (fp); 
cnt)  +  (remainder  >>  (8  -  cnt) ) ; 

(remainder  <<  (24  +  cnt) )  >>  (24  +  cnt) ; 

cnt  ; 


/*  end  gbyte ()  */ 


y'**************************  ★*★★★★*★★★★★**★***★•*■********★*******■  +  ★*■*’** 

*  VOID  BUFRIDENTI 


*<Begin> 

*<Identif ication> 
* 

* 

* 


Name : 
Type: 
Filename : 
Parent : 


bufridenti 
C  void 
blirb_de . c 
main 


*<Description> 

*  Extracts  the  values  in  BUFR  Section  1. 
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*<Called  routines> 
*  gbyte 


-  extracts  specified  bits  from  BUFR  stream 


*  Parameters  > 

*  Formal  declaration: 

*  void  bufridenti (struct  identif  *id) 

*  Input : 

*  *id  -  structure  to  hold  the  Section  1  data. 

*  Output : 

*  None 

*<History> 

*  02/02/94  CSC  Monterey,  CA  Mugur  Georgescu 

*  Developed  the  original  source  code. 

*  05/31/94  PL  Hanscom  AFB,  MA  Rodger  Biasca 

*  Modified  the  original. 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Adapted  the  modified  code  to  BLIRB  BUFR  decode  use. 

*<End> 


void  bufridenti (struct  identif  *id) 


unsigned  long  something; 
int  i ; 


/*  value  extracted  from  message 


gbyte (^something,  24); 

id->length  =  (long) something;  /*  get  the  section  length  */ 

gbyte (&some thing,  8) ; 

id->master_tbl  =  (int ) something;  /*  get  BUFR  master  table  0-standard*/ 
gbyte (^something,  16); 

id->orig_cntr  =  (unsigned) something;  /*  get  originating  center  id  */ 
gbyte ( ^something ,  8 ) ; 

id->updt__seq  =  (int)  something;  /*  get  update  sequence  #  0  for  orig  */ 
gbyte (&some thing,  8) ; 

id->opt_sec  =  (int) something;  /*  get  the  optional  section  flag  */ 

gbyte (^something,  8) ; 

id->msg_type  =  (int) something;  /*  get  the  message  type  (table  A)  */ 
gbyte  ( ^something ,  8 )  ,* 

id->msg__subtype  =  (int)  something;  /*  get  the  message  sub-type  */ 

gbyte (^something,  8) ; 

id->mstr_vrsn  =  (int) something;  /*  get  master  table  version  cur  2  */ 
gbyte ( &some thing ,  8 ) ; 

id- >locl_vrsn  =  (int) something;  /*  get  the  local  table  version  */ 
gbyte (&some thing,  8) ; 

id->year  =  (int) something;  /*  get  the  year  */ 

gbyte (&some thing,  8); 

id->month  =  (int) something;  /*  get  the  month  */ 

gbyte (&some thing,  8); 
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id->day  =  (int) something; 

/* 

get 

the 

gbyte ( ^something ,  8 )  ; 

/* 

id->hour  =  (int) something; 

get 

the 

gbyte ( &some thing ,  8 ) ; 

/* 

id->minute  =  (int) something; 

get 

the 

gbyte ( ^something ,  8 ) ; 

/* 

id->locc  =  (int) something; 

get 

the 

gbyte (&some thing,  8) ; 

/* 

id- >model  =  ( int ) something ; 

get 

the 

gbyte ( ^something ,  8 ) ; 

/* 

id->second  =  (int)something; 

get 

the 

gbyte (^something,  16); 

id->dbsn  =  (unsigned) something j 

•  /’ 

*  get  the 

if (id->length  >  22) 

/* 

get 

any 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


for  (i  =  22;  i  <  (int) id->length;  i++) 
gbyte ( ^something ,  8 )  ; 

/*  end  bufridentiO  */ 


/♦★I**************************************************.******************* 

*  VOID  BUFRGETIND 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  bufrgetind 

*  Type :  C  void 

*  Filename:  blirb_de.c 

*  Parent :  main 

*<Description> 

*  Extracts  the  data  in  BUFR  Section  3  and  expands  the  sequences. 

*<Called  routines> 

*  None 


*<Parameters> 

*  Formal  declaration: 

*  void  bufrgetind (int  file,  int  *fin,  unsigned  long  *status) 

*  Input : 

*  file  -  indicates  which  file  contains  descriptors 

*  *fin  -  indicator  of  how  many  expansions  were  done 

*  * status  -  error  return  info 

*  Output : 

*  None 


*<History> 

*  02/02/94 

* 

*  05/31/94 

* 

*  02/01/95 

* 


CSC  Monterey,  CA  Mugur  Georgescu 
Developed  the  original  source  code. 

PL  Hanscom  AFB,  MA  Rodger  Biasca 
Modified  the  original . 

AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Adapted  the  modified  code  to  BLIRB  BUFR  decode  use. 


*<End> 


*/ 
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void  bufrgetind (int  file,  int  *fin. 


long  i;  /* 
int  j ;  /* 
int  k;  /* 
long  a;  /* 
int  found;  /* 
int  f;  /* 


int  x;  /* 
unsigned  long  y;  /* 
long  newcounter;  /* 
FILE  *fpl,  *fp2;  /* 
long  rep  [2  0] ;  /* 


int  ii,  ft,  xt,  yt; 


unsigned  long  ^status) 


index  in  mess_desc  array  */ 
index  in  descriptors  array  */ 
index  in  data  sets  */ 
for  loop  counter  */ 


flag  if  element  descriptor  found  */ 
descriptor  type: 

0  -  element  descriptor, 

1  -  replication  descriptor, 

2  -  operator  descriptor, 

3  -  sequence  descriptor.  */ 

last  6  bits  of  first  byte  in  descr*/ 
the  second  byte  in  a  descriptor  */ 

the  new  counter  after  expansion  */ 

pointers  to  temp  descriptor  files  */ 
temp  store  replicated  descriptors  */ 


i  =  (long) 0 ; 
j  =  k  =  0; 


*status  =  (unsigned  long) (-1)  ; 
*  f in  =  0 ; 


/*  set  status  to  OK  */ 

/*  initialize  chg  of  descriptor  count*/ 


"  rb' 
"wb1 


"rb* 

"wb1 


/*  get  temp  descriptor  input  file  */ 
/*  and  temp  descriptor  output  file  */ 


if (file  ==  1) 

{  fpl  =  fopen(temp30, 
fp2  =  fopen (temp31, 

else  if  (file  ==  0) 

{  fpl  =  fopen (temp31, 
fp2  =  fopen (temp30 , 

else 

{  printf ( "file  =  %d  (an  unacceptable  value). \n",  file) 
printf ( "Program  Aborting ! \n" ) ; 
f close  (fpo)  ,* 
fclose  (fp)  ; 
remove ( t emp30) ; 
remove (temp31) ; 
exit (-1) ; 


newcounter  =  (long)0;  /*  set  temp  counter  to  initial  value  */ 

while (k  <  dt_sets)  /*  loop  through  all  the  records  */ 

{  while (i  <  count_desc)  /*  get  thru  all  message  descriptors  */ 

{  f read ( &mess_desc ,  sizeof (long) ,  1,  fpl) ; 
i++ ; 

if (i  %  (long) 100  ==  (long) 0) 

{  printf ("*") ; 

if (i  %  (long) 7000  ==  (long) 0) 
printf ("\n  " )  ; 

else  if(i  %  (long) 1000  ==  (long) 0) 
printf ("  "); 


f  =  (int) (mess_desc  / 

(long) 100000) ; 

/*  type  descriptor 

*/ 

switch  (f) 

{  case  0 : 

/*  switch 

on  descriptor  type 

*/ 

/*  element 

descriptor 

*/ 

lj. 

ii 

o 

/*  set  index  in  descriptors  to  0 

*/ 
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found  =  0; 


/*  set  found  to  not  true 


*/ 


/* 

* 

* 

* 

* 


/ 


/* 


*/ 


search  descriptors  array  till  find  a  match  for  the  descriptor 
that  came  in  the  message  or  exceed  the  size  of  descriptors  array 


while ( ! found) 

{  if ( j  >  counter)  /*  descriptor  not  found  */ 

{  ft  =  (int)  (mess__desc  /  (long)  100000)  ; 

xt  =  (int) ( (mess_desc  -  (long) ft  *  (long) 100000) 

/  (long) 1000); 

yt  =  (int)  (mess__desc  -  (long)  ft  *  (long)  100000  - 
(long)xt  *  (long) 1000); 

printf ( "Descriptor  %d  %d  %d  is  UNRECOGNIZED\n" ,  ft,  xt, 
yt) ; 

*status  =  (unsigned  long)  mess_desc; 
return; 

} 

if (mess_desc  ==  tbl_b [j ]. descriptor) 

{  if (compressed)  /*  Compressed  data  error  processing  */ 

{  printf ( "Error  -  the  data  are  compressed. \n" ) ; 
printf ( "Program  Aborting ! \n" ) ; 
fclose (fp) ; 
f close (fpo) ; 
fclose (fpl) ; 
fclose (fp2) ; 
remove  (temp30)  ; 
remove  (temp31)  ; 
exit (-1) ; 


else  /*  Descriptor  found!  */ 

{  f write (&mess_desc,  sizeof (long) ,  1,  fp2) ; 
newcounter++ ; 

found  =1;  /*  indicate  descriptor  found  */ 

j++;  /*  increment  index  in  descriptors  */ 

}  /*  end  while  loop  */ 

break ; 

case  1:  /*  replication  descriptor  */ 


printf ( "\nDescriptor  %ld[i=%ld]  is  a  replication\n" , 
mess_desc,  i) ; 

mess_desc  -=  (long) 100000 ;  /*  remove  F  see  the  BUFR  guide  */ 

x  =  (int) (mess_desc  /  (long) 1000);  /*  #  desc  to  be  replicat  */ 
y  =  mess__desc  -  (long)x  *  (long)  1000;  /*  #  times  to  replicat*/ 

for  (j  =  0;  j  <  x;  j++)  /*  get  next  "x"  descriptors  */ 

{  fread(&rep [j] ,  sizeof (long) ,  1,  fpl) ; 

i++;  /*  increment  the  index  in  this  array  */ 

if (i  %  (long) 100  ==  (long)0) 

{  printf ("*") ; 

if (i  %  (long) 7000  ==  (long) 0) 
printf ("\n  "); 

else  if(i  %  (long) 1000  ==  (long)0) 
printf ("  ”) ; 
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/* 

*/ 

/* 

*/ 

/*- 

* 

* 

*  _ 
*/ 

/*- 

* 

* 

*  _ 
*/ 


for  (ii  =0/  ii  <  (int)y;  ii++)  /*  replicate  y  times  */ 

{  for  (j  =  0;  j  <  x;  j++)  /*  the  "x"  descriptors  */ 

{  fwrite (&rep  [j] ,  sizeof (long) ,  1 ,  fp2)  ; 
newcounter++ ; 


break ; 

case  2:  /*  operator  descriptor  */ 

printf ( n \n  Descriptor  %ld[i=%ld]  is  an  OPERAND\n" , 
mess_desc,  i) ; 

fwrite l&mess^desc,  sizeof (long) ,  1,  fp2) ; 
newcounter++ ; 
break ; 

case  3:  /*  sequence  descriptor  */ 

printf ("\n  Descriptor  %ld[i=%ld]  is  a  sequence\n” , 
mess_desc/  i) ; 

j  =  0;  /*  set  index  in  sequences  to  0  */ 

found  =0;  /*  set  found  to  not  true  */ 


Search  in  tbl_d  array  till  find  a  match  for  the  sequence  that 
came  in  the  message  or  exceed  the  size  of  the  tbl_d  array 


while ( I  found) 

{  if ( j  >  seq_count )  /*  descriptor  not  found  */ 


if  the  size  of  the  sequences  array  was  exceeded  and  no  match  was 
found  return  the  message  sequence  as  not  being  implemented 


{  printf (  " \nDescriptor  %ld  is  UNRECOGNIZED\n" ,  mess_desc) ; 
*status  =  (unsigned  long)  mess_desc; 
return; 

} 


if (mess_desc  ==  tbl_d [j ]. sequence)  /*  match  found  */ 

{  for  (a  =  (long)l;  a  <  tbl_d [ j ] . seq_expand;  a++) 

{  fwrite (&seq_desc [tbl_d [j] . seq_index  +  a],  sizeof (long) , 
fp2); 

newcounter++;  /*  expand  sequence  */ 

found  =1;  /*  set  found  flag  to  true  */ 

}  /*  end  if  match  found  */ 

j++;  /*  increment  the  sequences  index  */ 

}  /*  end  while  loop  */ 

break ; 

}  /*  end  switch  on  descriptor  type  */ 

}  /*  end  while  loop  on  message  descrip  */ 


*fin  +=  (int) (newcounter  -  count_desc) ;  /*  update  descr  count  chg* / 

count_desc  =  newcounter;  /*  update  #  descriptors  sent  to  file  */ 


k++;  / 

i  =  ( long) 0 ;  / 

}  / 

fclose(fpl);  / 

f close ( fp2 ) ; 


stay  in  loop  till  last  record  */ 
reset  pointer  to  first  descriptor  */ 
end  while  loop  on  data  sets  * / 
close  the  temp  descriptor  files  */ 
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/*  end  bufrgetindO  */ 


^ *  VOID  GET_DATA 

*<Begin> 

*<Identif ication> 


Name : 
Type: 
Filename : 
Parent : 


get_data 
C  void 
blirb  de.c 


main 


*<Description> 

*  Interprets  the  individual  descriptors  and  gets  the  BUFR  section  4 

*  data  processed 


*<Called  routines> 

*  bufruncomp 

*  gbyte 


gets  the  section  4  data  for  processing 
extracts  specified  bits  from  BUFR  stream 


*<Parameters> 

*  Formal  declaration: 

void  get_data (void) 
Input : 

None 
Output : 

None 


* 

* 

* 

* 

* 

*<History> 

*  02/01./ 95  AMSRL-BE-S  (505)  678-1570:  Elton  P.  Avara 

*  Adapted  the  "buf rgetind"  function  for  a  new  purpose. 

*<End> 

*********************************************************************** 


v 

Did  get_data (void) 

long  i; 
int  k ; 
int  found; 
int  f ; 


*/ 

*/ 


int  x; 

unsigned  long  y; 
static  struct  operation  oper; 
long  operand; 

FILE  *fp3 ; 

unsigned  long  something; 
long  ref_chg_val [100] ,  ref_chg_desc [100]  ; 
char  dummy [5] ; 

int  desc  cnt,  ref__chg_f  lag,  j; 


/*  index  in  mess_desc  array 
/*  index  in  data  sets 

/*  flag  if  element  descriptor  found  */ 
/*  descriptor  type: 

0  -  element  descriptor, 

1  -  replication  descriptor, 

2  -  operator  descriptor, 

3  -  sequence  descriptor. 

/*  last  6  bits  of  first  byte  in  descr*/ 
/*  the  second  byte  in  a  descriptor  */ 
/*  struct  operation 
/*  operand  descriptor 
/*  pointer  for  descriptor  file 


/ 


*/ 

*/ 


/ 


i  =  (long) 0 ; 
k  =  0  ; 

sect4_bits  =  (long) 8  *  (long) iMessageSize;  /*  #  bits  BLIRB  Sec  4  */ 

desc_cnt  =  ref_chg_flag  =  0; 

remove (temp31) ;  /*  remove  2nd  temp  descriptor  file  */ 

fp3  =  fopen (temp30 ,  "rb") ;  /*  open  primary  temp  descriptor  file  */ 
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while (k  <  dt_sets)  /*  loop  through  all  the  records 

{  oper . dt_width_op  =  0;  /*  initialize  operator  fields 

oper . scale_op  =  0; 
oper.ref_val_op  =  (long)0; 
oper . assoc_f Id  =  (long)0; 
oper ,assoc_width  =  (long)0; 

whiled  <  count_desc)  /*  get  thru  all  message  descriptors 

{  fread(&mess_desc,  sizeof (long) ,  1,  fp3) ; 

f  =  (int) (mess_desc  /  (long) 100000) ;  /*  type  descriptor 

i++; 

if (i  %  (long) 100  ==  (long) 0) 

{  print f ("*") ; 

if (i  %  (long) 7000  ==  (long)0) 
printf("\n  ") ; 

else  if(i  %  (long) 1000  ==  (long) 0) 
printf ( "  " ) ; 

switch  (f) 

{  case  0 : 

if ( ! ref_chg_f lag) 

{  if(desc_cnt) 

{  for(j  =  0;  j  <  d<  _ 

{  if (ref_chg_desc [ j]  ==  mess_desc) 

{  oper . ref _val_op  =  ref_chg_val [j] ; 
break; 


*/ 

*/ 


/* 

*/ 


/* 

*/ 


*/ 

*/ 


/* 

switch  on  descriptor  type 

*/ 

/* 

element  descriptor 

*/ 

/* 

if  re f _chg_f 1 ag  is  false 

*/ 

/* 

check  for  "ref  val  op"  value 

*/ 

} 


} 


} 


/*  decode  the  data 


*/ 

*/ 


bufruncomp (&oper) ; 

®lse  /*  if  ref_chg_flag  is  true 

{  ref_chg_desc [desc_cnt]  =  mess_desc; 

gbyte (&something,  (int) oper . ref _val_op) ;  /*  get  modify  ref*/ 
sect4_bits  -=  oper.ref_val_op;  /*  decrement  Sec  4  bit  cnt*/ 
ref_chg_val [desc_cnt]  =  (long) something;  /*  ref  chg  value  */ 

printf ("  New  Reference  Value  =  %ld\n", 

ref_chg_val [desc_cnt] ) ; 


} 


ope  r . r e  f _va l_op  =  ( 1 ong ) 0 ; 
desc_cnt++; 


/*  reset  ref_val_op 


*/ 


break; 

case  1:  /*  replication  descriptor 

printf ("\nDescriptor  %ld[i=%ld]  is  a  replication\n" , 
mess_desc,  i) ; 
printf ("This  should  not  happen  now.\n") ; 
break ; 

case  2:  /*  operator  descriptor  */ 

printf ("\n  Descriptor  %ld[i=%ld]  is  an  OPERAND\n",  mess  desc, 
i)  ;  ~~ 

operand  =  mess_desc  -  (long) 200000 ;  /*  remove  F  */ 

x  =  (int) (operand  /  (long) 1000) ;  /*  get  type  of  operand  */ 

y  =  operand  -  (long) (x  *  1000);  /*  value  of  operation  */ 


switch  (x) 
{  case  1 : 
if ( !y) 


/*  switch  on  operation  type 
/*  change  of  data  width 
/*  y  =  0 


*/ 

*/ 

*/ 
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/* 


*/ 


/* 

*/ 


/* 


*/ 


oper . dt_width_op  =0;  /*  cancel  change  data  width  */ 

else  /*  y  different  than  0  */ 

oper . dt_width_op  =  (int)y  -  128;  /*  change  data  width*/ 

printf ("  Data  Width  operator  =  %d\n" , 

oper .dt_width_op) ; 


break; 

case  2:  /*  change  scale  */ 

if ( i y)  /*  y  =  0  */ 

oper . scale_op  =0;  /*  cancel  change  scale  */ 

else  /*  y  different  than  0  */ 

oper . scale_op  =  (int)y  -  128;  /*  change  scale  */ 


printf ( "  Data  Scale  operator  =  %d\n" ,  oper . scale_op) ; 


break; 

case  3:  /*  change  reference  value  */ 

if ( iy)  /*  y  =  0  */ 

{  desc_cnt  =0;  /*  kill  all  reference  changes  */ 

ref_chg_flag  =  0; 

oper  .ref  __val_op  =  (long)O;  /*  cancel  chg  ref  value  */ 

else  if (y  ==  (long) 255)  /*  terminate  ref  chg  definition*/ 

ref_chg_flag  =  0; 

else  /*  initiate  change  of  reference  value*/ 

{  re f _chg_f 1 ag  =  1;  /*  set  ref_chg_flag  to  true  */ 

oper .ref _val_op  =  y;  /*  get  data  width  of  new  ref  */ 


printf ("  Reference  Value  Width  =  %ld\n" , 

oper . ref_val_op) ; 


} 

break ; 
case  4 : 


/*  associated  fields 


*/ 


Do  not  store  it  yet.  Only  read  it  and  then  skip  to  the  data 
itself.  Later  will  decide  on  whether  need  to  store  it  or  not. 


if ( !y)  /*  y  =  0  */ 

oper .assoc_fld  =  (long)0;  /*  cancel  associated  fields  */ 
else  /*  y  not  0  */ 

{  fread (&mess_desc,  sizeof (long) ,  1,  fp3) ; 

i++; 

if (i  %  (long) 100  ==  (long)0) 

{  printf ("*") ; 

if (i  %  (long) 7000  ==  (long)0) 
printf ("\n  " )  ; 

else  if(i  %  (long) 1000  ==  (long) 0) 
printf ("  "); 

} 

oper .assoc_width  =  (long)y;  /*  set  width  of  assoc  fid  */ 
gbyte ( &some thing ,  6 ) ; 

sect4_bits  -=  (long) 6;  /*  decrement  Sect  4  bit  count  */ 
oper .assoc_fld  =  (long) something;  /*  signif  assoc  fid*/ 

break; 

case  5:  /*  included  character  data  */ 

for  (j  =  0;  j  <  (int)y;  j++) 

{  gbyte (^something,  8);  /*  skip  over  it  */ 
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^  sect4_bits  -=  (long) 8;  /*  decrement  Sect  4  bit  count  */ 
break ; 

case  6:  /*  local  descriptor  follows  */ 

gbyte (^something,  (int)y);  /*  skip  over  it  */ 

sect4_bits  -=  (long)y;  /*  decrement  Sect  4  bit  count  */ 
fread (kmess^desc,  sizeof (long) ,  1,  fp3) ; 

i++; 

if(i  %  (long) 100  ==  (long) 0) 

{  printf ("*") ; 

if(i  %  (long) 7000  ==  (long) 0) 
printf ("\n  n )  ; 

else  if(i  %  (long) 1000  ==  (long)0) 
printf  ("  ,f )  ; 

} 

break; 

}  /*  end  switch  on  operation  type  */ 

break ; 

case  3:  /*  sequence  descriptor  */ 

printf ("\n  Descriptor  %ld[i=%ld]  is  a  sequence\n" , 
mess^desc,  i) ; 

printf ( "This  should  not  happen  now.\n") ; 
break ; 


}  /*  end  switch  on  descriptor  type  */ 

}  /*  end  while  loop  on  message  descrip  */ 

k++;  /*  stay  in  loop  till  last  record  */ 

i  =  (long)0;  /*  reset  pointer  to  first  descriptor  */ 

}  /*  end  while  loop  on  data  sets  */ 

fclose(fp3);  /*  close  the  temp  descriptor  file  */ 

remove (temp30) ;  /*  remove  it  */ 

write_file (dummy,  (long) (-1));  /*  indicate  all  descriptors  used  */ 


/*  end  get_data()  */ 


*  VOID  BUFRUNCOMP 
*********************************************************************** 
*<Begin> 

*< Identification  Name:  bufruncomp 

*  -  Type:  C  void 

*  Filename:  blirb_de.c 

*  Parent :  get_data 

*<Description> 

*  Extracts  the  uncompressed  data  in  BUFR  Section  4 . 

*<Called  routines> 

*  gbyte  -  extracts  specified  bits  from  BUFR  stream 


*<Parameters> 

*  Formal  declaration: 

*  void  bufruncomp (struct  operation  *oper) 

*  Input : 

*  *oper  -  current  BUFR  operation  structure 

*  Output : 

*  None 


*<History> 

*  02/02/94  CSC  Monterey,  CA  Mugur  Georgescu 

*  Developed  the  original  source  code. 
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*  05/31/94  PL  Hanscom  AFB,  MA  Rodger  Biasca 

*  Modified  the  original. 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Adapted  the  modified  code  to  BLIRB  BUFR  decode  use. 

*  =  =  =  =  ^  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =:  =  =  =  =  =  =  =  =  =  ==:  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  ==: 


*<End> 

*********************************************************************** 


*/ 

void  buf rune omp (struct  operation  *oper) 

{ 


unsigned  long  something; 
double  denominator; 
long  nominator; 
int  temppow; 

unsigned  long  assoc_val; 

char  tempascii [81]  ; 

int  i,  sign,  width,  maxlen, 


/*  value  extracted  from  message  */ 
/*  denominator  */ 
/*  numerator  */ 
/*  power  of  10  for  scale  factor  */ 


/*  the  value  in  the  associated  field  */ 
/*  temp  char  array  store  ASCII  data  */ 
indice; 


assoc_val  =  (unsigned  long)0;  /*  initialize  associated  field  */ 


for  (indice  =  0;  indice  <  counter;  indice++) 
if (mess_desc  ==  tbl_b [indice] . descriptor) 
break; 


if (stremp (tbl_b [indice] .units,  nCCITT_IA5 " )  ==  0)  /*  it  is  ASCII  */ 

{  maxlen  =  tbl_b  [indice]  .  da ta__width  /  8; 
for  (i  =  0;  i  <  maxlen;  i++) 

{  gbyte ( ^something ,  8 ) ; 

sect4_bits  -=  (long) 8;  /*  decrement  Sect  4  bit  count  */ 

if (i  <  80) 

tempascii [i]  =  (char) something; 

/*  ^ 

printf("  %81u  %81d  %4d  =  %4s  %9s\nM,  something, 

tbl_b [indice] . ref_val , 

tbl_b [indice] . scale  +  oper->scale_op,  tempascii, 
tbl  b [indice] .units) ; 

*/ 

write_file (tempascii ,  mess_desc) ;  /*  write  data  to  output  file  */ 

else  /*  it  is  not  ASCII  */ 

{  if (oper->assoc_f Id)  /*  there  is  assoc  field  before  data  */ 

{  gbyte (&assoc_val,  (int) oper->assoc_width) ;  /*  get  assoc  field  */ 
sect4  bits  -=  oper->assoc  width;  /*  decrement  Sect  4  bit  count  */ 

} 


something  =  (unsigned  long)0; 

width  =  tbl_b [indice] . data_width  +  oper->dt_width_op; 

gbyte (^something,  width);  /*  get  the  data  from  Sect  4  */ 

sect4_bits  -=  (long)  width;  /*  decrement  Sect  4  bit  count  */ 

sign  =  (int) (something  >>  (width  -  1));  /*  get  any  neg  sign  */ 

something  =  (something  <<  (32  -  width  +  1) )  >>  (32  -  width  +  1) ; 

if (something  !=  (unsigned  long) MISSING)  /*  not  missing  data  */ 

{  if (oper->ref_val_op)  /*  if  reference  value  is  modified  */ 

nominator  =  (long) something  +  oper- >ref_val_op;  /*  new  ref  */ 

else  /*  if  reference  value  is  unchanged  */ 

nominator  =  (long) something  +  tbl_b [indice] . ref _val; 


temppow  =  tbl_b  [indice]  . scale  +  oper- >scale_op ;  /*  get  tot  scale*/ 
if (temppow  !=  0)  /*  if  total  scale  is  not  0  */ 
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{  denominator 
bufr_data  = 

} 

else 

bufr  data  = 


=  pow( (double) 10/  (double) temppow) ; 

(float) ( (double) nominator  /  denominator);  /*  apply*/ 

/*  if  total  scale  is  0,  forget  it  */ 
( float ) nominator ; 


/* 


if (sign) 

bufr  data  =  -bufr  data; 

} 

else 

bufr_data  =  (float) 0.0; 

printf (n  %81u  %81d  %4d 

tbl_b [indice] . ref_val, 
tbl_b [indice] .scale  + 
tbl  b  [indice]  .units) ; 


/*  if  negative  sign  present 
/*  apply  it  to  the  data 

/*  if  data  is  missing 
/*  set  BLIRB  data  to  0 

%12.5e  %9s\n",  something, 

oper- >scale_op ,  buf r_data , 


*/ 

*/ 

*/ 

*/ 


if(assoc_val  ==  (unsigned  long)0) 
printf ( M \n" ) ; 
else 

printf  (M  Associated  field  =  %lu\n,,/  assoc_val); 
write_f ile (tempascii,  mess_desc) ;  /*  write  data  to  output  file  */ 


} 


if (sect4_bits  <=  (long) 0)  /*  check  for  remaining  Sect  4  bits 

write_f ile (tempascii,  (long)  (-2));  /*  if  so,  indicate  no  data 

/*  end  bufruncompO  */ 


*/ 

*/ 


/*  VOID  WRITE__FILE 


*<Begin> 

*<Identif ication> 
* 

* 

* 

★  j_.3-_.__  =  =  =  =  =  ==  =  =  =  =  =  ; 


Name : 
Type: 
Filename : 
Parent : 


write_f ile 
C  void 
blirb_de . c 

bufruncomp,  get_data 


*<Description> 

*  Writes  the  BLIRB  data  to  an  ASCII  file. 


*<Called  routines> 
*  None . 


*  <Parameters  > 

*  Formal  declaration: 

*  void  write_f ile (char  *string,  long  index) 

*  Input : 

*  *string  -  pointer  to  a  string  of  ASCII  characters 

*  index  -  data  element  Table  B  descriptor 

*  Output : 

*  None 


*<History> 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 

*/ 

void  write_f ile (char  *string,  long  index) 
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static  int  ch_desc[16]  =  {  0,  6,  11,  25,  31,  39,  42,  45,  48,  52,  59, 

63,  69,  75,  79,  81  };  /*  char  data  indice*/ 
static  int  ch_cnt  =  16;  /*  num  of  types  of  BLIRB  input  cards  */ 

static  int  ch_last[16]  =  {  5,  10,  17,  30,  38,  41,  44,  47,  51,  58,  62, 

68,  74,  78,  80,  82  };  /*end  BLIRB  inp  crd*/ 
static  int  in_desc [7]  =  {  18,  19,  20,  21,  22,  23,  24  };  /*  int  input*/ 


static  int  in_cnt  =7;  /*  number  of  int  input  data  indices  */ 

static  int  out_desc [5]  =  {  0,  1,  2,  3,  4  };  /*  integer  output  data  */ 

static  int  out  cnt  =  5;  /*  number  of  int  output  data  indices  */ 

static  int  max~desc  =  YYM;  /*  maximum  BLIRB  index  */ 

static  long  xO  =  (long) (BB  *  1000) ;  /*  xO  from  Table  B  for  BLIRB  */ 

static  long  cnt  =  (long)0;  /*  data  element  count  for  each  group  */ 

static  long  item  =  (long)0;  /*  current  group  data  element  count  */ 

static  long  total  =  (long)0;  /*  total  data  element  count  */ 

static  int  itmod  =0;  /*  index  to  indicate  print/no  print  */ 

static  int  rep  [7] ;  /*  array  for  integer  BLIRB  data  */ 

static  float  data [7];  /*  array  for  floating  BLIRB  data  */ 

static  char  ident[5];  /*  array  for  BLIRB  char  data  */ 

static  int  out_wave,  out_imx[3] ,  nal,  itnl,  albdl,  iscl; 
int  i,  j,  desc; 

if (index  <  (long) 0)  /*  if  index  is  negative  */ 

{  desc  =  (int) index;  /*  use  it  as  is  to  indicate  no  data  */ 

printf("\n  There  were  %ld  data  elements  processed. \n\n" ,  total); 

else  /*  if  index  is  >=  0  */ 

{  desc  =  (int) (index  -  xO) ;  /*  get  the  yO  portion  */ 

if (desc  <  YYO) 

desc  -=  YYI ;  /*  adjust  BLIRB  input  for  Table  B  */ 


total++;  /*  increment  total  data  element  count*/ 

} 

for  (j  =  0;  j  <  ch_cnt;  j++) 
if (desc  ==  ch_desc[j]) 

{  for  (i  =  0;  i  <  4;  i++) 
ident[i]  =  string [i] ; 
if (desc  ==  69) 

ident[3]  =  (char) 32; 
return ; 

} 

for  (j  =0;  j  <  in_cnt;  j++)  /*  check  for  integer  input  data  index*/ 


if (desc  ==  in_desc[jj) 

{  rep  [item]  =  (int)  (bufr_data  +  0.001);  /*  if  found,  save  it  */ 

item++;  /*  increment  group  data  count  */ 

itmod++;  /*  increment  the  print  index  */ 

if (desc  ==  23)  /*  get  the  number  of  ALBD  cards  */ 

albdl  =  rep [item  -  (long)l]; 


else  if (desc  ==  24)  /*  if  last  of  multiple  input  crd  cnts*/ 

{  fprintf(fpo,  "%6d%6d%6d%6d%6d%6d%6d\n" ,  reptO],  rep[l], 

rep  [2],  rep  [3],  rep[4]#  rep  [5],  rep  [6]);  /*  print  data*/ 
item  =  (long) 0 ;  /*  reinitialize  group  data  count  */ 

itmod  =  0;  /*  reinitialize  the  print  index  */ 

} 

return ; 

} 

if  (desc  <  0  ScSc  !  itmod)  /*  if  no  more  data  and  all  printed  */ 

{  f close (fpo) ;  /*  close  output  file  */ 

fclose(fp);  /*  close  input  file  */ 


/*  check  for  char  input  data  index  */ 

/*  if  found,  save  it  for  later  */ 

/*  if  "SUN" ,  add  a  blank  &  get  "SUN  "*/ 
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exit(O);  /*  exit  program  */ 

data [itmod]  =  bufr_data;  /*  save  the  data  in  a  temp  array  */ 

item++;  /*  increment  group  data  count  */ 

if (desc  >  0  &&  desc  <=  ch_last [ch_cnt  -1])  /*  if  BLIRB  input  card  */ 
{  itmod++;  /*  increment  print  index  */ 


if (desc  ==  64)  /*  value  of  "ISC”  +  1  from  DOMD  card  */ 

iscl  =  (int) (data [itmod  -  1]  +  1.0); 

for  (j  =  0;  j  <  ch__cnt;  j++) 

{  if (desc  ==  ch_last [ j ] )  /*  check  for  last  data  on  input  card  */ 

{  if (desc  ==  78)  /*  get  the  number  of  wavelengths  */ 

{  out_wave  =  (int) data  [2] ; 

data  [2]  =  (data [1]  -  data[0])  /  data [2] ; 


switch  (itmod)  /*  if  last  data  on  input  card,  print  */ 

{  case  1: 

fprintf  (fpo,  "%s  %10.3e\n,,/  ident,  data[0]); 

break ; 
case  2 : 

fprintf (fpo,  ”%s  %10 . 3e%10 . 3e\nn  ,  ident,  data[0], 

data  [1] ) ; 
break; 
case  3 : 

fprintf (fpo,  "%s  %10 . 3e%10 . 3e%10 . 3e\n" ,  ident,  data[0], 

data  [1] ,  data [2] ) ; 
break ; 
case  4 : 

fprintf (fpo,  "%s  %10 . 3e%10 . 3e%10 . 3e%10 . 3e\nn ,  ident , 

data  [0]  ,  data  [1]  ,  data  [2],  data[3]); 
break ; 
case  5: 

fprintf  (fpo,  "  %s  %10 . 3e%10 . 3e%10 . 3e%10 . 3e%10 . 3e\n,T , 

ident,  data[0],  data[l],  data  [2],  data  [3],  data  [4]); 
break; 
case  6 : 

fprintf (fpo, 

"%s  %10.3e%10.3e%10.3e%10.3e%10.3e%10.3e\n" , 

ident,  data[0],  data[l],  data  [2],  data  [3],  data  [4], 
data  [5] )  ; 
break; 
case  7 : 

fprintf (fpo, 

M%s  %10.3e%10.3e%10.3e%10.3e%10.3e%10.3e%10.3e\n", 

ident,  data[0],  data[l],  data  [2],  data  [3],  data  [4], 
data  [5]  ,  data [6] )  ; 
break; 

} 

item  =  (long)0;  —  /*  reinitialize  group  data  count  */ 

itmod  =0;  /*  reinitialize  print  index  */ 

return ; 


else  if (desc  <=  max_desc)  /*  BLIRB  data,  not  BLIRB  input  card  */ 

{  if (desc  >=  0) 

itmod  =  (int) (item  %  (long) 6);  /*  get  print  index  */ 

desc  -=  YYO; 
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for  (j  =  0/  j  <  outwent;  j++)  /*  check  for  integer  output  data  */ 


if (desc  ==  out_desc[jj) 

{  rep [item  -  (long)l]  =  (int) (bufr_data  +  0.001);  /*  save  it  */ 

if (desc  ==  0)  /*  get  value  of  "NA  +  1"  */ 

nal  =  rep [item  -  (long)l]  +  1; 

else  if (desc  ==  1)  /*  get  value  of  ” ITN  +  1"  */ 

{  itnl  =  rep [item  -  (long)l]  +  1; 

fprintf (fpo,  "%12d%12d\n" ,  rep[0],  rep[l]); 

item  =  (long) 0 ;  /*  reinitialize  group  data  count  */ 

itmod  =0;  /*  reinitialize  print  index  */ 

else  if (desc  ==  2)  /*  get  number  of  X  grid  sections  */ 

out_imx[0]  -  rep [item  -  (long) 1] ; 
else  if (desc  ==  3)  /*  get  number  of  Y  grid  sections  */ 

out_imx[l]  =  rep [item  -  (long)l]; 
else  if (desc  ==  4)  /*  get  number  of  Z  grid  sections  */ 

{  out_imx [2]  =  rep [item  -  (long)l]; 

f print f (fpo,  "%12d%12d%12d\n" ,  rep[0],  rep[l],  rep[2]); 
item=  (long) 0 ;  /*  reinitialize  group  data  count  */ 

itmod  =0;  /*  reinitialize  print  index  */ 

} 

return; 

} 

if (ent  ==  (long)0)  /*  determine  expected  #  of  data  */ 


{  if  (desc  >4  ScSc  desc  <  8)  /*  elements  in  group  */ 

ent  =  (long)  (out_imx [desc  -  5]  +  1)  ; 
else  if (desc  ==  8) 

ent  =  ( long ) ( out_imx [ 0 ]  *  out_imx[l]); 
else  if (desc  ==  9) 

ent  =  (long)  (out_imx[0]  *  out_imx[l]  *  out_imx[2]); 
else  if (desc  ==  10) 
ent  =  (long) nal; 
else  if (desc  ==  11) 
ent  =  (long)albdl; 
else  if (desc  >  11  &&  desc  <  15) 
ent  =  (long) itnl; 
else  if (desc  >  14  &&  desc  <  17) 
ent  =  (long) (4  *  itnl); 
else  if (desc  ==  17) 

ent  =  (long) (iscl  *  itnl) ; 
else  if (desc  >  17) 

ent  =  (long) (out_imx[0]  *  out_imx[l]  *  out_imx[2]); 


if (! itmod  ((item  ==  ent)  &&  (desc  <  20)) 

((item  ==  (long) 8  *  ent)  &&  (desc  ==  YYM  -  YYO) ) 
desc  <  0)  /*  determine  whether  to  print  or  not  */ 

{  switch  (itmod) 

{  case  0 : 

fprintf (fpo ,  " %12 . 4e%12 . 4e%12 . 4e%12 . 4e%12 . 4e%12 . 4e\n" , 

data  [0] ,  data [1] ,  data  [2] ,  data [3] ,  data [4] , 
data  [5] )  ; 

break; 
case  1: 

fprintf (fpo,  " %12 .4e\nH ,  data [0] ) ; 
break ; 
case  2 : 

fprintf (fpo,  "%12 . 4e%12 . 4e\n" ,  data [0] ,  data [1] ) ; 
break ; 
case  3 : 


165 


fprintf {fpo,  "%12.4e%12.4e%12.4e\n",  data[0] ,  data[l] , 
data  [2] ) ; 

break ,* 
case  4 : 

fprintf  ( fpo ,  "%12.4e%12.4e%12.4e%12.4e\n",  data[0]  ,  data  [1]  , 

data  [2] ,  data  [3]  )  ; 

break ; 
case  5 : 

fprintf  (fpo,  11  %12 . 4e%12 .4e%12 .4e%12 .4e%12 . 4e\n"  ,  data  [0]  , 
data[l],  data  [2],  data  [3],  data  [4]); 

break ; 

} 

itmod  =0;  /*  reinitialize  print  index  */ 


if (((item  ==  cnt)  &&  (desc  <  20))  j  j 

((item  ==  (long) 8  *  cnt)  &&  (desc  ==  (YYM  -  YYO) ) ) )  /*lst  dat*/ 

{  item  =  (long)0;  /*  reinitialize  group  data  count  */ 

cnt  =  (long) 0 ;  /*  reinitialize  expected  grp  data  cnt  */ 

if (desc  <  0)  /*  if  no  more  data  available  */ 

{  f close (fpo);  /*  close  output  file  */ 

f close ( f p) ;  /*  close  input  file  */ 

exit(0);  /*  exit  program  */ 


else.  ^  /*  descriptor  not  BLIRB  data  */ 

printf ( "Descriptor  %ld  not  recognized! \n" ,  index); 


/*  end  write_file()  */ 
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Appendix  E 

Listing  of  BLIRB_CM.C 


/*  Input  Record  Length  bytes*/ 


*  -  Definitions 

*/ 

#define  RLEN  190 


*  Procedure  (function)  Prototypes. 

*/ 

void  main(int  argc,  char  **argv) ; 
void  readcards (void) ; 
void  readoutput (void) ; 

*  -  Includes  and  declarations 

*/ 

#include  <string . h> 

#include  <stdio.h> 

#include  <math.h> 
ftinclude  <fcntl.h> 

#include  <ctype.h> 

#include  <time.h> 

#include  <stdlib . h> 


/* - 

*  -  Array  declarations  and  assignments 


*/ 

FILE  *fpl; 
FILE  *fp2 ; 


int  albd; 
float  mdll_model; 
float  domd_isc; 

float  wavn_vl,  wavn_v2 ,  wavn^dv; 
int  out_imx[3] ; 
int  out_nwave ; 


/*  Filename  Variables  */ 

/*  Pointer  to  Input  File  1  */ 

/*  Pointer  to  Input  File  2  */ 

/*  BLIRB  Input /Output  Variables  */ 
/*  Indicator  of  ALBD  cards  */ 
/*  The  BLIRB  Temp  model  */ 

/*  Order  Spherical  Harmonic  */ 
/*  Wavenumber  info  */ 

/*  Num  of  X,  Y,  Sc  Z  grid  pt  */ 
/*  Number  of  Waves  */ 


*  VOID  MAIN 


*<Begin> 

*< Identification  Name:  main 

*  Type:  C  Main  Program 

*  Filename:  blirb_cm.c 

*  Parent :  None 

*<Description> 

*  This  program  compares  the  original  BLIRB  output  file  with  the 

*  BUFR  decoded  version  of  the  file. 


*<Called  routines> 

*  readcards 

* 


reads  the  BLIRB  input  records  from  both 
BLIRB  output  files  and  compares  them 
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*<Parameters> 

*  Formal  declaration: 

*  void  main (int  argc,  char  **argv) 

*  Input : 

*  argc  -  (int)  the  number  of  command  lines  inputs 

*  argv  -  (char  pointer)  the  array  of  command  lines 

*  inputs 

*  Output : 

*  None 

*<History> 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  main (int  argc,  char  **argv) 

fpl  =  fopen (argv [1]  ,  "r")  ; 
fp2  =  fopen (argv [2] ,  "r")  ; 


readcards ( )  ; 

}  /*  end  main()  */ 

/*********************************************************************** 
*  VOID  READCARDS 

*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  readcards 


Name 

Type 

Filename 

Parent 


readcards 
C  void 
blirb  cm.c 


*<Description> 

*  Reads  the  BLIRB  input  records  from  the  two  BLIRB  output  files 

*  and  compares  the  corresponding  values. 

*<Called  routines> 

*  readoutput  -  reads  BLIRB  output  from  the  output  files 

*  and  compares  them 

*<Parameters> 

*  Formal  declaration: 

*  void  readcards (  void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  02/01/95  AMSRL-BE-S  —(505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 


void  readcards (void) 


char  cardlabel [5] ,  card [RLEN] ,  c[5]; 
char  cardlabell [5] ,  cardl [RLEN] ,  cl  [5]; 
float  x[10],  xl [10] ,  avg,  dif; 
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int  y[10] ,  yl[10],  i;  reel; 


albd  =  reel  =  -1 ; 

d°  /*  From  VIEW.RJOB  Subroutine*/ 

/* - - — - - - - 

*  -  Read  a  BLIRB  input  card  from  the  file. 


*/ 

{  fgets(card,  RLEN,  fpl); 
fgets(cardl,  RLEN,  fp2)  ; 

/* - - - 

*  -  Get  the  first  5  characters  (card  identifier)  from  the  card. 


*/ 

sscanf  (card,  "%s",  cardlabel)  ,- 
sscanf (cardl ,  "%s",  cardlabell); 


/* - 

*  -  Process  the  rest  of  the  card  depending  upon  the  identifier. 


if (strnemp (cardlabel, "MDL1" , 4)  ==  0) 

{  sscanf (card,  "%s%10e%10e%10e%10e%10e" ,  c,  &x[0],  &x[l],  &x[2], 
&x  [3]  ,  &x [4]  )  ; 
mdll_model  =  x[l]; 

if (strnemp (cardlabell, "MDL1" , 4)  ==  0) 

sscanf (cardl,  "%s%10e%10e%10e%10e%10e" ,  cl,  &xl[0],  &xl [1] , 
&xl  [2]  ,  txl  [3]  ,  ScXl  [4]  )  ; 

for  (i  =  0;  i  <  5;  i++) 

{  avg  =  0.5  *  (xl[i]  +  x[i]); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  xl  [i]  -  x  [i] ; 

dif  =  (float)fabs((double)dif); 

if (fabs ( (double)  dif  >  (double)  (0.001  *  avg))) 

printf ( "MDL1 :  xl[%d]  =  %12e,  x2 [%d]  =  %l2e\n",  i,  x [i] ,  i, 

Xl  [i] )  ; 


else  if (strnemp (cardlabel, "MDL2" , 4)  ==  0) 

{  sscanf (card,  "%s%10e%10e%10e%10e" ,  c,  &x[0] ,  &x[l],  &x[2],  &x[3]); 

if (strnemp (cardlabell, "MDL2" , 4)  ==  0) 

sscanf (cardl,  "%s%10e%10e%10e%10e" ,  cl,  &xl [0] ,  &xl[l],  &xl[2], 
&Xl  [3] )  ; 

for  (i  =  0;  i  <  4;  i++) 

{  avg  =  0.5  *  (xl[i]  +  x[i]); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  xl  [i]  -  x  [i] ; 
dif  =  (float)fabs((double)dif); 

if (fabs ( (double)  dif  >  (double)  (0.001  *  avg))) 

printf ( "MDL2 ;  xl[%d]  =  %12e,  x2 [%d]  =  %l2e\n",  i,  x[i],  i, 
xl  (i] )  ; 


if ( (int)mdll_model  !=  7) 

{  fgets(card,  RLEN,  fpl) ; 
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sscanf (card,  "%ld%ld%ld%ld%ld%ld%ld" ,  &y[0] ,  &y[l] ,  &y[2] , 
&y[3]  ,  &y[4],  &y[5],  &y[6]); 

fgets(cardl,  RLEN,  fp2) ; 

sscanf (cardl,  "%ld%ld%ld%ld%ld%ld%ld" ,  &yl [0] ,  &yl [1] ,  &yl [2] , 
&yl  [3] ,  &yl  [4] ,  &yl  [5] ,  &yl [6] ) ; 

for  (i  =  0;  i  <  7;  i++) 
if (abs (yl [i]  -  y [ i] )  >  0) 

printf  Cents:  yl[%d]  =  %6d,  y2  [%d]  =  %6d\n"<  i,  y[i]  ,  i, 
yl  [i] )  ; 


else  if (strnemp (cardlabel , "MDL3" ,4)  ==  0) 

{  sscanf (card,  "%s%10e%10e%10e%10e%10e%10e" ,  c,  sac[0],  sac[l]  ,  sac[2], 
&x  [3 ]  ,  sac  [4]  ,  sac  [5]  )  ; 

if (strnemp (cardlabell, "MDL3" , 4)  ==  0) 

sscanf (cardl,  "%s%10e%l0e%10e%10e%10e%l0e" ,  cl,  sacl[0],  sacl  [1] , 
sacl[2],  Sixl  [3]  ,  Sixl  [4]  ,  Sixl  [5]  )  ; 

for  (i  =  0;  i  <  6;  i++) 

{  avg  =  0.5  *  (xl  [i]  +  x[i]); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  xl [i]  -  x  [i]  ; 

dif  =  (float)  fabs  (  (dovible)  dif)  ; 

if (fabs ( (double)  dif  >  (double)  (0.001  *  avg))) 

printf ( "MDL3 :  xl [%d]  =  %12e,  x2 [%d]  =  %12e\n",  i,  x[i] ,  i, 

xl  [i] )  ; 

} 


fgets(card,  RLEN,  fpl) ; 

sscanf  (card,  "%ld%ld%ld%ld%ld%ld%ld" ,  &y[0]  ,  Siy[l]  ,  &y[2]  ,  &y[3]  , 
&y[4]  ,  Siy[5],  &y  [ 6 ] )  ; 


fgets (cardl,  RLEN,  fp2) ; 

sscanf  (cardl ,  " %ld%ld%ld%ld%ld%ld%ld" ,  Siyl  [0]  ,  Siyl  [1]  ,  &yl[2], 

&yl [ 3 ] ,  &yl [4] ,  &yl[5],  &yl [6] ) ; 


} 


for  (i  =  0;  i  <  7;  i++) 
if(abs(yl[i]  -  y[i])  > 
printf ( "ents :  yl [%d] 
yl  [i] )  ; 


0) 

=  %6d, 


y2 [%d] 


%6d\n" ,  i,  y[i] ,  i. 


else  if (strnemp (cardlabel, "AREA" , 4)  ==  0) 

{  sscanf  (card,  "%s%10e%10e%10e%10e%10e" ,  c,  sac[0],  sac[l],  &x[2], 
sac  [3]  ,  &x[4]); 


if (strnemp (cardlabell , "AREA" , 4 )  ==  0) 

sscanf  (cardl,  "%s%10e%10e%10e%10e%10e" ,  cl,  sacl  [0]  ,  sacl  [1]  , 
Sixl  (2]  ,  sacl  [3]  ,  sacl  [4]),- 


for  (i  =  0;  i  <  5;  i++) 

{  avg  =  0.5  *  (xl [i]  +  x[i]); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  xl  [i]  -  x  [i]  ; 
dif  =  (float)fabs((double)dif); 

if (fabs ( (double)  dif  >  (double)  (0.001  *  avg))) 

printf ("AREA:  xl [%d]  =  %12e,  x2 [%d]  =  %12e\n",  i,  x[i] ,  i, 

xl  [i] )  ; 
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} 


} 


else  if (strncmp (cardlabel , "REGN" , 4)  ==  0) 

{  sscanf (card,  "%s%10e%10e%10e%10e%10e%10e%10e" ,  c,  &x[0],  &x[l], 
&x[2],  &X  [ 3 ]  ,  &X  [4]  ,  &x[5],  &X  [6]  )  ; 

if (strncmp (cardlabell, "REGN" , 4)  ==  0) 

sscanf (cardl,  "%s%10e%10e%10e%10e%10e%10e%10e" ,  cl,  &xl [0] , 
&Xl[l],  &Xl  [2]  ,  &Xl  [3]  ,  &xl  [4]  ,  &xl  [5]  ,  &xl  [6]  )  ; 

for  (i  =  0;  i  <  7;  i++) 

{  avg  =  0.5  *  (xl  [i]  +  x  [i]  )  ; 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  xl [i]  -  x  [i] ; 
dif  =  (float) fabs ( (double) dif ) ; 
if (fabs ( (double)  dif  >  (double)  (0.001  *  avg))) 

printf ("REGN:  xl [%d]  =  %12e,  x2 [%d]  =  %12e\n",  i,  x[i],  i, 

xl  [i])-; 


else  if (strncmp (cardlabel, "MESX" , 4)  ==  0) 

{  sscanf (card,  "%s%10e%10e" ,  c,  &x[0],  &x[l]); 

if (strncmp (cardlabell, "MESX" , 4)  ==  0) 

sscanf (cardl,  "%s%10e%10e" ,  cl,  &xl[0],  &xl[l]); 

for  (i  =0;  i  <  2;  i++) 

{  avg  =  0.5  *  (xl [i]  +  x[i]); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  xl  [i]  -  x  [i]  ; 
dif  =  (float) fabs ( (double) dif ) ; 

if (fabs ( (double)  dif  >  (double)  (0.001  *  avg))) 

printf ("MESX:  xl[%d]  =  %12e,  x2 [%d]  =  %12e\n" ,  i,  x[i],  i, 
xl  [i] )  ; 


else  if (strncmp (cardlabel, "MESY", 4)  ==  0) 

{  sscanf (card,  "%s%10e%10e" ,  c,  &x[0],  &x[l]); 

if (strncmp (cardlabell, "MESY", 4)  ==  0) 

sscanf (cardl,  "%s%10e%10e" ,  cl,  &xl [0] ,  &xl [1] ) ; 

for  (i  =  0;  i  <  2;  i++) 

{  avg  =  0.5  *  (xl  [i]  +  x[i]); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  xl  [i]  -  x [i] ; 

dif  =  (float)fabs((double)dif); 
if (fabs ( (double)  dif  >  (double)  (0.001  *  avg))) 

printf ("MESY:  xl [%d]  =  %l2e,  x2 [%d]  =  %l2e\n",  i,  x[i],  i, 
J  xl  [i] )  ; 

else  if (strncmp (cardlabel, "MESZ" , 4)  ==  0) 

{  sscanf (card,  "%s%10e%10e" ,  c,  &x[0],  &x[l]); 

if (strncmp (cardlabell, "MESZ" , 4)  ==  0) 

sscanf (cardl,  "%s%10e%10e" ,  cl,  &xl[0],  &xl [l] ) ; 
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for  (i  =  0;  i  <  2;  i++) 

{  avg  =  0.5  *  (xl [i]  +  x[i]); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  xl  [i]  -  x  [i]  ; 

dif  =  (float) fabs ( (double) dif ) ; 
if (fabs ( (double)  dif  >  (double)  (0.001  *  avg))) 

printf ( "MESZ :  xl [%d]  =  %12e,  x2 [%d]  =  %12e\n",  i,  x[i],  i, 
xl [i] )  ; 


else  if (strncmp (cardlabel, "ALBD" , 4)  ==  0) 

{  sscanf (card,  " %s%10e%10e%10e" ,  c,  &x[0],  &x[l],  &x[2]); 
albd++; 

if (strncmp (cardlabell, "ALBD" , 4)  ==  0) 

sscanf (cardl,  "%s%10e%10e%10e" ,  cl,  &xl[0],  &xl [1] ,  &xl[2]); 

for  (i  =  0;  i  <  3;  i++) 

{  avg  =  0.5  *  (xl  [i]  +  x[i]); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  xl  [i]  -  x  [i]  ; 
dif  =  (float) fabs ( (double) dif ) ; 
if (fabs ( (double)  dif  >  (double)  (0.001  *  avg))) 

printf ("ALBD:  xl[%d]  =  %12e,  x2 [%d]  =  %12e\n",  i,  x[i] ,  i, 
Xl  [i] )  ; 


else  if (strncmp (cardlabel , "MTRL" , 4)  ==  0) 

{  sscanf (card, "%s%10e%10e%10e%10e%10e%10e",  c,  &x[0],  &x[l], 

&x[2],  &x  [3]  ,  &x  [4]  ,  &x  [  5  ]  )  ; 

if (strncmp (cardlabell, "MTRL" , 4)  ==  0) 

sscanf (cardl,  "%s%10e%10e%10e%10e%10e%10e" ,  cl,  &xl [0] ,  &xl  [1] , 
&xl[2],  &xl [3] ,  &xl [4] ,  &xl  [5] ) ; 

for  (i  =  0;  i  <  6;  i++) 

{  avg  =  0.5  *  (xl  [i]  +  x[i]); 

avg  =  (float) fabs ( (double) avg) ; 
dif  =  xl [i]  -  x  [i] ; 
dif  =  (float) fabs ( (double) dif) ; 
if (fabs ( (double)  dif  >  (double)  (0.001  *  avg))) 

printf ("MTRL:  xl [%d]  =  %12e,  x2 [%d]  =  %12e\n",  i,  x[i],  i, 
xl  [i] )  ; 


else  if (strncmp (cardlabel, "CLDS", 4)  ==  0) 

{  sscanf (card,  "%s%10e%10e%10e%10e" ,  c,  &x[0],  &x[l] ,  &x[2],  &x[3]); 

if (strncmp (cardlabell, "CLDS" , 4)  ==  0) 

sscanf (cardl,  "%s%10e%10e%10e%10e" ,  cl,  &xl[0],  &xl [1] ,  &xl  [2] , 
&xl[3]); 

for  (i  =  0;  i  <  4;  i++) 

{  avg  =  0.5  *  (xl  [i]  +  x[i]); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  xl [i]  -  x  [i] ; 

dif  =  (float)fabs((double)dif); 
if (fabs ( (double)  dif  >  (double)  (0.001  *  avg))) 

printf ("CLDS:  xl[%d]  =  %12e,  x2 [%d]  =  %12e\n",  i,  x [i] ,  i, 
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xl[i]  )  ; 


else  if (strncmp (cardlabel, "DOMD" , 4)  ==  0) 

{  sscanf (card,  "%s%10e%10e%10e%10e%10e" ,  c,  &x[0],  &x[l] 
&x  [3]  ,  &x[4]  )  ; 
domd_isc  =  x [0] ; 

if (strncmp (cardlabell , "DOMD" ( 4)  ==  0) 

sscanf (cardl,  "%s%10e%10e%10e%10e%10e" ,  cl,  &xl [0] , 
&xl[2],  &xl  [3]  ,  &xl  [4]  )  ; 

for  (i  =  0;  i  <  5;  i++) 

{  avg  =  0.5  *  (xl  [i]  +  x[i]); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  xl  [i]  -  x[i]  ; 
dif  =  (float) fabs ( (double) dif ) ; 
if (fabs ( (double)  dif  >  (double)  (0.001  *  avg))) 
printf ("DOMD:  xl [%d]  =  %i2e,  x2 [%d]  =  %12e\n",  i, 

xl [i] )  ; 


else  if (strncmp (cardlabel, "SUN" , 3)  ==  0) 

{  sscanf (card,  "%s%10e%10e%10e%10e%10e" ,  c,  &x[0] ,  &x[l] 

&x  (3]  ,  &x  [4] )  ; 

if (strncmp (cardlabell, "SUN", 3)  ==  0) 

sscanf (cardl,  »%s%l0e%10e%l0e%10e%10e" ,  cl,  &xl[0], 
&Xl  [2]  ,  &xl  [3]  ,  &xl  [4] )  ; 

for  (i  =  0;  i  <  5;  i++) 

{  avg  =  0.5  *  (xl  [i]  +  x[i]); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  xl [i]  -  x  [i]  ; 

dif  =  (float)fabs((double)dif); 

if (fabs ( (double)  dif  >  (double)  (0.001  *  avg))) 

printf ("SUN  :  xl[%d]  =  %12e,  x2 [%d]  =  %12e\n",  i, 

xl[i]  )  ; 


else  if (strncmp (cardlabel, "WAVN" , 4)  ==  0) 

{  sscanf  (card,  "%s%10e%10e%10e" ,  c,  &x[0],  &x[l],  Stx[2]) 
x  [2]  =  (x[l]  -  X  [0]  )  /  x  [2]  ; 

wavn_vl  =  x [0] ; 
wavn_v2  =  x[l] ; 
wavn_dv  =  x[2]; 

if (strncmp (cardlabell, "WAVN" , 4)  ==  0) 

sscanf (cardl ,  "%s%10e%10e%10e" ,  cl,  &xl[0],  &xl [1] , 

xl[2]  =  (xl(l]  -  xl  [0]  )  /  xl  [2]  ; 

for  (i  =  0;  i  <  3;  i++) 

{  avg  =  0.5  *  (xl[i]  +  x[i]); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  xl [i]  -  x [ i] ; 
dif  =  (float) fabs ( (double) dif ) ; 

if (fabs ( (double)  dif  >  (double)  (0.001  *  avg))) 
printf ("WAVN:  xl [%d]  =  %12e,  x2 [%d]  =  %12e\n",  i, 

xl  [i] )  ; 


,  &x  [2]  , 

&xl  [1]  , 

x [i]  ,  i, 

,  &x  [2]  , 

&xl[l]  , 

X  [i]  ,  i, 

/ 

&xl  [2]  )  ; 

x  [i]  ,  i, 
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else  if (strncmp (cardlabel , "ASCI " , 4)  ==  0) 

{  sscanf (card,  "%s%10eM,  c,  &x[0]); 

if (strncmp (cardlabell, "ASCI" ,4)  ==  0) 
sscanf (cardl,  M%s%10e",  cl,  &xl [0] ) ; 

avg  =  0.5  *  (xl  [0]  +  x[0]  )  ; 

avg  =  (float) fabs ( (double) avg) ; 

dif  =  xl  [0]  -  x  [0]  ; 

dif  =  (float) fabs ( (double) dif ) ; 

if (fabs ( (double)  dif  >  (double)  (0.001  *  avg))) 

printf ("ASCI:  xl  =  %12e,  x2  =  %12e\n",  x[0],  xl [0] ) ; 

} 

else  if (strncmp (cardlabel, "RECL" , 4)  ==  0) 

{  reel  =  0; 

sscanf (card,  "%s%10e" ,  c,  &x [ 0 ] ) ; 

if (strncmp (cardlabell, "RECL" ,4)  —  0) 
sscanf (cardl,  "%s%10e" ,  cl,  &xl[0]); 

avg  =  0.5  *  (xl  [0]  +  x[0]); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  xl  [0]  -  x  [0]  ; 

dif  =  (float) fabs ( (double) dif ) ; 

if (fabs ( (double)  dif  >  (double)  (0.001  *  avg))) 

printf ("RECL:  xl  =  %12e,  x2  =  %12e\n",  x[0],  xl [0] ) ; 

} 


else 

printf ("  Record  ID  %s  not  identified. \n" ,  cardlabel);  /*  Unknown*/ 
}  while  (reel  !=  0) ; 
readoutput ( ) ; 


/* - - - 

*  -  When  finished  reading  all  the  data,  close  the  files. 

*  _ 

*/ 

f close (fpl) ; 
fclose (fp2) ; 

}  /*  end  readcardsO  */ 

/*********************************************************************** 

*  VOID  READOUTPUT 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  readoutput 

*  Type:  C  void 

*  Filename:  blirb_cm.c 

*  Parent :  readcards 

*<Description> 

*  Reads  the  BLIRB  output  data  from  the  BLIRB  output  files  and 

*  compares  the  corresponding  values . 

*<Called  routines> 

*  None 
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*<Parameters> 

*  Formal  declaration: 

*  void  readoutput (void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  02/01/95  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*/ 

void  readoutput (void) 

float  dum,  *data,  *datal,  avg,  dif; 
int  i,  k,  m,  1,  na,  itn,  itnl; 
long  j,  incr,  y[3] ; 


/* - 

*  -  Determine  the  number  of  wavenumbers . 

*  _ 

*/ 

out_nwave  =  wavn_dv; 


/* - 

*  -  Read  the  values  of  NA  and  ITN. 


*/ 

fscanf (fpl,  "%d%d" ,  &na,  &itn) ; 
f scanf (fp2 ,  "%d%d" ,  &y[0]  ,  &y[l]); 

if (abs (y [0]  -  na)  >  0) 

printf ( "NA:  NA[1]  =  %d,  NA[2]  =  %d\n",  na,  y[0]); 
if (abs (y [1]  -  itn)  >0) 

Printf ( "ITN :  ITN[1]  =  %d,  ITN[2]  =  %d\n",  itn,  y[l]); 
itnl  =  itn  +  1; 


*  -  Referencing  the  VIEW  program  subroutine  RJOB,  get  the  X,  Y,  and 

*  Z  BLIRB  main  region  grid  points  and  calculate  the  flux  grid 

*  points  from  them. 

*  _ _  _______ 

*/ 

fscanf  (fpl,  "%d%d%d" ,  &out_imx [0] ,  &out_imx [1] ,  &out  imx [2] ) ; 
fscanf (fp2,  "%d%d%d" ,  &y[0] ,  &y[l] ,  &yt2]); 

for  (i  =  0;  i  <  3;  i++) 

{  if(abs(y[i]  -  out_imx[i])  >  0) 

printf ( "NXYZ :  yl [%d]  =  %d,  y2 [%d]  =  %d\n",  i,  out_imx[i],  i, 

y  [i] )  ; 


dum  =  (float) (out_imx[0]  *  out_imx[l]  *  out_imx[2]  +  1) ; 
if (dum  <  (na  +  1) ) 

dum  =  (float) (na  +  l) ; 
if (dum  <  4  *  itnl) 

dum  =  (float) (4  *  itnl) ; 
if (dum  <  (domd_isc  +  (float) 1.0)  *  (float) itnl) 
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dum  =  (domd__isc  +  (float)  1.0)  *  (float)  itnl; 

data  =  (float  *)  malloc { (long) sizeof (float)  *  (long) dum); 
datal  =  (float  *)  malloc ( (long) sizeof (float )  *  (long) dum); 

for  ( i = 0 ;  i<3;  i++) 

{  if (out_imx [i]  >  0) 

{  for  (j  =  0;  j  <=out__imx  [i]  ;  j++) 

f scanf (fpl ,  "%12en ,  (data  +  j));  /*  Read  X,Y,Z  grid  points  */ 

for  (j  =  0;  j<=out__imx[i]  ;  j++) 
fscanf(fp2,  " %12e",  (datal  +  j)); 

for  (j  =  0;  j <=out_imx [i] ;  j++) 

{  avg  =  0.5  *  (* (datal  +  j)  +  * (data  +  j)); 

avg  =  (float) fabs ( (double) avg) ; 
dif  =  * (datal  +  j)  -  * (data  +  j); 
dif  =  (float) fabs ( (double) dif) ; 

if (fabs ( (double)  dif  >  (double)  (0.0001  *  avg))) 

printf ( " IMX%d :  data [%ld]  =  %12e,  datal [%ld]  =  %12e\n" ,  i,  j, 

* (data  +  j),  j,  * (datal  +  j)); 


/* - : - 

*  Referencing  the  VIEW  program  subroutine  RJOB,  get  the  surface 

*  albedo  indices  at  each  (X,Y)  grid  point  (ISURF) . 

*  _ 

*/ 

if (out_imx [0]  >  0  &&  out_imx[l]  >  0) 

{  for  (incr  =  0,  i  =  0;  i<out_imx [1] ;  i++) 
for  (j  =  0;  j<out_imx [0] ;  incr++,  j++) 
fscanf(fpl,  ,,%12en/  (data  +  incr)  )  ; 

for  (incr  =  0,  i  =  0;  i<out_imx [1] ;  i++) 
for  (j  =  0;  j<out_imx[0] ;  incr++,  j++) 
f scanf  (fp2 ,  ,,%12en/  (datal  +  incr)  )  ; 

for  (j  =  0;  j  <  incr;  j++) 

{  avg  =  0.5  *  (* (datal  +  j)  +  * (data  +  j)); 

avg  =  (float) fabs { (double) avg) ; 
dif  =  * (datal  +  j)  -  * (data  +  j); 
dif  =  (float)fabs((double)dif); 

if (fabs ( (double)  dif  >  (double)  (0.0001  *  avg))) 

printf ("ISURF:  data[%ld]  =  %12e,  datal [%ld]  =  %12e\n"#  j, 

* (data  +  j),  j,  * (datal  +  j)); 


/* - 7  - 

*  -  Referencing  the  VIEW  program  subroutine  RJOB,  get  the  region 

*  material  indices  at  each  (X,Y,Z)  grid  point  (IVOLM) . 


*/ 

if  (out__imx  [0]  >  0  &&  out_imx[l]  >  0  &&  out_imx[2]  >  0) 

{  for  (incr  =  0,  k  =  0;  k<out_imx [2] ;  k++) 
for  (i  =  0;  i<out_imx [1] ;  i++) 

for  (j  =  0;  j <out_imx [0]  ;  incr++;  j++) 
fscanf(fpl,  "%12e,,/  (data  +  incr)  )  ; 

for  (incr  =  0,  k  =  0;  k<out_imx [2] ;  k++) 
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for  (i  =  0;  i<out_imx [1] ;  i++) 

for  (j  =  0;  j<out_imx [0] ;  incr++,  j++) 
f scanf (fp2 ,  "%12e",  (datal  +  incr) ) ; 

for  (j  =  0;  j  <  incr;  j++) 

{  avg  =  0.5  *  (* (datal  +  j)  +  * (data  +  j)); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  * (datal  +  j)  -  * (data  +  j); 
dif  =  (float) fabs ( (double) dif ) ; 

if (fabs ( (double)  dif  >  (double)  (0.0001  *  avg))) 

printf ( " IVOLM :  data[%ld]  =  %12e,  datal [%ld]  =  %12e\n",  j, 
* (data  +  j),  j,  * (datal  +  j)); 


*  -  Referencing  the  VIEW  program  subroutine  RFLX,  get  the  LOWTRAN 

*  molecular  transmission  (TRLW) . 


*/ 

for  (m  =  0;  m<out_nwave;  m++) 

{  for  (j  =  0;  j <=na;  j++) 

fscanf(fpl,  "%12e",  (data  +  j)); 

for  (j  =  0;  j<=na;  j++) 

fscanf(fp2,  "%l2e",  (datal  +  j)); 

for  (j  =  0;  j<=na;  j++) 

{  avg  =  0.5  *  (* (datal  +  j)  +  * (data  +  j)); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  * (datal  +  j)  -  * (data  +  j); 
dif  =  (float) fabs ( (double) dif ) ; 

if (fabs ( (double)  dif  >  (double)  (0.0001  *  avg))) 

printf ("TRLW:  data[%d,%ld]  =  %12e,  datal [%d, %ld]  =  %12e\n",  m, 
j,  * (data  +  j),  m,  j,  * (datal  +  j)); 


/* - - - - - - 

*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the  surface 

*  albedos  (SALB) . 

*  _ _ 

*/ 

if (albd  >=  0) 

{  for  (j  =  0;  j<=albd;  j++) 

fscanf(fpl,  "%i2e",  (data  +  j)); 

for  (j  =  0;  j<=albd;  j++) 

f scanf (fp2 ,  "%12e" ,  (datal  +  j)); 

for  (j  =  0;  j<=albd;  j++) 

{  avg  =  0.5  *  (* (datal  +  j)  +  * (data  +  jj); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  * (datal  +  j)  -  * (data  +  j); 
dif  =  (float) fabs ( (double) dif ) ; 

if (fabs ( (double)  dif  >  (double)  (0.0001  *  avg))) 

printf ("SALB:  data [%d, %ld]  =  %l2e,  datal [%d, %ld]  =  %12e\n",  m, 
j,  * (data  +  j),  m,  j,  * (datal  +  j)); 


/* - 

*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the 
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*  extinction  coefficients  (REXT) . 

*  - 

*/ 

for  (j  =  0/  jcitnl;  j++) 

f scanf (fpl ,  n%12en,  (data  +  j)); 


for  (j  =  0;  jcitnl;  j++) 

fscanf(fp2,  "%12e",  (datal  +  j)); 


for  (j  =  0;  jcitnl;  j++) 

{  avg  =  0.5  *  (* (datal  +  j)  +  * (data  +  j)); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  * (datal  +  j)  -  * (data  +  j); 
dif  =  (float) fabs ( (double) dif ) ; 

if (fabs ( (double)  dif  >  (double)  (0.0001  *  avg))) 
printf ( "REXT :  data[%d,%ld]  =  %12e,  datal [%d, %ld] 
j,  * (data  +  j),  m,  j,  * (datal  +  j)); 


} 


%12e\n" ,  m. 


*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the 

*  scattering  coefficients  (RSCT) . 

*  - - - 

*/ 

for  (j  -  0;  jcitnl;  j++) 

f scanf (fpl,  "%12e" ,  (data  +  j)); 


for  (j  =  0;  jcitnl;  j++) 

fscanf(fp2,  "%12e" ,  (datal  +  j)); 


for  (j  =  0;  jcitnl;  j++) 

{  avg  =  0.5  *  (* (datal  +  j)  +  * (data  +  j)); 

avg  =  (float) fabs ( (double) avg) ; 
dif  =  * (datal  +  j)  -  * (data  +  j); 
dif  =  (float)fabs((double)dif); 

if (fabs ( (double)  dif  >  (double)  (0.0001  *  avg))) 
printf ("RSCT:  data[%d,%ld]  =  %12e,  datal [%d, %ld] 
j,  *(data  +  j),  m,  j,  * (datal  +  j)); 


} 


%12e\n",  m, 


*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the 

*  "unknown"  coefficients  ( FDLT ) . 

*  _ ' - 

*/ 

for  (j  =  0;  jcitnl;  j++) 

f scanf (fpl,  "%12e"/  (data  +  j)); 

for  (j  =  0;  jcitnl;  j++) 

f scanf (fp2 ,  "%12e" ,  (datal  +  j)); 


for  (j  =  0;  jcitnl;  j  ++j— 

{  avg  =  0.5  *  (* (datal  +  j)  +  * (data  +  j)); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  * (datal  +  j)  -  * (data  +  j); 
dif  =  (float) fabs ( (double) dif)  ; 

if (fabs ( (double)  dif  >  (double)  (0.0001  *  avg))) 
printf ("FDLT:  data[%d,%ld]  =  %12e,  datal [%d, %ld] 
j,  * (data  +  j),  m,  j,  * (datal  +  j)); 


} 


%12e\n",  m. 


/* 
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*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the  phase 

*  function  angles  (AGL) . 

*  _ _ 

*/ 

for  (incr  =  0,  j  =  0;  jcitnl;  j++) 
for  (i  =  0;  i<4 ;  incr++,  i++) 

fscanf(fpl,  "%i2e",  (data  +  incr)); 

for  (incr  =  0,  j  =  0;  j<itnl;  j++) 
for  (i  =  0;  i<4 ;  incr++,  i++) 

fscanf (fp2,  "%12e" ,  (datal  +  incr)); 

for  (j  =0;  j  <  incr;  j++) 

{  avg  =  0.5  *  (* (datal  +  j)  +  * (data  +  j)); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  * (datal  +  j)  -  * (data  +  j); 
dif  =  (float) fabs ( (double) dif ) ; 

if (fabs ( (double)  dif  >  (double)  (0.0001  *  avg))) 

printf ( "AGL  :  data[%d,%ld]  =  %12e,  datal [%d, %ld]  =  %l2e\n",  m, 
j,  * (data  +  j),  m,  j,  * (datal  +  j)); 


/* - 

*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the  phase 

*  functions  for  different  materials  (PHF) . 

*  _  ______ _ 

*/ 

for  (incr  =  0,  j  =  0;  jcitnl;  j++) 
for  (i  =  0;  i<4 ;  incr++,  i++) 

fscanf (fpl,  "%l2e" ,  (data  +  incr)); 

for  (incr  =  0,  j  =  0;  jcitnl;  j++) 
for  (i  =  0;  i<4 ;  incr++,  i++) 

fscanf (fp2,  "%12e",  (datal  +  incr)); 

for  (j  =0;  j  <  incr;  j++) 

{  avg  =  0.5  *  (* (datal  +  j)  +  * (data  +  j)); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  * (datal  +  j)  -  * (data  +  j); 
dif  =  (float) fabs ( (double) dif ) ; 

if (fabs ( (double)  dif  >  (double)  (0.0001  *  avg))) 

printf ("PHF  :  data [%d, %ld]  =  %l2e,  datal [%d, %ld]  =  %l2e\n",  m, 
j,  * (data  +  j),  m,  j,  * (datal  +  j)); 


/* - 

*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the 

*  Legendre  coefficients  (RLEG) . 

*  _ _ 

*/ 

for  (incr  =  0,  j  =  0;  jcitnl;  j++) 

for  (i  =  0;  ic= (int) domd_isc;  incr++,  i++) 
fscanf (fpl,  "%12e" ,  (data  +  incr)); 

for  (incr  =  0,  j  =  0;  jcitnl;  j++) 

for  (i  =  0;  ic= (int) domd_isc;  incr++,  i++) 
fscanf (fp2,  "%12e" ,  (datal  +  incr)); 

for  (j  =  0;  j  c  incr;  j++) 

{  avg  =  0.5  *  (* (datal  +  j)  +  * (data  +  j)); 
avg  =  (float) fabs ( (double) avg) ; 
dif  =  * (datal  +  j)  -  * (data  +  j); 
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dif  =  (float) fabs ( (double) dif ) ; 

if (fabs ( (double)  dif  >  (double)  (0.0001  *  avg) ) ) 

printf ("RLEG:  data[%d,%ld]  =  %12e,  datal [%d, %ld]  =  %12e\n" ,  m, 
j,  * (data  +  j),  m,  j,  * (datal  +  j)); 

} 


*  -  Referencing  the  VIEW  program  subroutine  RFLX,  get  the  direct 

*  solar  flux,  reflected  solar  flux,  and  8  diffuse  flux  values  at 

*  each  (X, Y, Z)  flux  grid  point. 

*  - 

*/ 

for  (1=0;  1<10;  1++) 

{  for  (incr  =  0,  i  =  0;  i<out_imx[2] ;  i++) 
for  (j  =  0;  j<out_imx [1] ;  j++) 

for  (k  =  0:;  k<out_imx[0]  ;  incr++,  k++) 
fscanf (fpl,  "%12e" ,  (data  +  incr)); 

for  (incr  =  0,  i  =  0;  i<out_imx [2] ;  i++) 
for  (j  =  0;  j <out_imx [1] ;  j++) 

for  (k  =  0;  k<out_imx[0] ;  incr++,  k++) 
fscanf (fp2,  "%12e" ,  (datal  +  incr)); 

for  (j  =  0;  j  <  incr;  j++) 

{  avg  =  0.5  *  (* (datal  +  j)  +  * (data  +  j)); 
avg  =  (float)  fabs  ( (double)  avg)  ,- 
dif  =  * (datal  +  j)  -  * (data  +  j); 
dif  =  (float) fabs ( (double) dif) ; 

if (fabs ( (double)  dif  >  (double)  (0.0001  *  avg))) 

printf ("FLX%d:  data[%d,%ld]  =  %12e,  datal [%d, %ld]  =  %12e\n" , 
1,  m,  j,  * (data  +  j),  m,  j,  * (datal  +  j ) ) ; 


free (data) ; 
free (datal) ; 

}  /*  end  readoutputO  */ 
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Appendix  F 
Listing  of  Table  B 


DATA 


SCALE 

REF 

WIDTH 

F 

X 

Y 

VALUE 

VALUE 

(BITS) 

UNITS 

ELEMENT  NAME 

0 

0 

1 

0 

0 

24 

CCITT  IAS 

Tab le_A reentry 

0 

0 

2 

0 

0 

256 

CCITT  IAS 

Table_A:_data_category_description,_line_1 

0 

0 

3 

0 

0 

256 

CCITT  IA5 

T  ab l e_A : _da  t  a_ca  t ego  ry_des  c r i pt i on , _ l i ne_2 

0 

0 

5 

0 

0 

24 

CCITT  IAS 

BUFR_edi tion_number 

0 

0 

10 

0 

0 

8 

CCITT  IAS 

F_desc  r i ptor_to_be_added_or_def i ned 

0 

0 

11 

0 

0 

16 

CCITT  IAS 

X_descr i ptor_to_be_added_or_def i ned 

0 

0 

12 

0 

0 

24 

CCITT  IAS 

Y_descr i ptor_to_be_added_or_def i ned 

0 

0 

13 

0 

0 

256 

CCITT  IAS 

Element_name,_l ine_1 

0 

0 

14 

0 

0 

256 

CCITT  IAS 

Element_name,_l i ne_2 

0 

0 

15 

0 

0 

192 

CCITT  IAS 

Units_name 

0 

0 

16 

0 

0 

8 

CCITT  IAS 

Uni ts_scal ensign 

0 

0 

17 

0 

0 

24 

CCITT  IAS 

Uni ts_scale 

0 

0 

18 

0 

0 

8 

CCITT  IAS 

Units_reference_sign 

0 

0 

19 

0 

0 

80 

CCITT~IA5 

Uni ts_ref erence_va  L  ue 

0 

0 

20 

0 

0 

24 

CCITT  IAS 

Element_data_width 

0 

0 

30 

0 

0 

40 

CCITTJA5 

Descri ptor_def i ni ng_sequence 

0 

1 

1 

0 

0 

7 

numeric 

WMQ_b  L  ock_number 

0 

1 

2 

0 

0 

10 

numeric 

WMO_stati on_number 

0 

1 

3 

0 

0 

3 

numeric 

WMO_regi on_number 

0 

1 

4 

0 

0 

3 

numeric 

WMO_region_sub-area 

0 

1 

5 

0 

0 

17 

numeric 

Buoy/p l at form_identif ier 

0 

1 

6 

0 

0 

64 

CCITTJA5 
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Appendix  H 
Listing  of  VISUAL.C 


PROGRAM  VISUAL 


*<Begin> 

*<  Identification 
* 

* 

* 


Name : 
Type: 
Filename : 
Parent : 


visual 
C  Program 
visual . c 
None 


*<Description> 

*  This  program  displays : 

*  the  entire  BLIRB  grid  space, 

*  surface  albedo  areas  (in  shades  of  green) , 

*  regions  of  aerosol  concentrations  (various  transparent  colors 

*  flare  positions  (in  red) , 

*  searchlight  positions  (in  white) ,  and 

*  BLIRB  output  flux  fields  (red  and  white) . 

* 

*  Optionally,  text  widgets  may  be  displayed  depicting: 

*  the  current  BLIRB  filename, 

*  the  surface  albedo  areas  information, 

*  the  aerosols  regions  information,  and 

*  the  output  flux  field  information. 

* 

*  All  BLIRB  inputs  can  be  selected  through  a  Graphical  User 

*  Interface  (GUI)  using  only  the  mouse.  The  keyboard  may  be  used 

*  for  "hot-key"  use  and  must  be  used  for  inputting  a  "savefile 

*  name” . 

* 

*  This  program  uses  the  SGI  IRIS  Graphics  Library  for  the  display 

*  graphics  and  X-Windows/Motif  for  the  menus  and  message  boxes  of 

*  the  GUI . 

* 

*  The  user  can  EXIT  the  program  by  either: 

*  pressing  the  F12  key  or 

*  selecting  the  "Exit"  option  under  the  "File"  menubar  option. 

* 

*  The  user  can  ABORT  the  program  by  either: 

*  pressing  the  ESC  key  or 

*  through  the  window  manager  (upper  left  corner) . 


*<History> 

*  09/12/94  AMSRL-BE -S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 


*/ 

/* - 

*  -  Include  Files 


*/ 

#include 
# include 
#include 
# include 
#include 
# include 
#include 


<Xm/Xm.h> 
<Xm/Frame .h> 
<Xm/Form. h> 
<Xm/List .h> 
<Xm/Text . h> 
<Xm/RowColumn . h> 
<Xm/CascadeB . h> 
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#include 
#include 
# include 
#include 
#include 
#include 
ftinclude 
#include 
#include 
#include 
#include 
#include 
# include 
#include 
ftinclude 
#include 
#include 


<Xm/ToggleB . h> 
<Xm/PushB.h> 
<Xm/MessageB . h> 
<Xm/Separator . h> 
<Xm/Label .h> 
<Xm/FileSB.h> 
<Xm/Scale.h> 
<Xll/Xirisw/GlxMDraw.h> 
<Xll/StringDef s .h> 
<Xll/keysym.h> 

<gl/gl .h> 

<gl/device .h> 

<gl/get.h> 

<string.h> 

<stdio.h> 

<math.h> 

"visualO . h" 


/*  Prototypes  &  Definitions 


*/ 


/* - 

*  -  Array  declarations  and  assignments 


/*  Main  Widgets  &  Structures  */ 

PLOTPTR  mov;  /*  Eye  Position  Information  */ 

static  Widget  file_dialog  =  (Widget) 0;  /*  File  Select  B  Board  Wid  */ 

Widget  menu;  /*  Menubar  Widget  */ 

Widget  form;  /*  Form  Widget  */ 

static  Widget  file_form  =  (Widget) 0;  /*  Form  for  Filename  */ 

static  Widget  mtrl_form  =  (Widget) 0;  /*  Form  for  Materials  List  */ 

static  Widget  albd__form  =  (Widget)  0;  /*  Form  for  Albedo  List  */ 

static  Widget  flux_form  =  (Widget) 0;  /*  form  for  Flux  Info  */ 

static  XtAppContext  app_context; 

static  XmStringCharSet  charset  =  (XmStringCharSet) 

XmSTRING  DEFAULT_CHARSET ;  /*  used  to  set  up  XmStrings  */ 


/*  static  char  f ilename_f ilter []  = 

{  "Scenarios/Visible/*  . BLIRB8 11 }  ; 
static  char  filename_f ilter []  = 

{"grid*.*"} ; 

static  Boolean  nofile  =  TRUE; 
static  Boolean  file__found  =  FALSE; 
static  char  *file_name  =  NULL; 
static  Boolean  blirb_in  =  TRUE; 
static  Boolean  badfile  =  FALSE; 
static  Boolean  new_file  =  FALSE; 
static  Boolean  def_file  =  FALSE; 
int  filefctn; 


/*  Filename  and  I/O  Variables  */ 

*/  /*  BLIRB  data  filename  filtr*/ 

/*  BLIRB  data  filename  filtr*/ 
/*  No  file  currently  avail  */ 
/*  No  Filename  Found  */ 

/*  BLIRB  Data  Filename  */ 

/*  BLIRB  Input  File  used  */ 
/*  Neither  Input  or  Output  */ 
/*  Data  file  not  modified  */ 
/*  Default  datafile  not  used*/ 
/*  Index  newfile  loss  source*/ 


float 

float 

float 

float 

float 

float 

float 

float 

float 

float 


/*  BLIRB  Input  Card  Variables 

wavl_wavl ; 
vis_vis; 

mdll_iaersl,  mdll_model,  mdll_ivis,  mdll_iseasn,  mdll_ivulcn; 
mdl2_sn,  mdl2_tbound#  mdl2_ialb,  mdl2_ip; 
mdl3_t [6] ; 

area_aly [IAM] #  area_ahy [IAM] , 


area_alx [IAM] ,  area_ahx [IAM] 
area_iamtl [IAM] ; 
regn_rlx [IRM] ,  regn_rhx [IRM] 
regn_rlz [IRM] #  regn_rhz [I RM] 
mesx_mhx [ISM] ,  mesx_xms [ISM] 
mesy_mhy [ISM] ,  mesy_yms [ISM] 
mesz  mhz [ISM] ,  mesz_zms [ISM] 


regn_rly [IRM] ,  regn_rhy [IRM] , 
regn_izmtl [IRM] ; 
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float  albd_lalb[IAM]  ,  albd_falb  [IAM]  ; 

float  mtrl_lmtl [IRM] [MXMTR] ,  mtrl_wmtl [IRM] [MXMTR] ; 

float  clds_icld,  clds_ibnd,  clds__wind; 

float  domd_isc/  domd_iitl,  domd_epsi,  domd_idelta/  domd  npts; 
float  sun_thsun,  sun_phsun,  sun_ifsun/  sun_isky,  sun_iftrn; 
float  f lar_idf lr [NEST] ,  f lar_itf lr [NEST] ,  f lar_xf lar [NEST] , 
f lar_yf lar [NEST] ,  flar_zf lar [NEST] ,  f lar_qf lar [NEST] , 
flar_tf lar [NEST]  ,  f lar_f rrfup [NEST]  [4]  ,  f lar_f rrf dn [NEST]  [4]  / 
float  f len__idf lr  [NEST]  ,  flen_qf lar  [NEST]  ,  flen_tf lar  [NEST]  ; 
float  f  lup_idf lr  [NEST]  ,  flup_frrfup  [NEST]  [4]  ; 
float  f ldn_idf lr [NEST] ,  f ldn_f rrfdn [NEST] [4] ; 

float  srch_xsrch,  srch_ysrch,  srch_zsrch,  srch_thsrch,  srch_azsrch, 
srchjsrch,  srch^tmsrch,  srch_sdiam; 
float  sren_psrch,  sren_tmsrch;  sren_sdiam; 
float  wavn_vl,  wavn_v2 ,  wavn_dv; 
float  asci_irite; 
float  recl_irpt; 

static  Boolean  in_changea  =  FALSE; 
static  Boolean  in_changef  =  FALSE; 
static  Boolean  in_changesl  =  FALSE; 
static  Boolean  in_change  =  FALSE; 
static  Boolean  area_order  =  FALSE; 
static  Boolean  regn_order  =  FALSE; 
static  int  metrng_indx  =  -1; 
static  int  wavn_indx  =  -1 ; 

/* 

int  ilcl,  mdll,  mdl2/  mdl3,  area,  regn, 

elds,  domd,  sun,  flar,  flen,  flup,  fldn,  srch,  sren,  wavn,  asci, 
reel,  wavl,  vis,  blirb,  done; 


/*  No  change  in  area  inputs  */ 
/*  No  change  in  Flare  input  */ 
/*  No  change  in  Slite  inputs*/ 
/*  No  change  in  other  inputs*/ 
/*  iamtl  values  not  ordered  */ 
/*  MTRL  cards  individualized*/ 
/*  Met  Range  Class  Index  */ 
/*  Spectral  Interval  Index  */ 

Input  Card  Counts  */ 

mesx,  mesy,  mesz,  albd,  mtrl 


float  area_iamt [IAM] ; 
float  regnjLzmt  [IRM]  ; 

float  mes_mh[3] [ISM] ,  mes_ms[3] [ISM] ; 
int  mes [3] ; 

static  int  mes_del_cnt [3]  =  {  0, 
int  mes_del [3] [ISM] ; 
static  float  mes_add[3] [2]  =  {  -1, 
float  regn_rl [3] [IRM] ,  regn_rh[3] [IRM] ; 


static  int  regn_max_dim [3] 


/*  Substitute  Input  Card  Varbls 
/*  consolidated  albedos 
/*  consolidated  aerosols 
/*  mes$_mh$  and  mes$_$ms 
/*  mesx,  mesy,  and  mesz 
/*  Number  Meshes  to  Delete 
/*  Meshes  to  be  Deleted 
1,  -1,  -1,  -1  };  /*  Add  Mesh 

/*  regn_rl$  and  regn_rh$ 

/*  Maximum  dim  of  Region  1 
{MAX_LEN_X,  MAX_LEN_Y,  MAX  LEN  Z}; 


o,  0  }  ; 


static  char  broad_type  [31]  [15]  =  {  "Default 


"Dark  soil 
"Dark-ploughed 
"Clay 
"Sand 
"Asphalt 
" Tundra 
"Concrete 
"Desert 
"Dirt  road 
"Grass 
"Desiduous 
"Rice 


"Light  soil  ", 
"Light -ploughed" , 
"Sandy  soil  ", 
"White  sand  ", 
"Lava  ", 
"Steppe  ", 
"Stone  " , 
"Rock  ", 
"Clay  road  ", 
"Mowed  grass  " , 
"Coniferous  ", 
"Beet,  wheat  ", 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


/*  More  Input  Variables 

static  float  background_albedo  =0.2;  /*  Default  Backgrnd  Albedo 

static  float  background_aerosol  =3.0;  /*  Default  Backgrnd  Aerosol  */ 

static  Boolean  spect_albedo  =  FALSE;  /*  No  spectral  Albedo  */ 


*/ 

*/ 
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Potato 

Cotton 

Snow 


Rye 

Lettuce 

Ice 


# 

}; 


static  char  broadband  [56]  [21] 

"Dark  soil  (dry)", 

"Light  soil  (dry)", 

"Dark-ploughed  (dry) " , 

"Light -ploughed  (dry) ", 

"Clay  (dry)", 

"Sandy  soil  (dry)", 

"Sand  (dry)", 

"White  sand" , 

"Lava" , 

"Steppe", 

"Stone" , 

"Rock  (dry)", 

"Dirt  road  (dry)", 

"Clay  road  (dry)", 

"Grass  (growing) ", 

"Grass  (unspecified) ", 

"Mowed  (dormant)", 

"Desiduous  (growing) ", 

"Desidious  (unspec . ) " , 

"Coniferous  (dormant) " , 

"Rice", 

"Potato", 

"Cotton" , 

"Snow  (fresh)", 

"Snow  (moist)", 

"Snow  (melting) ", 

"Ice  (grey)", 

"Ice  (dark  glass)"  }; 

static  float  broad_albedo [56]  =  {  0.20,  0.13,  0.08,  0.18,  0.10,  0.08, 


0. 

.  06, 

0. 

.16, 

0. 

.  08, 

0, 

.23, 

0, 

.16, 

0. 

.25, 

0. 

.18, 

0, 

.40, 

0. 

20, 

0. 

.55, 

0  . 

.10, 

0. 

.10, 

0. 

.20, 

0. 

.20, 

0, 

.30, 

0. 

.30, 

0. 

.30, 

0. 

35, 

0. 

.20, 

0. 

25, 

0. 

.18, 

0  . 

.30, 

0. 

.20, 

0. 

.18, 

0, 

.13, 

0, 

.16, 

0, 

.26, 

0. 

.19, 

0. 

.22, 

0. 

.18, 

0. 

12, 

0. 

.15, 

0. 

.14, 

0. 

.12, 

0. 

•  13, 

0. 

.12, 

0. 

.18, 

0, 

■  19, 

0  , 

.20, 

0, 

.21, 

0. 

.22, 

0  . 

85, 

0. 

.75, 

0  . 

.65, 

0. 

•  55, 

0. 

.35, 

0. 

.75, 

0. 

.60, 

0. 

.65, 

0. 

.10. 

}; 

/* 

Broadband  Albedos 

static  float  spectral_albedo [16]  [7]  =  { 

0.20,  0.13,  0.43,  0.15,  0.12,  0.44,  0.11  }, 

0.20,  0.15,  0.41,  0.15,  0.16,  0.40,  0.41  |, 

0.20,  0.17,  0.39,  0.15,  0.20,  0.36,  0.23  ), 

0.20,  0.19,  0.37,  0.15,  0.24,  0.32,  0.14  |, 

0.20,  0.21,  0.35,  0.15,  0.28,  0.28,  0.12  ), 

0.20,  0.23,  0.33,  0.15,  0.32,  0.24,  0.33  , 

0.20,  0.25,  0.31,  0.15,  0.36,  0.20,  0.26  , 

0.20,  0.27,  0.29,  0.15,  0.40,  0.16,  0.29  >, 

0.20,  0.29,  0.27,  0.15,  0.36,  0.12,  0.32  |, 

0.20,  0.31,  0.25,  0.15,  0.32,  0.16,  0.25  1, 

0.20,  0.33,  0.23,  0.15,  0.28,  0.20,  0.27  |, 

0.20,  0.35,  0.21,  0.15,  0.24,  0.24,  0.10  ), 

0.20,  0.37,  0.19,  0.15,  0.20,  0.28,  0.15  ), 

0.20,  0.39,  0.17,  0.15,  0.16,  0.32,  0.17 

0.20,  0.41,  0.15,  0.15,  0.12,  0.36,  0.35  |, 

0.20,  0.43,  0.13,  0.15,  0.10,  0.40,  0.48  ' 

};  /*  Spectral  Albedos  */ 

static  char  mtl_obsc [101]  [19]  = 

{"Dirt",  "Deirmendj ian  C" , 


=  {  "Default", 

"Dark  soil  (wet)", 
"Light  soil  (wet)", 
"Dark -ploughed  (wet) " , 
"Light -ploughed  (wet) ", 
"Clay  (wet)", 

"Sandy  soil  (wet)", 
"Sand  (wet)", 

"Asphalt" , 

"Tundra", 

"Concrete" , 

"Desert", 

"Rock  (wet)", 

"Dirt  road  (wet)", 

"Clay  road  (wet)", 
"Grass  (dormant) " , 
"Mowed  (growing)", 
"Mowed  (unspecified)", 
"Desidious  (dormant) ", 
"Coniferous  (growing) " , 
"Coniferous  (unspec . ) " , 
"Beet,  wheat", 

"Rye ", 

"Lettuce" , 

"Snow  (dense) ", 

"Snow  (old)", 

"Ice  (white)", 

"Ice  (snow  and  ice)". 
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"Default  Material", 
"LO  Rural  0%  RH", 
"LO  Rural  80%  RH", 
"LO  Mtime  0%  RH" , 
"LO  Mtime  90%  RH", 
"LO  Urban  0%  RH" , 
"LO  Urban  80%  RH", 

II  II 

/ 

It  It 

/ 

"LO  Tropo  0%  RH" , 
"LO  Tropo  80%  RH" , 
"LO  Stratospheric", 
"LO  Fresh  Volcanic", 
"LO  Advective  Fog", 
"LO  Cumulus  Cloud", 
"LO  Stratus  Cloud", 
"LO  Nimbostratus" , 
"LO  Subvis  Cirrus", 
"LO  Desert,  10  mps" , 
"LO  Desert,  30  mps", 

tt  it 

/ 


"EO 

Mtime 

0% 

RH" 

"EO 

Mtime 

70% 

RH" 

"EO 

Mtime 

90% 

RH" 

"EO 

Mtime 

98% 

RH" 

"EO 

Urban 

0% 

RH" 

"EO 

Urban 

70% 

RH" 

"EO 

Urban 

90% 

RH" 

"EO 

Urban 

98% 

RH" 

"EO 

Rural 

0% 

RH" 

"EO 

Rural 

70% 

RH" 

"EO 

Rural 

90% 

RH" 

"EO 

Rural 

98% 

RH" 

"EO  Fog  (hvy  adv) " , 
"EO  Rain  (drizzle)", 
"EO  Rain  (Tstorm) " , 

n  it 

/ 

it  it 

/ 

n  it 

/ 

it  it 

/ 

ti  it 

§ 

"EO  Cu  Congestus", 

it  it 

/ 

n  n 

/ 

it  tt 

/ 

it  ti 

/ 

"EO  Dust  (hvy  load)", 
"EO  WP  Smoke  17%  RH" , 
"EO  WP  Smoke  90%  RH", 
"EO  HC  Smoke  85%  RH" 

}  ; 


int  num_grid_main_pts [3] ; 
float  axis_main_pts [3] [MAXXYZ+1] ; 


"No  Cloud", 

"LO  Rural  70%  RH", 
"LO  Rural  99%  RH", 
"LO  Mtime  70%  RH", 
"LO  Mtime  99%  RH", 
"LO  Urban  70%  RH", 
"LO  Urban  99%  RH", 

II  II 

f 

It  It 

/ 

"LO  Tropo  70%  RH", 
"LO  Tropo  99%  RH", 
"LO  Aged  Volcanic", 
"LO  Radiative  Fog", 
"LO  Meteoric  Dust", 
"LO  Altostratus" , 

"LO  Stratus/Strato" , 
"LO  Std  Cirrus", 


"LO 

Desert, 

0  mps 

"LO 

it  ti 

/ 

Desert,  20  mps 

ti  it 

"EO 

Mtime 

50% 

RH", 

"EO 

Mtime 

80% 

RH"  , 

"EO 

Mtime 

95% 

RH"  , 

"EO 

Mtime 

99% 

RH", 

"EO 

Urban 

50% 

RH"  , 

"EO 

Urban 

80% 

RH", 

"EO 

Urban 

95% 

RH"  , 

"EO 

Urban 

99% 

RH"  , 

"EO 

Rural 

50% 

RH", 

"EO 

Rural 

80% 

RH"  , 

"EO 

Rural 

95% 

RH", 

"EO 

Rural 

99% 

RH", 

"EO  Fog  (mod  rad)", 

"EO  Rain  (wide) ", 

"EO  Snow", 

IT  It 

/ 

II  II 

/ 

It  II 

/ 

11  fl 

t 

"EO  Fairweather  Cu" , 

tt  n 

i 

it  tt 

/ 

ii  ti 

/ 

it  it 

"EO  Dust  (lgt  load) ", 

"EO  HE  Dust", 

"EO  WP  Smoke  50%  RH", 

"EO  Fog  Oil", 

/*  Material  Definitions  */ 

/*  Grid  Point  Variables  */ 

/*  Num  Main  X,  Y,  Z  Grid  Pts*/ 
/*  X,  Y,  Z  Major  Grid  Points*/ 


int  num_grid__pts  [3]  ; 
float  axis _pts [3] [MAXXYZ+1] ; 
static  Boolean  minor_grid  =  FALSE; 
Boolean  cur_minor_grid; 


/*  Number  of  X,  Y,  Z  Grid  Pt*/ 
/*  X,  Y,  Z  Minor  Grid  Points*/ 
/*  No  Minor  Grid  Lines  */ 
/*  Temp  value  of  minor_grid  */ 


/*  Viewpoint  Axis  Flags 


*/ 
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static  Boolean  view_axis  []  =  {FALSE, 

TRUE,  FALSE}; 

Boolean  temp_axis [3] ; 


static  Boolean  label_obsc  =  TRUE; 
Boolean  cur_lab_obsc; 
long  mtrl_color [101]  [3]  ; 

Boolean  mtl_color_set  =  FALSE; 


static  int  trans_index  =  55; 

static  Boolean  transparency  =  TRUE; 


static  Boolean  move_area  =  FALSE; 
static  Boolean  move_regnh  =  FALSE 
static  Boolean  move_regnv  =  FALSE 
static  Boolean  move_flarh  =  FALSE 
static  Boolean  move_flarv  =  FALSE 
static  Boolean  move_srchh  =  FALSE 
static  Boolean  move_srchv  =  FALSE 


int  cur_area; 
int  cur_regn ; 
int  cur__mtl  ; 
int  cur_ialb; 
int  cur_flar; 


int  nndx,  nndy,  ttdx,  ttdy; 
float  fac; 


/*  +Z  Axis  Viewpoint  */ 

/*  Temp  storage  of  Axis  Figs*/ 

/*  Miscellaneous  Aerosol  Vrbls  */ 
/*  Aerosol  Labels  Displayed  */ 
/*  Temp  value  of  label_obsc  */ 
/*  Aerosol  Material  Colors  */ 
/*  umtrl_colorn  not  yet  set  */ 

/*  Transparent  Color  Variables  */ 
/*  Tranparency  Indx  (0-255)  */ 
/*  Transparent  Colors  On  */ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

/*  Location  change  flags  */ 

/*  No  Albedo  Area  movement  */ 
/*  No  horizontal  region  move*/ 
/*  No  vertical  region  move  */ 
/*  No  horizontal  Flare  move  */ 
/*  No  vertical  Flare  move  */ 
/*  No  horizontal  Slite  move  */ 


/*  No  vertical  Slite  move  */ 

/*  Current  parameter  indices  */ 

/*  Current  Albedo  Area  */ 

/*  Current  BLIRB  Region  */ 

/*  Current  Region  Material  */ 

/*  Current  value  mdl2_ialb  */ 

/*  Current  Flare  */ 

/*  Temporary  Storage  Variables  */ 

/*  Temp  storage  of  "mov"  */ 

/*  Temp  storage  of  "mov"  */ 


static  Boolean  sun_plot  =  TRUE; 
static  float  sun_radius  =  0.15; 
float  sun_di stance [3]  ; 
float  sun_dist; 

static  float  sun__earth  [3]  ={0. 0,0.0, 
float  sun_sun[3] ; 

static  Boolean  move_sun  =  FALSE; 


/*  Sun  Display  Variables 

/*  Plot  the  Sun  Location 
/*  Radius  of  the  Sun 
/*  X,  Y,  Z  Comp  of  Sun-Orgn 
/*  Sun's  distance  from  Orgn 
.0};  /*  Locn  of  Sun  Ray  on  Grnd 
/*  Location  of  Sun 
/*  No  Sun  movement 


long  xsize,  ysize; 
long  ysizeO; 
float  sfac; 

static  float  org_magfactor 
static  float  org_center []  = 

static  float  org_of f set []  = 
static  Boolean  reset_flag  = 


int  out_imx [ 3 ] ; 

float  out_m0[3] [MAXXYZ] ; 

int  out_nwave ; 
float  out  waveno [NV] ; 


=  1.0; 

{0.0,  0.0, 

0.0}; 

{0.0,  0.0}; 

TRUE; 


Original  Viewing  Display  Vrbls*/ 
/*  The  X, Y  Window  Pixel  Cnt  */ 
Original  value  of  ysize 
Ratio  of  ysize  to  ysizeO 
Orig  Plot  Magnification 


/* 

/* 

/* 


/*  Number  of  Waves 
/*  Wavenumbers 


*/ 

*/ 

*/ 


/*  Orig  BLIRB  Region  Center 
/*  Orig  X, Y  transln  offset 
/*  Reinitial  the  plot  param 


*/ 

*/ 

*/ 


/*  BLIRB  Output  Variables  */ 

/*  Num  of  X,  Y,  &  Z  grid  pt  */ 
/*  X,  Y,  &  Z  flux  grid  pts  */ 


*/ 

*/ 


float  out_f lux [10] [NV] [MAXMX] [MAXMY] [MAXMZ] ;  /*  Log  Sol  Dir,  Ref,  8Dif*/ 
Boolean  f lux_zero  [10]  [NV]  ;  /*  Flag  for  Flux  Val  <=  0 . 0t  */ 
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float  mini_f lux [10] [NV] ; 
float  maxi_f lux [10] [NV] ; 
float  minil_f lux [10] [NV] ; 
float  maxil_flux [10] [NV] ; 


static  Boolean  flux_flag[]  = 
FALSE,  FALSE, 

static  Boolean  noflux  =  TRUE; 
static  Boolean  cross_axis []  = 
FALSE,  TRUE}; 
static  int  cur_nwave  =  0 ; 
static  int  cross__value  []  =  {0 
float  log_range; 
int  f lux_index_low; 
int  f lux_index_high; 


/*  Minimum  Flux  Value 
/ *  Maximum  Flux  Value 
/*  Minimum  Log  Flux  Value 
/*  Maximum  Log  Flux  Value 


*/ 

*/ 

*/ 

*/ 


/*  Output  Display  Variables  */ 

{  FALSE,  FALSE,  FALSE,  FALSE,  FALSE,  FALSE, 
FALSE,  FALSE};  /*  No  Flux  Field  Display  */ 
/*  "No  Flux"  Flag 


{FALSE, 


0,  0}; 


/ 


/* 

/* 

/* 

/* 

/* 

/* 


Default  Z  Cross_section 
Cross -sect  Wave  Number 
Cross-section  plane 
Range  of  Log  Flux  Values 
Lowest  Log  Flux  Val  Indx 
Highest  Log  Fix  Val  Indx 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


/*********************************************************************** 

*  VOID  MAIN 
*********************************************************************** 

*<Begin> 

*<Identif ication> 

* 

* 

* 

*<Description> 

*  Sets  up  the  toplevel  window,  the  menubar,  and  the  SGI  graphics 

*  window  as  Motif  widgets.  In  addition,  it  checks  for  command 

*  line  filename  input. 


Name : 
Type: 
Filename : 
Parent : 


main 

C  Main  Program 
visual . c 
None 


*<Called  routines> 


* 

reset 

* 

* 

create  menubar 

* 

* 

getdata 

* 

* 

newf ile 

* 

* 

initCB 

* 

exposeCB 

* 

resizeCB 

* 

*  =  =  = 

inputCB 

resets  the  viewing  and  plot  parameters  to 
the  original  values 

creates  the  menubar  for  selecting  the 
various  options 

gets  the  data  from  a  BLIRB  input  or  output 
file 

resets  the  input  parameters  to  initial 
configuration:. 

GL  graphics  mode  initialization  callback 
GL  window  re-expose  callback 
GL  window  resize  callback 
GL  window  inputs  callback 


*  Parameters  > 


Formal  declaration: 

void  main (int  argc,  char  **argv) 

Input : 

argc  -  (int)  the  number  of  command  lines  inputs 

argv  -  (char  pointer)  the  array  of  command  lines 

—  inputs 

Output : 

None 


(505)  678-1570  Elton  P.  Avara 
original  source  code. 


★ 

* 

* 

* 

* 

* 

* 

* 

*=  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =:“=:  =  =  =  =  =  =:  =  : 
*<History> 

*  09/12/94  AMSRL-BE-S 

*  Developed  the 

*  ==  =  =  =  ==  =  =  =  =  =  =  =  =  =  s=ssss  =  =  =  =  =  =  =  =  =  =:; 

*<End> 

**************************** 
*/ 
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void  main(int  argc,  char  **argv) 

{ 

Arg  wargs  [2  0]  ; 
int  n; 

Widget  toplevel,  frame,  glw; 


/* - 

*  -  Setup  some  required  structures  and  their  default  values 


static  GLXconfig  glxConfig  []  =  { 

GLX_NORMAL,  GLX_DOUBLE,  TRUE}, 

GLX_NORMAL,  GLX_RGB,  TRUE} , 

GLX_NORMAL,  GLX_ZSIZE,  GLX_NOCONFIG} , 

'0,  0,  0} 

/*  GL  graphics  defaults  */ 

static  String  fallback_resources []  =  { 
n*frame*shadowType :  SHADOW_IN" , 

"*glwidget*width:  1280",  /*  Window  width  (pixels)  */ 

" *glwidget*height :  1024" ,  /*  Window  height  (pixels)  */ 

NULL  }  ; 


/* - -  - 

*  -  Initialize  the  toplevel 

Widget ,  " toplevel " . 

*/ 

toplevel  =  XtAppInitialize ( 

*/ 

&app  context, 

/*  Application  context 

"BLIRB" , 

/*  Application  class 

*/ 

NULL,  0, 

/*  command  line  option  list 

*/ 

&argc,  argv, 

/*  command  .line  arguments 

*/ 

fallback  resources, 

/*  fallback  resources 

*/ 

NULL, 

/*  argument  list 

*/ 

0)  ; 

/*  number  of  arguments 

* 

/* - - - 

*  -  Create  main  data  structure,  the  "mov"  pointer 


*/ 

mov  =  (PLOTPTR)  malloc  (sizeof (MOVEPLOT) ) ; 

reset ();  /*  Reset  the  view  &  plot  variables  -*/ 


/* - - - 

*  -  Create  the  overall  "form"  widget  to  hold  frame  widget  and  menubar 

*  widget 


*/ 

n  =  0; 

form  =  XmCreateForm(toplevel,  "form",  wargs,  n) ; 
XtManageChild (form) ; 


/* - 

*  -  Create  the  "menubar"  widget 

*  - 

*/ 

menu  =  create  menubar (form); 


/* 

* 


*/ 


Create  the  "frame"  widget  to  hold  the  GL  widget  for  plotting 
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n  =  0  ; 

XtSetArg (wargs [n] 

XtSetArg (wargs [n] 

XtSetArg (wargs [n] 

XtSetArg (wargs [n] 

XtSetArg (wargs [n] 

XtSetArg (wargs [n] 

XtSetArg (wargs [n] 

XtSetArg (wargs [n] 

XtSetArg (wargs [n] 

XtSetArg (wargs [n] 
frame  =  XmCreateFrame  (form, 
XtManageChild  (frame) ; 


XtNx,  30);  n++; 

XtNy ,  30);  n++; 

XmNbottomAttachment ,  XmATTACH_FORM) 
XmNlef t Attachment ,  XmATTACH_FORM) ; 
XmNrightAttachment ,  XmATTACH_FORM)  ; 
XmNtopAttachment ,  XmATTACH_WIDGET) ; 
XmNtopWidget ,  menu) ;  n++; 

XmNlef tOff set ,  15) ;  n++; 

XmNbottomOf fset,  15);  n++; 
XmNrightOf f set ,  15) ;  n++; 

"frame",  wargs,  n) ; 


;  n++; 
n++ ; 
n++ ; 
n++; 


/* - - 

*  -  Create  the  "GL  graphics"  widget  over  the  "frame"  widget 

*  _ 

*/ 

n  =  0; 

XtSetArg (wargs [n] ,  GlxNglxConf ig,  glxConfig) ;  n++; 
glw  =  GlxCreateMDraw ( frame,  "glwidget",  wargs,  n) ; 
XtAddCallback (glw,  GlxNginitCallback,  initCB,  NULL) ; 
XtAddCallback (glw,  GlxNexposeCallback,  exposeCB,  NULL) ; 
XtAddCallback (glw,  GlxNresizeCallback,  resizeCB,  NULL); 
XtAddCallback (glw,  GlxNinputCallback,  inputCB,  NULL) ; 
XtManageChild  (glw) ; 


*  -  Realize  the  created  widgets  so  you  can  see  them  on  the  screen 

*  _ _ _ _ _ 

*/ 

XtRealizeWidget (toplevel) ; 

/* - - - 

*  -  Check  for  command  line  input  and  process  it 

*  _ 

*/ 

if (argc  >  1) 

{  f ile_name  =  argv[l] ; 
new_file  =  FALSE; 
def_f ile  =  FALSE; 
area_order  =  FALSE; 
regn_order  =  FALSE; 
getdata ( ) ; 

} 

else 

newfileO; 


/*  Get  data  filename  from  Cmd  Line  */ 


/*  New  data  file  not  created  */ 
/*  Default  data  file  not  used  */ 
/*  "iamtl"  values  not  ordered  */ 
/*  MTRL  cards  not  individualized  */ 
/*  Read  the  data  &  process  it  */ 


/*  Setup  the  default  inputs  */ 


/* - : - 

*  -  Continuously  loop  looking  for  input  events 

*  _ 

*/ 

XtAppMainLoop (app_context) ; 

}  /*  end  main ()  */ 

/*********************************************************************** 

*  WIDGET  CREATE_MENUBAR 
*********************************************************************** 
*<Begin> 

*< Identification  Name:  create  menubar 

*  Type :  C  Widget 

*  Filename:  visual . c 
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* 

* 


Parent:  main,  get data,  regnCB,  regn_delCB, 

areaCB ,  area_delCB ,  cross^sect ionCB , 

*  albedo_chg,  flarinCB,  flar_delCB, 

*  srchinCB,  srchjielCB 

*<Description> 

*  Creates  the  pull-down  menus,  rollover  menus,  and  menubar  to 

*  control  them. 


*<Called  routines> 

*  create__f  ilemenu 

*  create__viewmenu 

*  create_outputsmenu 

*  create_modifymenu 

*  resetCB 

* 

*  create_helpmenu 


creates  the  "File"  menupane 

creates  the  "View'1  menupane 

creates  the  "Flux"  menupane 

creates  the  "Modify"  menupane 

resets  the  magnification  factor  and  eye 

position  to  the  original  values 

creates  the  "Help"  menupane 


*<Parameters> 

*  Formal  declaration: 

*  Widget  create_menubar (Widget  form) 

*  Input : 

*  form  -  the  "form"  widget  to  hold  the  menubar 

*  Output : 

*  menubar  -  the  main  menubar  widget 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

Widget  create  menubar  (Widget  form) 

{ 

Widget  menubar,  cascade,  helpcas; 

Arg  wargs [10] ; 
int  n; 

static  int  hv,  sd; 


/* - - - - 

*  -  Create  Menubar  and  attach  it  to  the  Top,  Left  &  Right  of  the 

*  "form"  widget 


*/ 

n  =  0 ; 

XtSetArg  (wargs [n] ,  XmNtopAttachment ,  XmATTACH^FORM) ;  n++; 
XtSetArg  (wargs [n] ,  XmNlef t Attachment ,  XmATTACH_FORM) ;  n++; 
XtSetArg  (wargs [n] ,  XmNrightAttachment ,  XmATTACH_FORM) ;  n++; 
menubar  =  XmCreateMenuBar  (form,  "menubar",  wargs,  n) ; 


/* - 

*  -  Create  the  other  buttons  and  the  pulldown  menupanes 


*/ 

hv  =  1  ; 
sd  =  2; 

create_f ilemenu (menubar) ; 
create_viewmenu (menubar) ; 
create_modifymenu (menubar) ; 


/*  Create  the  "File"  menupane 
/*  Create  the  "View"  menupane 
/*  Create  the  "Modify"  menupane 


*/ 

*/ 
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if ( ! blirb_in)  /*  If  datafile  is  Output,  then  */ 

create_outputsmenu (menubar) ;  /*  Create  the  "Flux"  menupane  */ 

n  =  0;  /*  Create  the  "Reset"  button  */ 

XtSetArg (wargs [n] ,  XmNlabelString,  XmStringCreateLtoR  ( "  Reset  " , 
charset));  n++; 

XtSetArg (wargs [n] ,  XmNmnemonic,  'R' ) ;  n++; 

cascade  =  XmCreateCascadeButton  (menubar,  "  Reset  ",  wargs,  n)  ; 
XtAddCallback  (cascade,  XmNactivateCallback,  resetCB,  NULL) ; 
XtManageChild  (cascade) ; 

create_helpmenu (menubar,  helpcas) ;  /*  Create  the  "Help"  menupane  */ 

n  =  0;  /*  Realize  the  Menubar  */ 

XtSetArg  (wargs [n] ,  XmNmenuHelpWidget ,  helpcas);  n++; 

XtSetValues  (menubar,  wargs,  n) ; 

XtManageChild  (menubar) ; 

return  (menubar) ;  /*  Return  the  Menubar  ID  */ 

}  /*  end  create_menubar ( )  */ 


*  VOID  CRE ATE_F I LEMENU 


*<Begin> 

*<Identif  ication>  Name:  create__f  ilemenu 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent :  create_menubar 


*<Description> 

*  Creates  the  "File"  options  selection  pulldown  menu  widget. 


*<Called  routines> 

*  create_pushbuttonfn 

* 

*  newfCB 

*  fileCB 

*  savefileCB 

* 

*  savefileasCB 

*  exitCB 

*  create_cascadebutton 


create  pushbutton  widget  with 
accelerator  keys  and  NULL  client 
Decides  whether  or  not  to  call  "newfile" . 
Decides  whether  or  not  to  call  "f ileopen" . 
Saves  the  current  inputs  to  a  file  with 
the  current  input  filename 
Creates  a  "Save  Filename"  Text  Widget. 
Closes  the  windows  and  exits  the  program, 
create  the  cascade  button  for  the  menupane 


*  Parameters  > 

*  Formal  declaration: 

*  void  create__f  ilemenu  (Widget  menubar) 

*  Input : 

*  menubar  -  (widget)  the  "menubar"  widget  to  hold  the 

*  file  options  selection  menu 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  create_f ilemenu (Widget  menubar) 
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Widget  menupane; 

Arg  wargs [5] / 
int  n; 

static  char  *fctn_key[]  =  {  "Shift-Fl",  "Shift-F2",  nShif t-F3 " , 

"Shif t-F4 "  ,  "F12 11  }  ; 

static  char  *fc_key[]  =  {  "Shift  <Key>Fl : " ,  "Shift  <Key>F2 : " , 

"Shift  <Key>F3:"/  "Shift  <Key>F4 : » , 

" <Key>F12 : "  }; 

n  =  0;  /*  Create  the  "File"  menupane  */ 

menupane  =  XmCreatePulldownMenu  (menubar,  "filepane" ,  wargs,  n) ; 

/*  Create  "Create  New  File"  button  */ 
create_pushbuttonfn (menupane,  fctn_key[0] ,  fc_key[0] , 

"Create  New  File",  'N' ,  newfCB) ; 

/*  Create  the  "Open  File"  button  */ 
create__pushbuttonfn (menupane ,  fctn_key[l]  ,  fc_key[l]  ,  "Open  File", 

'O',  fileCB) ; 

/*  Create  the  "Save  File"  button  */ 
create_pushbuttonfn (menupane,  fctn_key[2],  fc_key[2],  "Save  File", 

'S'  ,  savefileCB)  ; 

/*  Create  "Save  File  As"  button  */ 
create_ pushbuttonf n (menupane ,  fctn_key[3] ,  fc_key[3],  "Save  File  As", 

'A' ,  savef ileasCB) ; 

/*  Create  "Exit  Program"  button  */ 
create j>ushbuttonfn (menupane,  fctn_key[4],  fc_key[4],  "Exit  Program", 

'x',  exitCB) ; 


/*  Attach  "File"  pane  to  menubar  */ 
create_cascadebutton (menubar,  menupane,  "  File  ",  'F'); 

}  /*  end  create_f ilemenu ( )  */ 

/*****************************************************  *.*  *********'*■****** 

*  VOID  CREATE_VIEWMENU 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name :  create^viewmenu 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent :  create_menubar 

*<Description> 

*  Creates  the  "View"  viewing  options  selection  pulldown  menu  widget. 
*<Called  routines> 

*  create_axismenu  -  creates  the  viewing  axis  options  menupane 

*  create_sunmenu  -  creates  the  sun  display  options  menupane 

*  create_zoommenu  --"creates  the  zoom  options  menupane 

*  create_pushbuttonfn  -  create  pushbutton  widget  with  NULL 

*  client  and  accelerator  key 

*  minor_gridCB  -  turns  on/off  the  minor  grid  lines  and 

*  redraws  the  scene. 

*  transCB  -  turns  on/off  the  transparent  color  mode 

*  for  the  aerosol  regions 

*  obscCB  -  turns  on/off  the  obscuration  and  albedo 

*  region  labels 

*  create  cascadebutton  -  create  the  cascade  button  for  the  menupane 
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*<Parameters> 

*  Formal  declaration: 

*  void  create_viewmenu (Widget  menubar) 

*  Input : 

*  menubar  -  (Widget)  the  "menubar"  widget  to  hold  the 

*  viewing  options  selection  menu 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End>. 


*********************************************************************** 

*/ 

void  create_viewmenu (Widget  menubar) 

Widget  menupane; 

Arg  wargs [5] ; 
int  n; 


n  =  0  ; 

menupane  =  XmCreatePulldownMenu 

create_axismenu (menupane) ; 
create_sunmenu (menupane) ; 
create_zoommenu (menupane) ; 


/*  Create  the  "View”  menupane  */ 

(menubar,  "viewpane",  wargs,  n) ; 

/*  "Viewing  Axis  Options"  menupane  */ 
/*  Create  "Sun  Options"  menupane  */ 
/*  Create  "Zoom  Options"  menupane  */ 

button*/ 


/*  "Minor  Grid  Lines  On/Off 
create_pushbuttonf n (menupane ,  " F8 " ,  " <Key>F8 : " , 

"Minor  Grid  Lines  On/Off",  'M' ,  minor_gridCB) ; 


/*  "Transparent  Colors  On/Off"  */ 

create_pushbuttonf n (menupane ,  " F9 " ,  " <Key>F9 : " , 

"Transparent  Colors  On/Off",  'T',  transCB) ; 


/*  "Region  Definitions  On/Off"  */ 

create_pushbuttonfn (menupane,  "Fll",  "<Key>Fll: ", 

"Region  Definitions  On/Off",  'D' ,  obscCB) ; 


/*  Attach  "View"  pane  to  menubar  */ 
create_cascadebutton (menubar,  menupane,  "  View  ",  'V'); 

}  /*  end  create_viewmenu ( )  */ 

/**********************************************************+****+****+^^ 

*  VOID  CREATE_AXI SMENU 

*******************************************icirieieicitificieieieieieieieieie^ieieifieie^ieieieie 

*<Begin> 

*<Identif ication>  Name:  create_axismenu 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  create__viewmenu 

*<Description> 

*  Creates  the  "Viewing  Axis  Options"  selection  pulldown  menu  widget. 

-  creates  a  series  of  related  pushbuttons 
with  accelerator  keys  and  clients 

-  switches  to  the  selected  Axis  coming  out 
of  the  screen  in  the  plot 


*<Called  routines> 

*  create_buttonsf 

* 

*  axisCB 

* 
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*  create__cascadebutton  -  create  the  cascade  button  for  the  menupane 

*<Parameters> 

*  Formal  declaration: 

*  void  create_axismenu (Widget  viewpane) 

*  Input : 

*  viewpane  -  (Widget)  the  "View"  menupane  widget  to 

*  hold  the  viewing  axis  options  selection 

*  menu 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  create  axismenu (Widget  viewpane) 

{ 

Widget  menupane; 

Arg  wargs [5] ; 
int  n; 

static  int  index [3]  =  {  1,  2,  3  }; 

static  char  *fctn_key[]  =  {  "FI",  "F2",  "F3"  }; 

static  char  *fc_key[]  =  {  »<Key>Fl : " ,  "<Key>F2 : " ,  "<Key>F3:"  }; 
static  char  *axis_label  []  =  {  "Positive  X-axis",  "Negative  Y-axis", 

"Positive  Z-axis"  }; 

static  int  nm_key[3]  =  {  'X',  '  Y',  'Z'  }; 

n  =  0;  /*  Create  "View  Axis  Options"  menu  */ 

menupane  =  XmCreatePulldownMenu  (viewpane,  "axispane",  wargs,  n)  ,- 

/*  Create  "Positive  X-axis"  button  */ 
/*  "  "Negative  Y-axis"  "  */ 

/*  "  "Positive  Z-axis"  "  */ 

create_buttonsf (menupane,  3,  index,  fctn_key,  fc_key,  axis_label, 
nm_key,  axisCB) ; 

/*  Attach  "View  Axis  Opt"  -  "View"  */ 
create__cascadebutton (viewpane,  menupane,  "Viewing  Axis  Options",  'A'); 
}  /*  end  create__axismenu  ( )  */ 


VOID  CRE ATE_S UNMENU 


*<Begin> 

*<Identif ication>  Name :  create_sunmenu 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  create_viewmenu 

*<Description> 

*  Creates  the  "Sun  Options"  selection  pulldown  menu  widget. 


*<Called  routines> 

*  create_pushbuttonfn 

* 

*  sunCB 

*  sun_posCB 


create  pushbutton  widget  with  NULL 
client  and  accelerator  key 
turns  on/off  the  plotting  of  the  Sun 
sets  a  flag  to  initiate  moving  the  point 
where  the  line  from  the  Sun  intersects 
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*  the  ground . 

*  create_cascadebutton  -  create  the  cascade  button  for  the  menupane 

*<Parameters> 

*  Formal  declaration: 

*  void  create_sunmenu (Widget  viewpane) 

*  Input : 

*  viewpane  -  (Widget)  the  "View"  menupane  widget  to 

*  hold  the  sun  options  selection  menu 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  create_sunmenu (Widget  viewpane) 

Widget  menupane; 

Arg  wargs [5]  ; 
int  n ; 

n  =  °;  /*  Create  "Sun  Options"  menupane  */ 

menupane  =  XmCreatePulldownMenu  (viewpane,  "sunpane",  wargs,  n) ; 

/*  Create  "Sun  Plot  On/Off"  button  */ 
create__pushbuttonfn  (menupane,  "F4",  "  <Key>F4  :  "  ,  "Sun  Plot  On/Off", 

'  P'  ,  sunCB) ; 


/*  "Select  New  Sun  Position" 
create_pushbuttonfn (menupane,  "F5" ,  "<Key>F5 : " , 

"Select  New  Sun  Position",  'N' ,  sun^posCB) ; 


k/ 


/*  Attach  "Sun  Options"  to  "View"  */ 
create__cascadebutton  (viewpane,  menupane,  "Sun  Options",  'S'); 

}  /*  end  create_sunmenu()  */ 

/*********************************************************************** 

*  VOID  CREATE_ZOOMMENU 
*********************************************************************** 
*<Begin> 

*<  Identification  Name:  create_zoommenu 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent :  create^viewmenu 

*<Description> 

*  Creates  the  "Zoom  Options"  selection  pulldown  menu  widget. 

*<Called  routines> 

*  create  buttonsf 


-  creates  a  series  of  related  pushbuttons 
with  accelerator  keys  and  clients 

-  changes  the  magnification  factor  by  5% 
and  redraws  the  scene. 

create_cascadebutton  -  create  the  cascade  button  for  the  menupane 


zoomCB 


* 

* 

* 

* 

_ _ _  _ _ _ _ _  _ 

*  <Parameters  > 

*  Formal  declaration: 

*  void  create_zoommenu (Widget  viewpane) 
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*  Input : 

*  viewpane 

* 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  create  zoommenu (Widget  viewpane) 

{ 

Widget  menupane; 

Arg  wargs [5] ; 
int  n; 

static  int  index [2]  =  {  1,  2  }; 

static  char  *fctn_key[]  =  {  "F6",  "F7"  }/ 

static  char  *fc_key[]  =  {  n<Key>F 6:>",  ,'<Key>F7:"  }; 

static  char  *zoom_label  □  =  {  "Zoom  In",  "Zoom  Out"  }; 

static  int  nm_key[2]  =  {  'I',  'O'  }; 


n  =  0; 

/* 

Create 

"Zoom  Options"  menupane 

*/ 

menupane  =  XmCreatePulldownMenu 

(viewpane, 

"zoompane",  wargs,  n) ; 

/* 

Create 

"Zoom  In"  button 

*/ 

/* 

it 

"Zoom  Out"  " 

*/ 

create  buttonsf (menupane,  2,  index, 

fctn_key,  fc_key,  zoornJLabel, 

nm_key,  zoomCB) ; 

/* 

Attach 

"Zoom  Options"  to  "View" 

*/ 

create_cascadebutton (viewpane ,  menupane,  "Zoom  Options",  ' Z '); 
}  /*  end  create^zoommenuf)  */ 


-  (Widget)  the  "View"  menupane  widget  to 
hold  the  zoom  options  selection  menu 


/*********************************************************************** 
*  VOID  CREATE_OUTPUTSMENU 

*********************************************************************** 


*<Begin> 

*<Identif  ication>  Name:  create__outputsmenu 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent :  create_menubar 

*<Description> 

*  Creates  the  "Flux"  options  selection  pulldown  menu  widget. 


*<Called  routines> 

*  create_f luxmenu 

*  create__csectmenu 

* 

*  create_cvaluemenu 

* 

*  create_wavemenu 

*  create_cascadebutton 


creates  the  BLIRB  flux  options  menupane 
creates  the  cross-section  orientation 
options  menupane 

creates  the  cross-section  value  options 
menupane 

creates  the  wavenumber  options  menupane 
create  the  cascade  button  for  the  menupane 


*<Parameters> 

*  Formal  declaration: 

*  void  create_outputsmenu (Widget  menubar) 

*  Input : 

*  menubar  -  (Widget)  the  "menubar"  widget  to  hold  the 
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*  output  options  selection  menu 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

**************************************************************+++++++++ 

*/ 

void  create_outputsmenu (Widget  menubar) 

Widget  menupane; 

Arg  wargs [5] ; 
int  n; 


n  =  0  ; 


create_f luxmenu (menupane) ; 
create_csectmenu (menupane) ; 
create_cvaluemenu (menupane) ; 
create_wavemenu (menupane) ; 


/* 

Create 

"Flux"  options  menupane 

*/ 

(menubar, 

"  outpane " ,  wargs ,  n) ; 

/* 

Create 

" Flux "  menupane 

*/ 

/* 

Create 

"Cross-section"  menupane 

*/ 

/* 

Create 

"Cross-section  Value" 

*/ 

/* 

Create 

"Wave  Number"  menupane 

*/ 

/* 

Attach 

"Flux"  menu  to  menubar 

*/ 

/< 


end  create_outputsmenu ( ) 


/************************************************* ********************** 

*  VOID  CREATE_FLUXMENU 
************************************************************1'++**+**++* 
*<Begin> 

*<Identif ication>  Name:  create  fluxmenu 

*  Type:  C  void” 

*  Filename:  visual. c 

* 

*<Description> 

*  Creates  the  "Flux  Options"  selection  pulldown  menu  widget. 

*<Called  routines> 

*  create_pushbuttons 


Parent :  create_outputsmenu 


-  creates  a  series  of  related  pushbuttons 
with  non-NULL  clients 

fluxCB  -  Selects  the  particular  flux  field  for 

display  and  redraws  the  scene. 

create_cascadebutton  -  create  the  cascade  button  for  the  menupane 

*<Parameters> 

*  Formal  declaration: 

*  void  create_f luxmenu (Widget  outputpane) 

*  Input : 

*  outputpane  -  (Widget)  the  "Flux"  menupane  to  hold 

*  the  flux  options  selection  menu 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 
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*********************************************************************** 

*/ 

void  create  fluxmenu (Widget  outputpane) 

{ 

Widget  menupane,  button; 

Arg  wargs [10] ; 
int  n,  i; 

static  int  index[ll]  =  {  1,  2,  3,  4,  5,  6,  7,  8,  9,  10,  0  }; 
static  char  *f lux_label []  =  {  "Solar  Direct  Flux" , 

"Solar  Reflected  Flux", 

"Diffuse  Flux  -  1", 

"Diffuse  Flux  -  2", 

"Diffuse  Flux  -  3", 

"Diffuse  Flux  -  4", 

"Diffuse  Flux  -  5", 

"Diffuse  Flux  -  6", 

"Diffuse  Flux  -  7", 

'^Diffuse  Flux  -  8", 

"No  Flux"  } ; 

static  int  nm_key [11]  =  {  'D' ,  'R' ,  '1',  '2',  '3',  ' 4 '5',  '6',  '7', 

'8',  '  N'  } ; 

static  int  indexx[2]  =  {  -2,  -1  }; 

static  char  *inc_label []  =  {  "Dec  by  1  Button", 

"Inc  by  1  Button"  }; 

static  char  *fctn_key[]  =  {  "Ctrl -FI",  "Ctrl-F2"  }; 

static  char  *fc_key[]  =  {  "Ctrl  <Key>Fl : " ,  "Ctrl  <Key>F2 : "  }; 

n  -  0;  /*  Create  "Flux  Options"  menupane  */ 

menupane  =  XmCreatePulldownMenu  (outputpane,  "fluxpane",  wargs,  n) ; 

/*  "Solar  Direct  Flux"  button  */ 

/*  "Solar  Reflected  Flux"  button  */ 

/*  8  "Solar  Diffuse  Flux"  buttons  */ 

/*  mNo  Flux"  button  */ 

create_pushbuttons (menupane,  11,  index,  flux_label,  nm_key,  fluxCB) ; 

for  (i=0;  i<2;  i++)  /*  Add  "Decrement/Increment "  button*/ 

{  n  =  0; 

XtSetArg (wargs [n] ,  XmNlabel String, 

XmStringCreateLtoR (inc_label [i] ,  charset) ) ;  n++; 

XtSetArg (wargs [n] ,  XmNacceleratorText , 

XmStringCreateLtoR (f ctn_key [i] ,  charset) ) ;  n++; 

XtSetArg (wargs [n] ,  XmNaccelerator ,  fc_key[i] ) ;  n++; 
button  =  XmC r ea te Pus hBut ton (menupane,  inc_label [i] ,  wargs,  n) ; 
XtAddCallback  (button,  XmNactivateCallback,  fluxCB,  &indexx[ij); 
XtManageChild  (button) ; 

} 

/*  Attach  "Flux  Options"  to  "Flux"  */ 
create_cascadebutton (outputpane,  menupane,  "Flux  Options",  'F'); 

}  /*  end  create_f luxmenu ( )  */ 

/*********************************************************************** 

*  VOID  CREATE_CSECTMENU 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  create_csectmenu 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  create_outputsmenu 


*<Description> 
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*  Creates  the  "Cross-section  Plane  Orientation"  options  selection 

*  pulldown  menu  widget. 

*<Called  routines> 

*  create_buttonsf  -  creates  a  series  of  related  pushbuttons 

* 

* 

* 

*  create_cascadebutton 

*<Parameters> 

Formal  declaration : 

void  create__csectmenu  (Widget  outputpane) 


cross  sectionCB 


with  accelerator  keys  and  clients 
the  BLIRB  flux  cross-section  plane 
orientation  option  callback 
create  the  cascade  button  for  the  menupane 


Input : 

outputpane 


Output : 
None 


(Widget)  the  "Flux"  menupane  to  hold 
the  cross-section  plane  orientation 
options 

selection  menu  . 


* 

* 

* 

* 

* 

* 

* 

* 

* 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  create_csectmenu (Widget  outputpane) 

Widget  menupane; 

Arg  wargs [5]  ; 
int  n; 

static  int  index [3]  =  {  1,  2,  3  }; 

static  char  *fctn_Jkey[]  =  {  "Ctrl-F3",  "Ctrl-F4"/  "Ctrl-F5"  }; 
static  char  *fc_key[]  =  {  "Ctrl  <Key>F3:"/  "Ctrl  <Key>F4 : " , 

"Ctrl  <Key>F5 : "  }; 

static  char  *cross_label []  =  {  "X-Plane  Cross-Section", 

"Y-Plane  Cross-Section", 

"Z-Plane  Cross-Section"  } ; _ 
static  int  nm_key[3]  =  {  'X',  7Y7,  ' Z'  }; 

n  =  0;  /*  "Cross-section  Plane  Orient."  */ 

menupane  =  XmCreatePulldownMenu  (outputpane,  "Xpane",  wargs,  n) ; 

/*  "x-Plane  Cross-Section"  button  */ 

/*  "Y-Plane  Cross-Section"  button  */ 

/*  "z-Plane  Cross-Section"  button  */ 

create_buttonsf (menupane,  3,  index,  fctn_key,  fc_key,  cross_label, 

nm_key,  cross_sectionCB) ; 

/*  Attach  "X-Sect  Plane  Orientation*/ 
create__cascadebutton  (outputpane,  menupane, 

"Cross-section  Plane  Orientation",  707); 

}  /*  end  create_csectmenu()  */ 

/*********************************************************************** 

*  VOID  CREATE__CVALUEMENU 
****************************************************^**************^*** 
*<Begin> 

*<Identif ication>  Name:  create_cvaluemenu 

*  Type:  C  void 
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* 

* 


Filename:  visual. c 

Parent :  create_outputsmenu 

*<Description> 

*  Creates  the  "Cross-section  Plane  Value  Selection"  pulldown  menu 

*  widget . 

*<Called  routines> 

*  planeCB  -  the  BLIRB  flux  cross-section  plane 

*  value  selection  callback 

*  create_cascadebutton  -  create  the  cascade  button  for  the  menupane 


*<Parameters> 

*  Formal  declaration: 

*  void  create_cvaluemenu (Widget  outputpane) 

*  Input : 

*  outputpane  -  (Widget)  the  "Flux"  menupane  to  hold 

*  the  cross-section  plane  value  options 

*  selection  menu 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  create  cvaluemenu (Widget  outputpane) 

{ 

Widget  menupane,  button; 

Arg  wargs [10] ; 

int  n,  i,  j; 

char  plane_label [11]  ; 

static  int  index [MAXXYZ]  ; 

static  int  indexx[2]  =  {  -2,  -1  }; 

static  char  *inc_label  []  =  {  "Dec  by  1  Button", 

"Inc  by  1  Button"  }; 

static  char  *fctn_key[]  -  {  "Ctrl-F6",  "Ctrl-F7"  },* 

static  char  *fc_key[]  =  {  "Ctrl  <Key>F6 : " ,  "Ctrl  <Key>F7 : "  }; 


n  =  0;  /*  "Cross-sect  Plane  Value  Select"  */ 

menupane  =  XmCreatePulldownMenu  (outputpane,  "crossval",  wargs,  n) ; 


for  ( j  =  0 ;  j <3 ;  j++)  /*  Create  "Plane  Value"  buttons  */ 

{  if (cross_axis [ j ] ) 

{  for  ( i=0 ;  i<out_imx [ j  ]  ;  i++) 

{  sprintf  (plane_label ,  "  %6.3f  Km",  out__m0  [  j  ]  [i]  )  ; 

index [i]  =  i+1; 


n  =  0; 

XtSetArg (wargs [n] ,  XmNlabelString, 

XmStringCreateLtoR (plane_label ,  charset));  n++; 
button  =  XmCreatePushButton (menupane,  plane_label,  wargs,  n) ; 

Xt AddCal lback  (button,  XmNactivateCallback,  planeCB,  &index[i]); 
XtManageChild  (button) ; 


for  (i=0 ;  i<2 ;  i++)  /*  Add  "Decrement /Increment"  button*/ 

{  n  =  0; 

XtSetArg (wargs [n] ,  XmNlabelString, 
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} 


XmStringCreateLtoR (inc_label [i] ,  charset) ) ;  n++; 
XtSetArg (wargs [n] ,  XmNacceleratorText , 

XmStringCreateLtoR (fctn_key [i] ,  charset) ) ;  n++; 

XtSetArg (wargs [n] ,  XmNaccelerator ,  fc_key[i] ) ;  n++; 
button  =  XmCreatePushButton (menupane,  inc_label  [i] ,  wargs,  n) ; 
XtAddCallback  (button,  XmNactivateCallback,  planeCB , &indexx [i] ) ; 
XtManageChild  (button) ; 


/*  Attach  MX-Sect  Plane  Val  Select"*/ 
create_cascadebutton (outputpane,  menupane , 

"Cross-section  Plane  Value  Selection",  'V'); 

/  *  end  create__cvaluemenu  ( )  *  / . 


/*********************************************************************** 
*  VOID  CREATE_WAVEMENU 

*********************************************************************** 


*<Begin> 

*<Identif ication>  Name:  create_wavemenu 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  create_outputsmenu 

*<Description> 

*  Creates  the  "Wave  Number  Selection"  pulldown  menu  widget. 

*<Called  routines> 

*  waveCB  -  callback  to  change  the  wavenumber 

*  create_cascadebutton  -  create  the  cascade  button  for  the  menupane 


*< Parameters > 

*  Formal  declaration: 

*  void  create_wavemenu (Widget  outputpane) 

*  Input : 

*  outputpane  -  (Widget)  the  "Flux"  menupane  to  hold 

*  the  wavenumber  value  selection  menu 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  create_wavemenu (Widget  outputpane) 

Widget  menupane,  button; 

Arg  wargs [10] ; 
int  n,  i; 

static  int  index [NV] ; 

static  char  wave__label  [20]  ; 

static  int  indexx[2]  =  {  -2,  -1  }; 

static  char  *inc_label []  =  {  "Dec  by  1  Button", 

"Inc  by  1  Button"  }; 

static  char  *fctn_key[]  =  {  "Ctrl-F8",  "Ctrl-F9"  }; 

static  char  *fc_key[]  =  {  "Ctrl  <Key>F8 : " ,  "Ctrl  <Key>F9 : "  }; 


n  =  /*  "Wave  Number  Selection"  menu  */ 

menupane  =  XmCreatePulldownMenu  (outputpane,  "waveval",  wargs,  n) ; 
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/*  ’’Wave  Number  Value "  buttons 


*/ 

for  (i=0;  i<out_nwave;  i++) 

{  sprintf (wave_label,  "  %10.4f  per  cm",  out_waveno [i] ) ; 

index [i]  =  i+1; 

n  =  0  ; 

XtSetArg (wargs [n] ,  XmNlabelString, 

XmStringCreateLtoR ( wave_label ,  charset));  n++; 

button  =  XmCreatePushButton(menupane,  wave_label,  wargs,  n) ; 

XtAddCallback  (button,  XmNactivateCallback,  waveCB,  &index [i] ) ; 

XtManageChild  (button) ; 

} 

for  (i=0;  i<2;  i++)  /*  Add  "Decrement /Increment”  button*/ 

{  n  =  0; 

XtSetArg (wargs [n] ,  XmNlabelString, 

XmStringCreateLtoR (inc_label [i] ,  charset) ) ;  n++; 

XtSetArg (wargs [n] ,  XmNacceleratorText , 

XmStringCreateLtoR (fctn_key[i] ,  charset) ) ;  n++; 

XtSetArg (wargs [n] ,  XmNaccelerator ,  fc_key[i] ) ;  n++; 

button  =  XmCreatePushButton (menupane,  inc_label [i] ,  wargs,  n) ; 

XtAddCallback  (button,  XmNactivateCallback,  waveCB,  &indexx[i]); 

XtManageChild  (button) ; 

} 

create  cascadebutton (outputpane,  menupane,  "Wave  Number  Selection", 

' W' ) ;  /*  Attach  "Wave  #  Select"  -  "Flux"  */ 

/*  end  create_wavemenu()  */ 

********************************************************************** 

VOID  CREATE_HELPMENU 

********************************************************************** 

<Begin> 

<Identif ication>  Name :  create_helpmenu 

Type:  C  void 

Filename :  visual . c 

Parent :  create_menubar 

<Description> 

Creates  the  "Help"  options  selection  pulldown  menu  widget. 

cCalled  routines> 

create_pushbuttonss 

help_generalCB 
help_f ileCB 
help_viewCB 
help_fluxCB 
help_modifyCB 
help_resetCB 
help_rotationCB 
help_translationCB 

<Parameters> 

Formal  declaration : 

void  create_helpmenu (Widget  men\ibar,  Widget  helpcas) 

Input : 

menubar  -  (Widget)  the  "menubar"  widget  to  hold  the 

help  options  selection  menu 

helpcas  -  (Widget)  the  "Help"  cascade  widget 

Output : 

None 


-  creates  a  pushbutton  widget  with  a 
non-NULL  client 

-  displays  general  VISUAL  information 

-  displays  File  Option  information 

-  displays  Viewing  Options  menu 

-  displays  Flux  Display  Options  menu 

-  displays  Input  Modifications  Options  menu 

-  displays  Reset  information 

-  displays  BLIRB8  Space  Rotation  information 

-  displays  BLIRB8  Space  Translation  info 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  create_helpmenu (Widget  menubar,  Widget  helpcas) 

Widget  menupane; 

Arg  wargs [10] / 
int  n; 

static  int  *indx[8]  =  {  0,  1,  2,  3,  4,  5,  6,  7  }; 
static  char  *button_label []  =  {  "General  Information", 

"File  Options", 

"Viewing  Options", 

"Flux  Display  Options", 

"Input  Modification  Options", 

"Reset" , 

"BLIRB8  Space  Rotations", 

"BLIRB8  Space  Translations"  }; 

static  int  nm__key[8]  =  {  7  G7  ,  'F',  'V7,  7x7,  7M7,  7s7,  7R7,  7T7  }; 

n  =  0;  /*  Create  the  "Help"  menupane  */ 

menupane  =  XmCreatePulldownMenu  (menubar,  "helppane" ,  wargs,  n) / 

/*  Create  "General  Help"  button  */ 
createjpushbuttonss (  menupane,  indx[0],  buttonJLabel  [0]  ,  nm_key[0], 

helpjjeneralCB) / 

/*  Create  "File  Help"  button  */ 

createjpushbuttonss (  menupane,  indx[l],  buttonJLabel [1] ,  nm  key[l] , 

help_fileCB) ; 

/*  Create  "View  Help"  button  */ 

createjpushbuttonss (  menupane,  indx[2],  buttonJLabel [2] ,  nm_key[2] , 

help__viewCB)  ; 

/*  Create  "Flux  Help"  button  */ 

createjpushbuttonss (  menupane,  indx[3],  button_label [3] ,  nm_key[3] , 

help_fluxCB) ; 

/*  Create  "Modify  Help"  button  */ 

create_pushbuttonss (  menupane,  indx[4],  button_label [4] ,  nm_key[4], 

helPjtnodifyCB)  ; 

/*  Create  "Reset  Help"  button  */ 

createjpushbuttonss (  menupane,  indx[5],  button_label [5] ,  nm_key[5], 

helpjresetCB) ; 


/*  Create  "Rotation  Help"  button  */ 
create jushbuttonss  (  menupane,  indx[6],  button_label  [6]  ,  nm_key[6]  , 

helpjrotationCB)  ; 

/*  Create  "Translation  Help"  button*/ 
create_pushbuttonss (  menupane,  indx[7],  button_label [7] ,  nm_key[7] , 

help_translationCB) ; 

n  “  0;  /*  Attach  "Help"  pane  to  menubar  */ 

XtSetArg (wargs [n] ,  XmNlabelString,  XmStringCreateLtoR ( "  Help  ", 
charset));  n++; 
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XtSetArg (wargs [n] ,  XmNmnemonic,  ' H' ) ;  n++; 

XtSetArg  (wargs [n] ,  XmNsubMenuId,  menupane) ;  n++; 

helpcas  =  XmCreateCascadeButton  (menubar,  "  Help  ",  wargs,  n) ; 

XtManageChild  (helpcas) ; 

/* 

XtAddCallback  (helpcas,  XmNactivateCallback,  helpCB,  NULL) ; 

*/ 

}  /*  end  create_helpmenu ( )  */ 


VOID  CREATE  JVIOD I FYMENU 


*<Begin> 

*<Identif ication>  Name :  create_modifymenu 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  create__menubar 


*<Description> 

*  Creates  the  "Modify"  options  selection  pulldown  menu  widget. 


*<Called  routines> 

*  create_regionmenu 

* 


*  create_areamenu 

★ 

*  create_meshmenu 

* 

*  create__f  larmenu 

* 

*  create_srchmenu 

* 

*  create_spectmenu 

* 

*  create  _jpushbuttonfn 

* 

*  model_optCB 

* 


*  cloud_optCB 

*  sun_optCB 

*  comp__optCB 

*  output_optCB 

*  create_cascadebutton 
*=============^=========== 


creates  the  "BLIRB  Region  Selection" 
pulldown  menu  widget, 
creates  the  "Albedo  Areas  Selection" 
pulldown  menu  widget. 

creates  the  "X,  Y,  Z  Grid  Mesh  Selection" 
pulldown  menu  widget . 

creates  the  "Flare  Selection"  pulldown 
menu  widget. 

creates  the  "SearchLight  Selection" 
pulldown  menu  widget. 

creates  the  "Spectral  Range  Units  Choice" 

options  pulldown  menu. 

create  pushbutton  widget  with 

accelerator  keys  and  NULL  client 

sets  the  various  Model  Options  for  BLIRB 

on  MDL1 ,  MDL2 ,  and  MDL3  cards. 

selects  various  Cloud  Options  for  BLIRB 

selects  Sun  Input  Options  for  BLIRB 

selects  Computation  Options  for  BLIRB 

selects  BLIRB  Output  File  Format  Option 

create  the  cascade  button  for  the  menupane 


*<Parameters> 

*  Formal  declaration: 

*  void  create_modifymenu (Widget  menubar) 

*  Input : 

*  menubar  -  (Widget)  the  "menubar"  widget  to  hold  the 

*  modifying  options  selection  menu 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  create_modifymenu (Widget  menubar) 
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Widget  menupane; 

Arg  wargs [5] ; 
int  n; 

static  char  *fctn_key[]  =  {  "Shift-F5",  "Shift-F9",  MShif t-FlO " , 

" Shif t-FIl " ,  "Shif t-F12 "  }; 

static  char  *fc_key[]  =  {  "Shift  <Key>F5 : " ,  "Shift  <Key>F9 : " , 

"Shift  <Key>F10:",  "Shift  <Key>Fll : " , 

"Shift  <Key>F12 : "  }; 

n  =  0;  /*  Create  the  "Modify"  menupane  */ 

menupane  =  XmCreatePulldownMenu  (menubar,  "modifypane" ,  wargs,  n) ; 

/*  Create  "Model  Changes"  button  */ 
create _j?ushbuttonfn (menupane,  fctn_key[0] ,  fc_key[0] ,  "Model  Changes", 

'M' ,  model_optCB) ; 

create_regionmenu (menupane) ;  /*  Create  the  BLIRB  Regions  menu  */ 

create_areamenu (menupane) ;  /*  Create  the  Albedo  Areas  menu  */ 

cr eat e_meshmenu (menupane) ;  /*  Create  the  Grid  Mesh  menu  */ 

/*  Create  "Cloud  Changes"  button  */ 
create_jpushbuttonfn (menupane,  fctn_key[l] ,  fc_key[l] ,  "Cloud  Changes", 

' C' ,  cloud_optCB) ; 

/*  Create  "Sun  Changes"  button  */ 

create_pushbuttonfn (menupane,  fctn_key[2],  fc_key[2],  "Sun  Changes", 

'S',  sun_optCB) ; 

create_f larmenu (menupane) ;  /*  Create  the  Flares  menu  */ 

create_srchmenu (menupane) ;  /*  Create  the  SearchLight  menu  */ 

create_spectmenu (menupane) ;  /*  Create  the  Spectral  Range  menu  */ 

/*  Create  "Computation  Changes"  */ 

create_pushbuttonfn (menupane,  fctn_key[3] ,  fc_key[3] , 

"Computation  Changes",  'p' ,  comp_optCB) ; 

/*  Create  "Output  File  Changes"  */ 
create_pushbuttonfn (menupane,  fctn__key[4]  ,  fc_key[4]  , 

"Output  File  Changes",  'O',  output__optCB)  ; 

/*  Attach  "Modify"  menu  to  menubar  */ 
create_cascadebutton (menubar ,  menupane,  "  Modify  ",  'M'); 

}  /*  end  create_modifymenu ( )  */ 

/*********************************************************************** 

*  VOID  CRE ATE__S PE CTMENU 

*********************************************************************** 
*<Begin>  — 

*<Identif ication>  Name:  create_spectmenu 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  create_modifymenu 


*<Description> 

*  Creates  the  "Spectral  Range  Units  Choice"  options  pulldown  menu. 
*<Called  routines> 

*  create_buttonsf  -  creates  a  series  of  related  pushbuttons 
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*  with  accelerator  keys  and  clients 

*  spectlmenuCB  -  creates  the  Wavenumber/Wavelength  Menu 

*  create_cascadebutton  -  create  the  cascade  button  for  the  menupane 

*  Parameters  > 

*  Formal  declaration: 

*  void  create_spectmenu (Widget  modifypane) 

*  Input : 

*  modifypane  -  (Widget)  the  "modifypane"  widget  to  hold 

*  the  spectral  range  interval  options 

*  selection  menu 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  create  spectmenu (Widget  modifypane) 

{ 

Widget  menupane; 

Arg  wargs [10]  ; 
int  i ,  n ; 

static  int  index[2]  =  {  0,  1  }; 

static  char  *fctn_key[]  =  {  "Ctrl-Fll",  "Ctrl-F12"  }; 
static  char  *fc_key[]  =  {  "Ctrl  <Key>Fll:",  "Ctrl  <Key>F12 : "  }; 
static  char  *spect_label []  =  {  "Wavenumber",  "Wavelength"  }; 
static  int  nm_key[2]  =  {  'n'  ,  '  1 '  }; 

n  =  0;  /*  Create  the  "Spectral"  menupane  */ 

menupane  =  XmCreatePulldownMenu  (modifypane,  "spectpane" ,  wargs,  n) ; 

/*  Create  "Wavenumber/ length"  keys  */ 
create_buttonsf (menupane,  2,  index,  fctn__key,  fc_key,  spect_label, 
nm_key,  spectlmenuCB) ; 

/*  Attach  "Spectral"  menu  to  menubr*/ 
create_cascadebutton (modifypane,  menupane,  "Spectral  Range  Changes", 

'  t '  )  ; 

}  /*  end  create_spectmenu ()  */ 

/*********************************************************************** 

*  VOID  CREATE_AREAMENU 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  create_areamenu 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  create_modifymenu 

*<Description> 

*  Creates  the  "Albedo  Areas  Selection"  pulldown  menu  widget. 

*<Called  routines> 

*  create_arealmenu  -  create  the  "Albedo  Area  Options"  menu 

*  create__cascadebutton  -  create  the  cascade  button  for  the  menupane 

*  <Parameters  > 

*  Formal  declaration: 
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* 

* 

* 

* 

* 

* 


void  create_areamenu (Widget  modifypane) 
Input : 


modifypane  -  (Widget)  the  "modifypane "  widget  to  hold 

the  Albedo  Area  options  selection  menu 

Output : 

None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  create_areamenu (Widget  modifypane) 

Widget  menupane,  areapane [I AM] ,  cascade; 

Arg  wargs [10] ; 

int  n,  net,  i; 

static  int  index [ IAM] ; 

static  char  area_label [IAM] [20]; 


if (area  >  0) 

{  for  (nct=0;  nct< (area+1) ;  nct++) 

sprintf (area_label [net] #  "Albedo  Area  -  %d"/  nct+1) ; 

else  if (area  ==  0) 

{  sprintf (areaJLabel [0] ,  "Albedo  Area  -  1") ; 
net  =  1; 

} 

else 

net  =  0 ; 

if (area  <  (IAM  -  1) ) 

{  sprintf (area_label [net] ,  "Add  New  Albedo  Area") ; 
nct++; 

} 

n  =  0 >'  /*  Create  the  "Albedo  Areas"  pane  */ 

menupane  =  XmCreatePulldownMenu  (modifypane,  "areapane",  wargs,  n) ; 

/*  "Albedo  Areas  Selection"  menu  */ 

for  (i=0 ;  i<nct;  i++) 

{  n  =  0; 

areapane [i]  =  XmCreatePulldownMenu  (menupane,  "areapanel",  wargs , n) ; 
index  [i]  =  i; 

create^arealmenu (  areapane [i] ,  &index [i] ) ; 


n  =  0  ; 

Xt Set Arg (wargs [n] ,  XmNlabelString, 

XmStringCreateLtoR  (area_label  [i]  ,  charset)  )  ,-  n++; 

XtSetArg  (wargs [n] ,  XmNsubMenuId,  areapane [i] ) ;  n++; 

cascade  =  XmCreateCascadeButton  (menupane,  area  label  [i] ,  wargs,  n) ; 

XtManageChild  (cascade); 


/*  Attach  "Area"  menu  to  menubar  */ 
create__cascadebutton (modifypane,  menupane,  "Albedo  Area  Selection" 

1  'A'); 

}  /*  end  create_areamenu ( )  */ 
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VOID  CREATE_AREA1MENU 


*<Begin> 

*<Identif ication>  Name :  create_arealmenu 

*  Type:  C  void 

*  Filename:  visual . c 

*  Parent :  create_areamenu 

*<Description> 

*  Creates  the  “Albedo  Areas  Options"  selection  pulldown  menu  widget. 


*<Called  routines> 

*  create_j?ushbuttonss 

* 

*  area_optCB 

*  area_albCB 

* 

*  area_locCB 

*  area  delCB 


-  creates  a  pushbutton  widget  with  a 
non-NULL  client 

-  sets  up  the  scales  for  the  area  dimensions 

-  calls  the  appropriate  function  for  the 
area  albedo 

-  moves  the  area  to  the  desired  location 

-  removes  the  area  from  the  BLIRB  inputs 


*< Parameters > 

*  Formal  declaration: 

*  void  create_arealmenu (Widget  areapane ,  int  *indx) 

*  Input : 

*  areapane  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  *indx  -  the  pushbutton  client  data  (passthrough) 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  create_arealmenu (Widget  areapane,  int  *indx) 

static  char  *button_label []  =  {  "Dimensions",  "Albedo",  "Location", 

"Delete  Area"  }; 

static  int  nm_key[4]  =  {  'D' ,  '  b',  'L' ,  /A'  }; 


if ( (*indx)  1 =  0) 

create_ pushbuttons s (  areapane,  indx,  button_label [0] ,  nm_key[0], 

area_optCB) ; 

if((*indx)  <=  area) 

{  create jjushbuttonss (  areapane,  indx,  button_label [1] ,  nm_key[l], 

area_albCB) ; 

if ( (*indx)  ! =  0) 

{  create_pushbuttonss (  areapane,  indx,  button_label [2] ,  nm_key[2] , 

area_locCB) ; 

create_pushbuttonss (  areapane,  indx,  button_label [3] ,  nm_key[3], 

area_delCB) ; 


}  /*  end  create_arealmenu ( )  */ 


VOID  CREATE_REGIONMENU 
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*<Begin> 

*<Identif ication>  Name:  create_regionmenu 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  create_modif ymenu 

*<Description> 

*  Creates  the  "BLIRB  Region  Selection’1  pulldown  menu  widget. 

*<Called  routines> 

*  create_regionlmenu  -  create  the  "Region  Options"  menu 

create _ cascadebutton  -  create  the  cascade  button  for  the  menupane 

*<Parameters> 

*  Formal  declaration: 

*  void  create__regionmenu  (Widget  modifypane) 

*  Input: 

*  modifypane  -  (Widget)  the  "modifypane"  widget  to  hold 

*  the  BLIRB  Region  options  selection  menu 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

******************************  ***************************************** 
*/ 

void  create_regionmenu (Widget  modifypane) 

Widget  menupane,  regnpane [IRM] ,  cascade; 

Arg  wargs [10] ; 

int  n,  net,  i; 

static  int  index [IRM]; 

static  char  regn_label [IRM] [21] ; 


if(regn  >  0) 

{  for  (nct=0 ;  nct< (regn+1 ) ;  nct++) 

^  sprintf  (regn__label  [net]  ,  "BLIRB  Region  -  %d",  nct+1)  ; 
else  if(regn  ==  0) 

{  sprintf (regn_label  [0] ,  "BLIRB  Region  -  1"); 
net  =  1 ; 

} 

else 

net  =  0 ; 


if (regn  <  (IRM  -  l) ) 

{  sprintf (regn_label [net] ,  "Add  New  BLIRB  Region"); 
nct++; 

} 


n  -  °'  /*  Create  the  "BLIRB  Region"  pane  */ 

menupane  =  XmCreatePulldownMenu  (modifypane,  "regnpane",  wargs,  n) ; 

_  /*  "BLIRB  Regions  Selection"  menu  */ 

for  (i=0 ;  i<nct ;  i++) 

{  n  =  0; 

regnpane [i]  =  XmCreatePulldownMenu  (menupane,  "regnpanel",  wargs, n) ; 
index [i]  =  i; 
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create_regionlmenu (  regnpane [i] ,  &index [i] ) ; 
n  ss  0; 

XtSetArg (wargs [n] ,  XmNlabelString, 

XmStringCreateLtoR  (regnJLabel [i] ,  charset));  n++ * 

XtSetArg  (wargs [n] ,  XmNsubMenuId,  regnpane [i] ) ;  n++; 

cascade  =  XmCreateCascadeButton  (menupane,  regn  label  [i] ,  wargs  n)  * 

X tManageChi 1 d  (cascade) ;  ~  y  '  ' 


/*  Attach  "Region"  menu  to  menubar  */ 
create_cascadebutton (modifypane,  menupane,  "Region  Selection",  ' R' ) ; 

}  /*  end  create__regionmenu  ( )  */ 

/*********************************************************************** 

*  VOID  CREATE_REGI0N1MENU 

*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  create_regionlmenu 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  create__regionmenu 

*<Description> 

*_  Creates  the  "BLIRB  Regions  Options"  selection  pulldown  menu 
*< Cal led  routines > 

"  create_pushbuttonss  -  creates  a  pushbutton  widget  with  a 

*  non-NULL  client 

regn_optCB  -  sets  up  the  scales  for  region  dimensions 

regn_mtlCB  -  sets  the  region  material  density 

*  regn_locCB  -  moves  the  region  to  the  desired  location 

*  _ regn_delCB  -  removes  the  region  from  the  BLIRB  inputs 

*<Parameters> 

*  Formal  declaration: 

*  void  create_regionlmenu (Widget  regnpane,  int  *indx) 

*  Input : 

*  regnpane  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 


— / - -  — 

-  the  pushbutton  client  data  (passthrough) 


*  *indx 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  create_regionlmenu (Widget  regnpane,  int  *indx) 

static  char  *button_label []  =  {  "Dimensions",  "Material  -  l", 

"Material  -  2",  "Material  -  3", 

"Location",  "Delete  Region"  }; 

static  int  nm_key[6]  =  {  'D' ,  '2',  '3',  'L'  'R'  T- 

static  int  mtx [IRM] [MXMTR] ;  '  ’ ' 

create_pushbuttonss (  regnpane,  indx,  button_label [0] ,  nm_key[0] , 

regn_optCB) ; 

if((*indx)  <=  regn) 
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{  mtx [* indx]  [0]  =  10  *  (*indx)  ; 

create _ pushbuttonss  (  regnpane,  &mtx[*indx]  [0]  ,  button _ label L1J  t 

nm_key[l],  regn_mtlCB) ; 
mtx [*indx] [1]  =  10  *  (*indx)  +1; 

create_pushbuttonss (  regnpane,  &mtx [*indx]  [1] ,  button_label L 2 J  , 

nm__key  [2]  ,  regnjntlCB)  ; 
mtx[*indx]  [2]  =  10  *  (*incbc)  +2; 

create_j?ushbuttonss  (  regnpane,  &mtx[*indx]  [2]  ,  button_label  [3]  , 

~  nm_key[3],  regn_mtlCB) ; 

if ( (*indx)  !=  0) 

{  create  pushbuttonss  (  regnpane,  indx,  button_label L 4 J ,  nm_KeyL4j, 

regn__locCB)  ; 

create_pushbuttonss  (  regnpane,  indx,  button__label  [5]  ,  nm_key[5]  , 
—  regn_delCB) ,* 


}  /*  end  create_regionlmenu ( )  */ 


^ *  V0ID  CREATE_FLARMENU 


*<Begin> 

*<  Identification 


Name :  create_f larmenu 

Type :  C  void 

Filename :  visual . c 

Parent:  create  modifymenu 


*<Description> 

*  Creates  the  "Flare  Selection"  pulldown  menu  widget. 

*<Called  routines> 

*  create_f larlmenu  -  create  the  "Flare  Options"  menu 

*  create  cascadebutton  -  create  the  cascade  button  for  the  menupane 

*  Parameters  > 

*  Formal  declaration: 

*  void  create__f  larmenu  (Widget  modifypane) 

*  Input:  , 

*  modifypane  -  (Widget)  the  "modifypane"  widget  to  hold 

*  the  Flare  options  selection  menu 

*  Output:  " 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/  . 
void  create_f larmenu (Widget  modifypane) 

Widget  menupane,  f larpane [NEST] ,  cascade; 

Arg  wargs [10] ; 

int  n,  net,  i; 

static  int  index [NEST] ; 

static  char  flar  label [NEST]  [14]  ; 


if (flar  >  0) 

{  for  (nct-0 ;  nct< (flar+1) ;  nct++) 

sprintf (flar_label  [net] ,  "Flare  -  %d",  nct+1) ; 

} 
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else  if (f lar  ==  0) 

{  sprint f (flar_label [0] ,  "Flare  -  1"); 
net  =  1; 

} 

else 

net  =  0; 

if (flar  <  (NEST  -  1)  ) 

{  sprintf (f lar_label [net] ,  "Add  New  Flare"); 
nct++; 

} 


n  =  0;  /*  Create  the  "Flare"  pane  */ 

menupane  =  XmCreatePulldownMenu  (modifypane,  "f larpane" ,  wargs,  n) ; 

/*  "Flare  Selection"  menu  */ 

for  ( i  =  0 ;  i<nct;  i++) 

{  n  =  0; 

flarpane[i]  =  XmCreatePulldownMenu  (menupane,  "f larpanel" ,  wargs, n); 
index [ i ]  =  i ; 

create_f larlmenu (  flarpane [i] ,  &index [i] ) ; 
n  =  0; 

XtSetArg (wargs [n] ,  XmNlabelString, 

XmStringCreateLtoR  (flar_label [i] ,  charset) ) ;  n++; 

XtSetArg  (wargs [n] ,  XmNsubMenuId,  flarpane [i] ) ;  n++; 

cascade  =  XmCreateCascadeButton  (menupane,  f lar_label [i] ,  wargs,  n)  ; 

XtManageChild  (cascade) ; 

} 


/*  Attach  "Flare"  menu  to  menubar  */ 
create_cascadebutton (modif ypane ,  menupane,  "Flare  Selection",  ' F'); 

}  /*  end  create_flarmenu()  */ 


/*********************************************************************** 

*  VOID  CRE ATE_FLiAR  1MENU 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  create_f larlmenu 

*  Type :  C  void 

*  Filename :  visual . c 

*  Parent:  create_f larmenu 


*<Description> 

*  Creates  the  "Flare  Options"  selection  pulldown  menu  widget. 


*<Called  routines> 

*  create_pushbuttonss 

* 

*  flar_optCB 

*  f lar_locCB 

*  flar_delCB 

*=  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  ==:  =  = 


-  creates  a  pushbutton  widget  with  a 
non-NULL  client 

-  sets  up  scales  for  the  Flare  parameters 

-  moves  the  Flare  to  the  desired  location 

-  removes  the  Flare  from  the  BLIRB  inputs 


*<Parameters> 

*  Formal  declaration: 

*  void  create_f larlmenu (Widget  flarpane,  int  *indx) 

*  Input : 

*  flarpane  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  *indx  -  the  pushbutton  client  data  (passthrough) 

*  Output : 


245 


*  None 
*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  create_flarlmenu  (Widget  flarpane,  int  *indx) 

static  char  *buttonJLabel []  =  {  "Parameter  Options" ,  "Location", 

"Delete  Flare"  }; 

static  int  nm_key[3]  =  {  '  P' ,  '  L' ,  '  D'  } ; 

create_pushbuttonss (  flarpane,  indx,  button_label [0]  ,  nm_key[0] , 

flar_optCB) ; 

if ( (*indx)  <=  flar) 

{  create_pushbuttonss  (  flarpane,  indx,  buttonJLabel  [1]  ,  nm__key[l]  , 

flar_locCB) ; 

create_pushbuttonss (  flarpane,  indx,  button_label [2] ,  nm_key[2] , 

flar_delCB) ; 

}  /*  end  create_f larlmenu ( )  */ 


*  VOID  CREATE_S  RCHMENU 


*<Begin> 

*<Identif ication>  Name:  create_srchmenu 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  create_modifymenu 

*<Description> 

*  Creates  the  "SearchLight  Selection"  pulldown  menu  widget. 


*<Called  routines> 

*  create_pushbuttonss 

* 

*  srch_optCB 

*  srch_locCB 

*  srch_delCB 

*  create_cascadebutton 


creates  a  pushbutton  widget  with  a 
non-NULL  client 

sets  up  the  scales  for  the  Slite  params 
moves  the  Slite  to  the  desired  location 
removes  the  Slite  from  the  BLIRB  inputs 
create  the  cascade  button  for  the  menupane 


*<Parameters> 

*  Formal  declaration: 

*  void  create_srchmenu (Widget  modifypane) 

*  Input : 

*  modifypane  -  (Widget)  the  "modifypane"  widget  to  hold 

*  the  Slite  options  selection  menu 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  create_srchmenu (Widget  modifypane) 
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{ 

Widget  menupane; 

Arg  wargs [10]  ; 
int  n  ; 

static  int  index [3]  =  {  0,  1, 
static  char  *srch_label []  =  { 


static  int  nm_key[3]  =  {  'A'  , 


2  }; 

n Add/Modify  Searchlight", 
"Location" , 

"Delete  SearchLight"  }; 
'L',  'D'  } ; 


n  -  0;  /*  Create  the  "Searchlight"  pane  */ 

menupane  =  XmCreatePulldownMenu  (modifypane,  "srchpane",  wargs,  n)  ; 


/*  "Slite  Selection"  menu  */ 

create_pushbuttonss (  menupane,  &index[0],  srch_label [0] ,  nm_key[0] , 

”  srch_optCB) ; 

if (srch  ==  0) 

{  create_pushbuttonss (  menupane,  &index[l],  srch_label  [1] ,  nm_key[l]  , 

srch_locCB) ; 

create_pushbuttonss (  menupane,  &index[2],  srch_label [2] ,  nm_key[2] , 

srch_delCB) ; 

} 


/*  Attach  "Slite"  menu  to  menubar  */ 
create  cascadebut ton (modifypane,  menupane,  "SearchLight  Selection", 

'L')  ; 

}  /*  end  create_srchmenu ( )  */ 


^ *  VOID  CREATE_MESHMENU 


*<Begin> 

*<Identif ication>  Name :  create_meshmenu 

*  Type :  C  void 

*  Filename :  visual . c 

*  Parent :  create_modif ymenu 

*<Description> 

*  Creates  the  "X,  Y,  Z  Grid  Mesh  Selection"  pulldown  menu  widget. 
*<Called  routines> 

*  create _pushbuttonfn  -  create  pushbutton  widget  with 

*  accelerator  keys  and  NULL  client 

*  meshxmenuCB  -  create  the  "X  Grid  Mesh  Selection"  menu 

*  meshymenuCB  -  create  the  "Y  Grid  Mesh  Selection"  menu 

*  meshzmenuCB  -  create  the  "Z  Grid  Mesh  Selection"  menu 

*  create__cascadebutton  -  create  the  cascade  button  for  the  menupane 


*<Parameters> 

*  Formal  declaration: 

*  void  create_meshmenu (Widget  modifypane) 

*  input : 

*  modifypane  -  (Widget)  the  "modifypane"  widget  to  hold 

*  the  Grid  Mesh  options  selection  menu 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 
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*********************************************************************** 

*/ 

void  create_meshmenu (Widget  modifypane) 

Widget  menupane; 

Arg  wargs [5]  ; 
int  n; 

static  char  *f  ctn_key  []  =  {  "Shift-F6",  "Shift-F7",  "Shift-F8"  }; 
static  char  *fc__key[]  =  {  "Shift  <Key>F6 : " ,  "Shift  <Key>F7  : " , 

"Shift  <Key>F8 : "  }; 

n  =  °;  /*  Create  the  "Grid  Mesh"  pane  */ 

menupane  =  XmCreatePulldownMenu  (modifypane,  "meshpane",  wargs,  n)  ; 

/*  "X  Grid  Mesh  Selection"  menu  */ 
create_pushbuttonfn (menupane,  fctn_key(0]  ,  fc_key[0] ,  "X  Grid  Mesh", 

'X' ,  meshxmenuCB) ; 


/*  "Y  Grid  Mesh  Selection"  menu  */ 
create_pushbuttonfn (menupane,  fctn_key[l] ,  fc_key[l] ,  "Y  Grid  Mesh", 

'Y',  meshymenuCB) ; 

/*  "Z  Grid  Mesh  Selection"  menu  */ 
create _pushbuttonfn (menupane,  fctn_key[2] ,  fc_key[2] ,  "Z  Grid  Mesh", 

'Z',  meshzmenuCB) ; 

/*  Attach  "Mesh"  menu  to  menubar  */ 
create_cascadebutton (modifypane,  menupane,  "Grid  Mesh  Selection" ,' G' ) ; 
}  /*  end  create_meshmenu ( )  */ 

*  VOID  CRE ATE_MES SAGE 

+  ******************★******★******************★***•*************•**•***■**** 
*<Begin> 

*<Identif ication>  Name:  create_message 

*  Type:  C  void- 

Filename:  visual. c 

Parent:  checkf iletypeCB,  helpCB,  savefileCB, 

getfilenameCB,  regnCB,  getdata, 
readcards,  set_albedo,  set_aerosol, 
writecards,  help_generalCB, 
help_f ileCB,  help_resetCB, 
help_rotationCB ,  help_translationCB , 
help_axisCB,  help_sunoCB, 
help_zoomCB,  help_togCB,  help_optCB, 
help_orCB,  help_valCB,  help_waveCB, 
help_modCB,  help_regCB,  help_areaCB, 
help_meshCB,  help_cldCB,  help_sunCB, 
help_f lareCB,  help_sliteCB, 
help_spectCB,  help_compCB,  help_outCB 

*<Description>  — 

*  Draws  a  message  in  a  dialog  message  box.  The  cancel  and  help 

*  buttons  are  removed. 

*<Called  routines> 

*  xstr2xmstr  -  converts  char  strings  to  XmString  strings 

A  okCB  -  removes  the  message  box  widget 

*<Parameters> 

*  Formal  declaration: 

*  void  create_message (Widget  w,  char  *string[]. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
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unsigned  char  dialogtype) 


★ 

*  Input : 

*  w 

* 

*  *string[] 

* 

*  dialogtype 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Modified  and  adapted  the  original  SGI  graphics  course 

*  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  create  message  (Widget  w,  char  *string[],  unsigned  char  dialogtype) 

{ 

int  i ,  n ; 

Widget  dialog,  label; 

XmString  xmstr; 

Arg  wargs [10] ; 


-  (Widget)  the  widget  to  which  to  attach  the 
message  box 

-  pointer  to  char  array  containing  the 
message  to  be  displayed 

-  unsigned  char  type  of  message  index 


/*-- - - - - - — - - 

*  -  Count  the  text  characters  up  to  the  first  NULL  string. 

*  _ _ _ 

*/ 

for (i=0 ;  string [i] [0]  !=  '  \0 '  ;  i++) ; 


/* - 

*  -  Convert  the  string  array  to  an  XmString  array  and  set  it  as  the 

*  "label"  text. 


*/ 

xmstr  =  xstr2xmstr (string,  i)  ; 


*  -  Create  the  "dialog"  dialog  widget  to  display  the  input  message. 


*/ 

n  =  0 ; 

XtSetArg (wargs [n] ,  XmNmes sageString,  xmstr) ;n++; 

XtSetArg (wargs [n] ,  XmNalignment ,  XmAL I GNMENT_BEG INNING ) ;n++ ; 
XtSetArg (wargs [n] ,  XmNautoUnmanage ,  FALSE);  n++; 

XtSetArg (wargs [n] ,  XmNdialogType ,  dialogtype);  n++; 

switch  (dialogtype) 

{  case  XmDIALOG_MESSAGE : 

dialog  =  XmCreateMessageDialog (w,  "Message",  wargs,  n) ; 
break ; 

case  XmDIALOG_ERROR : 

dialog  =  XmCreateErrorDialog (w,  "Error",  wargs,  n) ; 
break ; 

case  XmDIALOG_INFORMATION: 

dialog  =  XmCreatelnf ormationDialog (w,  "Information",  wargs,  n) ; 
break ; 

case  XmDIALOG_WARNING : 

dialog  =  XmCreateWarningDialog (w,  "Warning",  wargs,  n) ; 
break; 

case  XmDIALOG  WORKING: 
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} 


dialog  =  XmCreateWorkingDialog (w, 
break ; 
default : 
break ; 


"Working",  wargs,  n) ; 


/* * - 

*  -  Retrieve  the  "label"  widget  and  make  the  text  left  justified. 

*  _ _  _ 

*/ 

label  =  XmMessageBoxGetChild  (dialog,  XmDIALOG_MESSAGE_LABEL ) ; 

/* - 

*  -  Add  an  "OK"  callback  to  get  rid  of  the  message  box. 

*  _ 

*/ 

XtAddCallback (dialog,  XmNokCallback,  okCB,  NULL) ; 


/* - - - 

*  -  Remove  the  "Cancel"  and  "Help"  buttons. 


*/ 

XtUnmanageChild (XmMessageBoxGetChild  (dialog, XmDIALOG_CANCEL_BUTTON) ) ; 
XtUnmanageChild (XmMessageBoxGetChild  (dialog, XmDIALOG_HELP_BUTTON) ) ; 


/* - - - 

*  -  Realize  the  message  dialog  box  (display  the  message) . 

*  _ 

*/ 

XtManageChild (dialog) ; 

}  /*  end  create__message  ( )  */ 


*  VOID  CRE ATE_ME S SAGE F 
*********************************************************************** 
*<Begin> 

♦ddentif  ication>  Name:  create_messagef 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  newfCB,  filefCB,  exitCB 

*<Description> 

*  Draws  a  message  in  a  dialog  message  box.  The  help  button  is 

*  removed . 


*<Called  routines> 

*  xstr2xmstr.  -  converts  char  strings  to  XmString  strings 

*  okfCB  -  removes  the  message  box  widget  and 

*  continues  with  the  ongoing  operation. 

*  canceloCB  -  removes  the  message  box  and  calls  a  file 

*  save  function. 

*<Parameters> 

*  Formal  declaration: 
void  create_messagef (Widget  w,  char  *string[], 

unsigned  char  dialogtype) 


Input : 
w 


♦string  [] 
dialogtype 


-  (Widget)  the  widget  to  which  to  attach  the 
message  box 

-  pointer  to  char  array  containing  the 
message  to  be  displayed 

-  unsigned  char  type  of  message  index 
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*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Modified  and  adapted  the  original  SGI  graphics  course 

*  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  create  messagef (Widget  w,  char  *string[],  unsigned  char  dialogtype) 

{ 

int  i,  n; 

Widget  dialog,  label; 

XmString  xmstr; 

Arg  wargs [10] ; 


/* - 7— 

*  -  Count  the  text  characters  up  to  the  first  NULL  string. 

*  _ 

*/ 

for  (i=0 ;  string [i][0]  !  =  '\0';  i++) ; 


*  -  Convert  the  string  array  to  an  XmString  array  and  set  it  as  the 

*  "label"  text. 


*/ 

xmstr  =  xstr2xmstr (string,  i)  ; 


/* - 

*  -  Create  the  "dialog"  dialog  widget  to  display  the  input  message. 


*/ 

n  =  0  ; 

Xt Set Arg (wargs [n] ,  XmNmes sageString,  xmstr) ;n++; 

Xt Set Arg (wargs [n] ,  XmNalignment ,  XmAL I GNMENT_BEG INNING) ; n++ ; 
XtSetArg (wargs [n] ,  XmNautoUnmanage ,  FALSE);  n++; 

XtSetArg (wargs [n] ,  XmNdialogType,  dialogtype);  n++; 

XtSetArg (wargs [n] ,  XmNokLabelString, 

XmStringLtoRCreate (  "Continue",  charset));  n++; 

switch  (dialogtype) 

{  case  XmDIALOG_MESSAGE : 

dialog  =  XmCreateMessageDialog (w,  "Message",  wargs,  n) ; 
break ; 

case  XmDIALOG_ERROR: 

dialog  =  XmCreateErrorDialog (w,  "Error",  wargs,  n) ; 
break ; 

case  XmDIALOG__INFORMATION : 

dialog  =  XmCreatelnformationDialog (w,  "Information",  wargs,  n) ; 
break ; 

case  XmDIALOG_WARNING : 

dialog  =  XmCreateWarningDialog (w,  "Warning",  wargs,  n) ; 
break; 

case  XmDIALOG_WORKING: 

dialog  =  XmCreateWorkingDialog (w,  "Working",  wargs,  n) ; 
break ; 
default : 
break ; 

} 
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/* - - - 

*  -  Retrieve  the  "label"  widget  and  make  the  text  left  justified. 

*  _ _ 

*/ 

label  =  XmMessageBoxGetChild  (dialog,  XmDIALOG_MESSAGE_LABEL) ; 


/* - 

*  -  Add  an  "Continue"  callback  to  get  rid  of  the  message  box  and 

*  continue  with  the  ongoing  operation. 

*  _ _ _ _ 

*/ 

XtAddCallback (dialog,  XmNokCallback,  okfCB,  NULL) ; 

/* - 

*  -  Add  a  "Cancel”  callback  to  get  rid  of  the  message  box  and  stop 

*  the  ongoing  operation. 

*  _ _ _ 

*/ 

XtAddCallback (dialog,  XmNcancelCallback,  canceloCB,  NULL) ; 


/* - - - 

*  -  Remove  the  "Help"  button. 

*  _ 

*/ 

XtUnmanageChild (XmMessageBoxGetChild  (dialog, XmDIALOG_HELP_BUTTON) ) ; 


/* - - - 

*  -  Realize  the  message  dialog  box  (display  the  message) . 

*  _ 

*/ 

XtManageChild (dialog)  ; 


XmStringFree (xmstr) ; 

}  /*  end  create_messagef ()  */ 


*  VOID  CREATE_PUSHBUTTONS 


*<Begin> 

*<Identif ication>  Name:  create^pushbuttons 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent:  Numerous  Functions 

*<Description> 

*  Creates  a  series  of  related  pushbuttons  with  non_NULL  clients. 
*<Called  routines> 

*  cbfctn  -  option  callback  (obtained  from  calling 

*  procedure) 


* 

★ 

* 

* 

* 

* 

* 

* 

* 

★ 

★ 


<Parameters> 

Formal  declaration: 

void  create_pushbuttons (Widget  w,  int  net,  int  index [], 

char  *button_label  []  ,  int  nm_key[]  , 
FctnPointer  cbfctn) ; 


Input : 
w 

net 

index  [] 

*button_label [] 


the  widget  to  which  the  new  button  is 
attached 

the  number  of  buttons  to  create 
the  array  of  client  data  inputs 
the  button  label  string  array 
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nm_key [  ] 
cbfctn 
Output : 
None 


-  the  mnemonic  character  array 

-  the  callback  function 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  create_pushbuttons  (Widget  w,  int  net,  int  index  [], 

char  *button_label  []  ,  int  nm_key[], 

FctnPointer  cbfctn) 

{ 

Widget  button; 

Arg  wargs [10] ; 
int  n ,  i ; 

/* - 

*  -  Create  the  pushbuttons,  attach  them  to  the  parent,  and  realize 

*  them . 


for(i=0;  i<nct;  i++) 

{  n  =  0; 

XtSetArg (wargs [n] ,  XmNlabel String, 

XmStringCreateLtoR (button_label [i] ,  charset) ) ;  n++; 

XtSetArg (wargs [n] ,  XmNmnemonic,  nm_key[i]);  n++; 

button  =  XmCreatePushButton(w,  button_label [i] ,  wargs,  n) ; 

X t AddCal lback  (button,  XmNactivateCallback,  cbfctn,  &index[i]); 
XtManageChild  (button) ; 

}  /*  end  create_pushbuttons (}  */ 

/*********************************************************************** 

*  VOID  CREATE_PUSHBUTTONSS 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name :  create_pushbuttonss 

*  Type:  C  void 

*  Filename :  visual . c 

*  Parent :  Numerous  Functions 


*<Description> 

*  Creates  a  pushbutton  widget  with  a  non-NULL  client 


*<Called  routines > 
*  cbfctn 


-  option  callback  (obtained  from  calling 
procedure). 


*<Parameters> 

*  Formal  declaration: 

*  void  create_pushbuttonss (Widget  w,  int  *index, 

*  char  *button_label ,  int  nm_key, 

*  FctnPointer  cbfctn) ; 

*  Input : 

*  w  -  the  widget  to  which  the  new  button  is 

*  attached 

*  * index  -  the  client  data  input 

*  *button  label  -  the  button  label  string 
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* 

* 


“  mnemonic  key  for  button 
-  the  callback  function 


nm_key 
cbf ctn 
Output : 

None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*/ 

void  create_pushbuttonss (Widget  w,  int  *index,  char  *button_label , 

int  nm_key,  FctnPointer  cbfctn) 

Widget  button; 

Arg  wargs [10]  ; 
int  n; 


/* - 

*  -  Create  the  pushbutton,  attach  it  to  the  parent,  and  realize  it. 


*/ 

n  =  0  ; 

XtSetArg (wargs [n] ,  XmNlabelString, 

XmStringCreateLtoR(button_label,  charset) ) ;  n++; 
XtSetArg (wargs  [n] ,  XmNmnemonic,  nm_key) ;  n++; 
button  =  XmCreatePushButton (w,  button_label ,  wargs,  n)  ; 
XtAddCallback  (button,  XmNactivateCallback,  cbfctn,  index) ; 
XtManageChi 1 d  ( button ) ; 

}  /*  end  create_pushbuttonss ( )  */ 


/*********************************************************************** 

*  VOID  CREATE_ROWCOL 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  create_rowcol 

*  Type :  C  Widget 

*  Filename:  visual. c 


Parent:  Numerous  Functions 


* 

*<Description> 

*  Creates  a  BulletinBoard  Widget,  Rowcol  Widget,  and  "Finish”  Button 

*<Called  routines> 

*  none 

*< Parameters > 


FctnPointer  cbfctn) ; 

-  the  widget  to  which  the  new  button  is 
attached 

-  the  label  for  the  bulletinboard  &  rowcol 

-  the  callback  for  the  "Finish"  button 

-  the  returned  Rowcol  Widget 


* 

Formal  de 

* 

Widget 

★ 

* 

Input : 

* 

w 

* 

* 

*label 

* 

cbfctn 

* 

Output : 

* 

«*■ _ 

rowcol 

*<History> 

* 

09/12/94 

* 
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Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

Widget  create__rowcol (Widget  w,  char  *label,  FctnPointer  cbfctn) 

Widget  bboard,  rowcol,  button; 

Arg  wargs [5]  ; 
int  n; 


*  -  Create  a  bulletinboard,  attach  it  to  the  parent,  and  realize  it. 


*/ 

n  =  0 ; 

XtSetArg (wargs [n] ,  XmNdialogStyle,  XmDIALOGJVlODELESS) ;  n++; 
XtSetArg (wargs [n] ,  XmNwidth,  200);  n++; 

XtSetArg (wargs [n] ,  XinNheight,  200);  n++; 

bboard  =  XmCreateBulletinBoardDialog (w,  label,  wargs,  n)  ; 
XtManageChild (bboard) ; 


/* - 

*  -  Create  a  RowColumn  Widget 


*/ 

n  =  0  ; 

XtSetArg (wargs [n] ,  XmNorientation,  XmVERTICAL) ;  n++; 

rowcol  =  XtCreateManagedWidget (label,  xmRowColumnWidgetClass ,  bboard, 
wargs,  n) ; 


*  -  Create  a  f inishbutton,  attach  it  to  "rowcol",  and  realize  it. 


*/ 

n  =  0; 

button  =  XmCreatePushBut ton (rowcol,  "Finished  with  Selections",  wargs, 
n)  ; 

XtAddCallback  (button,  XmNactivateCallback,  cbfctn,  bboard) ; 
XtManageChild  (button) ; 


return  (rowcol) ; 

}  /*  end  create_rowcol ()  */ 

/*********************************************************************** 

*  VOID  CREATE_BBOARD 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  create_bboard 

*  Type :  C  Widget 

*  Filename :  visual . c 

*  Parent:  model_optCB,  meshxmenuCB, 

*  meshymenuCB,  meshzmenuCB 

*<Description> 

*  Creates  a  BulletinBoard  Widget. 

*<Called  routines> 

*  none 

*< Parameters > 

*  Formal  declaration: 

*  Widget  create_bboard (Widget  w,  char  *label) ; 
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the  widget  to  which  the  new  button  is 
attached 

the  label  for  the  bulletinboard 
the  returned  BulletinBoard  Widget 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

Widget  create  bboard (Widget  w,  char  *label) 

{ 

Widget  bboard; 

Arg  wargs [5] ; 
int  n; 


* 

* 

* 

* 

* 

* 

*  - 


Input : 
w 

*label 
Output : 
bboard 


/* - 

*  -  Create  a  bulletinboard,  attach  it  to  the  parent,  and  realize  it. 

*  _ 

*/ 

n  =  0  ; 

XtSetArg (wargs [n] ,  XmNdialogStyle,  XmDIALOG_MODELESS) ;  n++; 

XtSetArg  (wargs  [n]  ,  XmNwidth,  200);  n++; 

XtSetArg (wargs [n] ,  XmNheight,  200);  n++; 

bboard  =  XmCreateBulletinBoardDialog (w,  label,  wargs,  n) ; 

XtManageChild (bboard) ; 

return  (bboard) ; 

}  /*  end  create_bboard ( )  */ 

/*********************************************************************** 

*  VOID  CREATE_S E P ARATOR 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  create_separator 

*  Type:  C  void 

*  -  Filename:  visual. c 

*  Parent :  Numerous  Functions 

*<Description> 

*  Creates  a  Separator  Widget. 

*<Called  routines> 


*  none 
*<Parameters> 


* 

Formal 

declaration : 

* 

void 

create_separator (Widget  w,  int  *hv,  int  *sd) ; 

* 

Input : 

* 

w 

-  the  widget  to  which  the  new  button  is 

* 

attached 

* 

*hv 

-  the  "orientation"  indicator  for  the 

* 

widget:  0  -->  Horizontal 

* 

1  -->  Vertical 

* 

*sd 

-  the  "line  character"  indicator  for  the 

* 

widget:  1  - - >  Single  Line 

* 

2  Double  Line 

* 

Output : 
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★ 

* 


None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  create_separator (Widget  w,  int  *hv,  int  *sd) 

{ 

Widget  sep; 

Arg  wargs [5]  ; 
int  n; 


★  -  Create  a  separator,  attach  it  to  the  parent,  and  realize  it. 


*/ 

n  =  0 ; 

if (*hv  ==  0) 

{  XtSetArg (wargs [n] ,  XmNorientation,  XmHORIZONTAL) ;  n++;  } 

else 

{  XtSetArg (wargs [n] ,  XmNorientation,  XmVERTICAL) ;  n++;  } 


if ( *sd  ==  1) 

{  XtSetArg (wargs [n] ,  XmNseparatorType,  XmSINGLE_LINE) ;  n++;  } 
else 

{  XtSetArg (wargs [n] ,  XmNseparatorType,  XmDOUBLE_LINE) ;  n++;  } 


sep  s  XmCreateSeparator (  w,  "Separator n ,  wargs,  n); 
XtManageChild (sep) ; 

}  /*  end  create__separator  ()  */ 


/*********************************************************************** 

*  WIDGET  CREATEJTOGGLEBUTTON 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name :  create_togglebutton 

*  Type:  C  Widget 

*  Filename:  visual. c 

*  Parent:  Numerous  Functions 

*<Description> 

*  Creates  a  Togglebutton  Widget . 

*<Called  routines> 

*  none 

*  <Parameters > 


* 

Formal  declaration : 

* 

Widget  create  togglebutton (Widget  w,  char  *tog_label, 

* 

int  *index,  FctnPointer  cbfctn) 

* 

Input : 

-  the  widget  to  which  the  new  button  is 

* 

w 

* 

attached 

* 

*tog_label 

-  the  button  label  string 

★ 

* index 

-  the  client  data  input 

* 

cbfctn 

-  the  callback  function 

* 

Output : 

-  the  returned  Togglebutton  Widget 

* 

toggle 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

Widget  create_togglebutton (Widget  w,  char  *tog_label,  int  *index, 

FctnPointer  cbfctn) 

Widget  toggle; 

Arg  wargs [5] ; 
int  n; 


/* - - - - - 

*  -  Create  a  toggle,  attach  it  to  the  parent,  and  realize  it. 

*  _ < _ _ 

*/ 

n  =  0  ; 

XtSetArg (wargs [n] ,  XmNshadowThickness ,  3);  n++; 

XtSetArg (wargs [n] ,  XmNlabelString, 

XmStringCreateLtoR  (tog__label ,  charset));  n++; 
toggle  =  XtCreateManagedWidget  (tog_JLabel ,  xmToggleButtonWidget Class , 
w,  wargs,  n) ; 

XtAddCallback (toggle,  XmNarmCallback,  cbfctn,  index) ; 


return  (toggle) ; 

}  /*  end  create_togglebutton ( )  */ 


/*********************************************************************** 

*  WIDGET  CREATE_RAD I OBOX 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name: 

*  Type : 

*  Filename: 

*  Parent : 

*<Description>" 

*  Creates  a  Radiobox  Widget. 

*<Called  routines> 

*  none 


create_radiobox 
C  Widget 
visual . c 

Numerous  Functions 


*<Parameters> 
* 

* 

* 

* 

* 

* 

* 

* 

*<History> 

*  09/12/94 

* 


Formal  declaration : 

Widget  create_radiobox (Widget  w,  int  *nc,  char  *cat_label) 
Input : 

-  the  parent  widget 

-  the  number  of  columns 

-  the  button  label  string 


w 

*nc 

*cat_label 
Output : 
radio 


the  returned  Radiobox  Widget 


*=============== 

*<End> 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 


*******************************************************************.*.*** 

*/ 

Widget  create_radiobox (Widget  w,  int  *nc,  char  *cat  label) 
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Widget  radioform,  radiolabel,  radio; 
Arg  wargs [15] ; 
int  n; 


{ 


*  -  Create  a  radiobox,  attach  it  to  the  parent,  and  realize  it. 


radioform  =  XtCreateManagedWidget ( "radio" ,  xmFormWidget Class ,  w,  NULL, 
0)  ; 

radiolabel  =  XtCreateManagedWidget (cat_label ,  xmLabelWidgetClass , 
radioform,  NULL,  0) ; 

n  =  0  ; 

XtSetArg (wargs [n] ,  XmNentryClass,  xmToggleButtonWidgetClass) ;  n++; 
XtSetArg  (wargs  [n] ,  XmNtopAttachment ,  XmATTACH_WIDGET) ;  n++; 

XtSetArg (wargs [n] ,  XmNtopWidget ,  radiolabel);  n++; 

XtSetArg (wargs [n] ,  XmNradioBehavior ,  TRUE);  n++; 

XtSetArg (wargs [n] ,  XmNradioAlwaysOne ,  TRUE);  n++; 

XtSetArg (wargs [n] ,  XmNnumColumns ,  *nc) ;  n++; 

XtSetArg (wargs [n] ,  XmNpacking,  XmPACK_COLUMN) ;  n++; 

XtSetArg (wargs [n] ,  XmNspacing,  5);  n++; 

radio  =  XmCreateRadioBox (  radioform,  cat_label,  wargs,  n)  ; 
XtManageChild (radio) ; 

return  (radio) ; 

}  /*  end  create_radiobox ( )  */ 


/********************************★************************************** 

*  WIDGET  CREATE_S CALE 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  create_scale 

*  Type :  C  Widget 

*  Filename :  visual . c 

*  Parent:  Numerous  Functions 

*<Description> 

*  Creates  a  Scale  Widget. 

*<Called  routines> 

*  none 


*<Parameters> 

*  Formal  declaration: 

*  Widget  create_scale (Widget  w,  char  *scale_label ,  int  *wid, 

*  int  *min,  int  *max,  int  *inc,  int  *dec, 

*  int  *val,  int  *swid,  int  * index, 

*  FctnPointer  cbfctn) 


* 

Input : 

* 

w 

* 

*scale_label 

* 

*wid 

* 

*min 

* 

*max 

* 

*inc 

* 

*dec 

* 

* 

*val 

* 

*swid 

* 

* index 

* 

cbfctn 

the  parent  widget 
the  scale  label  string 
the  width 
the  minimum  value 
the  maximum  value 
the  increment  value 

the  number  of  digits  to  right  of  decimal 
point 

the  current  value  of  scale  variable 
the  scale  width 

the  client  value  for  the  callback 
the  callback  function 


Output : 

scale  -  the  returned  Scale  Widget 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

Widget  create_scale (Widget  w,  char  *scale_label ,  int  *wid,  int  *min, 

int  *max,  int  *inc,  int  *dec,  int  *val,  int  *swid, 
int  *index,  FctnPointer  cbfctn) 

Widget  scaleform,  scale/ 

Arg  wargs [20]  ; 
int  n; 

/* - 

*  -  Create  a  scale,  attach  it  to  the  parent,  and  realize  it. 

*  _ _ 

*/ 

scaleform  =  XtCreateManagedWidget ( "scale" ,  xmFormWidgetClass,  w,  NULL, 
0)  ; 

n  =  0; 

Xt Set Arg  (wargs [n] ,  XmNtitleString, 

XmStringCreateLtoR ( scale_label ,  charset)) ;  n++; 

XtSetArg  (wargs [n] ,  XmNwidth,  *wid) ;  n++; 

XtSetArg  (wargs [n] ,  XmNheight,  80);  n++; 

XtSetArg  (wargs [n] ,  XmNorientation,  XmHORIZONTAL) ;  n++; 

XtSetArg  (wargs [n] ,  XmNprocessingDirection,  XmMAX_ON_RIGHT) ;  n++; 
XtSetArg  (wargs [n] ,  XmNshowValue ,  TRUE);  n++; 

XtSetArg  (wargs [n] ,  XmNminimum ,  *min) ;  n++; 

XtSetArg  (wargs [n] ,  XmNmaximum,  *max) ;  n++; 
if(*inc  >  0) 

{  XtSetArg  (wargs [n] ,  XmNincrement ,  *incl;  n++;  } 
if(*dec  >0) 

{  XtSetArg  (wargs  [n]  ■,  XmNdecimal Points ,  *dec)  ;  n++;  } 

XtSetArg  (wargs [n] ,  XmNvalue,  *val) ;  n++; 

XtSetArg  (wargs [n] ,  XmNscaleWidth,  *swid) ;  n++; 

XtSetArg  (wargs [n] ,  XmNscaleHeight ,  20);  n++; 

scale  =  XmCreateScale  (scaleform,  scale_label,  wargs,  n) ; 

XtAddCallback ( scale ,  XmNvalueChangedCallback,  cbfctn,  index); 
XtManageChild  (scale) ; 

return  (scale) ; 

}  /*  end  create_scale ()  */ 

/*********************************************************************** 

*  VOID  CREATE__CASCADEBUTTON 

***********************-k***'k*'k**'k*-k-k****-k**  +  **-ki'*icie**ic*i'iei'*i'*±  +  *i'i'il.  +  iciei' 

*<Begin> 

*<Identif ication>  Name:  create_cascadebutton 

*  Type :  C  void 

*  Filename :  visual . c 

*  Parent :  Numerous  Functions 

*<Description> 

*  Creates  a  cascadebutton  widget . 


*<Called  routines> 
*  none 
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*  <Parameters  > 

*  Formal  declaration: 

*  void  create_cascadebutton (Widget  parent,  widget  menupane, 

*  char  button_label [] ,  int  nm__key) 


* 

Input : 

* 

parent 

* 

* 

menupane 

* 

* 

button_label  [] 

* 

nm_key 

* 

Output : 

* 

None 

the  widget  to  which  "menupane"  is 
attached 

the  widget  to  which  the  cascadebutton  is 
attached 

the  button  label  string 
the  mnemonic  character 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 


*/ 

void  create_cascadebutton (Widget  parent,  Widget  menupane, 

char  button_label [] ,  int  nm_key) 

{ 

Widget  cascade; 

Arg  wargs [10]; 
int  n; 


*  -  Create  the  cascadebutton,  attach  it  to  the  parent,  and 

*  realize  it. 


*/ 

n  =  0; 

XtSetArg (wargs [n] ,  XmNlabel String,  XmStringCreateLtoR  (button_JLabel , 
charset) ) ;  n++; 

XtSetArg (wargs [n] ,  XmNmnemonic,  nm_key) ;  n++; 

XtSetArg  (wargs [n] ,  XmNsubMenuId,  menupane);  n++; 

cascade  =  XmCreateCascadeButton  (parent,  button_label,  wargs,  n) ; 

XtManageChild  (cascade) ; 

}  /*  end  create_cascadebutton()  */ 


/*****************************************★***************************** 

*  VOID  CREATE_PUSHBUTTONFN 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  create_pushbuttonfn 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  Numerous  Functions 

*<Description> 

*  Creates  a  pushbutton  widget  with  accelerator  key  and  NULL 

*  client. 

*<Called  routines> 

*  cbfctn  -  option  callback  (obtained  from  calling 

*  procedure) 

*<Parameters> 

*  Formal  declaration: 
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* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

★ 


void  createjpushbuttonfn  (Widget  w,  char  *fctn_key, 

char  *fc_key,  char  *button_label , 
int  nm_key/  FctnPointer  cbfctn) ; 

Input : 


w 

*f ctn_key 
*fc_key 
*button_label 
nm__key 
cbfctn 
Output : 

None 


-  the  widget  to  which  the  new  buttons  are 
attached 

-  the  accelerator  text  string 

-  the  accelerator  string 

-  the  button  label  string 

-  the  mnemonic  character 

-  the  callback  function 


*<History> 

*  09/12/94 

* 

*============ 

*<End> 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 


*********************************************************************** 

*/ 

void  create_pushbuttonfn (Widget  w,  char  *fctn_key,  char  *fc_key, 

char  *button_label ,  int  nm_key,  FctnPointer  cbfctn) 

Widget  button; 

Arg  wargs [10]  ; 
int  n; 


/* - 

*  -  Create  the  pushbutton,  attach  it  to  the  parent,  and  realize  it 

n  =  0; 

XtSetArg (wargs [n] ,  XmNlabelString, 

XmStringCreateLtoR (button_label ,  charset));  n++; 

XtSetArg (wargs [n] ,  XmNmnemonic,  nm_key) ;  n++; 

XtSetArg (wargs [n] ,  XmNacceleratorText, 

XmStringCreateLtoR (fctn_key,  charset));  n++; 

XtSetArg (wargs [n] ,  XmNaccelerator ,  fc_key) ;  n++; 
button  =  XmCreatePushButton (w,  button_label ,  wargs,  n) ; 
XtAddCallback  (button,  XmNactivateCallback,  cbfctn,  NULL) ; 
XtManageChild  (button) ; 

}  /*  end  create_pushbuttonf n ( )  */ 


Z******************************************************-!,********.!,***^*** 

*  VOID  CREATE_BUTTONSF 

*<Begin> 

*<Identif ication>  Name :  create^buttonsf 

*  Type:  C  void 

*  Filename :  visual . c 

*  Parent :  Numerous  Functions 

*<Description> 

*  Creates  several  related  pushbutton  widgets  with  accelerator  keys 

*  and  clients. 


*<Called  routines> 

*  cbfctn 

* 

*<Parameters> 


-  option  callback  (obtained  from  calling 
procedure) 
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* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


Formal  declaration: 

void  create_buttonsf (Widget  w,  int  net,  int  index [], 

char  *fctn_key[],  char  *fc_key[]  , 
char  *button_label  []  ,  int  nm_key[], 
FctnPointer  cbfctn) ; 


Input : 
w 

net 

index 

*f ctn_key 

*fc__key 

*  bu 1 1  on_l abe 1 

nm_key 

cbfctn 


the  widget  to  which  the  new  buttons  are 
attached 

the  number  of  new  buttons 

the  array  of  integers  which  should  be 

passed  to  the  callback 

the  array  of  accelerator  text  strings 

the  array  of  accelerator  strings 

the  array  of  button  label  strings 

the  array  of  mnemonic  characters 

the  callback  function 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End>  *********** 


void  create  buttonsf (Widget  w#  int  net,  int  index [] ,  char  *fctn_key[] , 
~  char  *fc_key[],  char  *button_label  []  , 

int  nm_key[],  FctnPointer  cbfctn) 

{ 

Widget  button; 

Arg  wargs [10] ,* 
int  n ,  i ; 


*  -  Create  the  series  of  pushbuttons,  attach  them  to  the  parent,  and 

*  realize  them 

*  - 

*/ 

for  (i=0 ;  icnct ;  i++) 

{  n  =  0; 

Xt Set Arg (wargs  [n] ,  XmNlabelString, 

XmStringCreateLtoR (button_label [i] ,  charset) ) ;  n++; 

Xt  Set  Arg  (wargs  [n]  ,  XmNmnemonic,  nm__key[i]  )  ;  n++; 

Xt Set Arg (wargs [n] ,  XmNacceleratorText , 

XmStringCreateLtoR (fctn_key[i] ,  charset) ) ;  n++; 

XtSetArg (wargs [n] ,  XmNaccelerator ,  fc_key[i]);  n++; 
button  =  XmCreatePushButton(w,  button_label [i] ,  wargs,  n) ; 

Xt AddCal lback  (button,  XmNactivateCallback,  cbfctn,  &index[i]); 
XtManageChild  (button) ; 

}  /*  end  create_buttonsf ( )  */ 

/*****************★***************************************************** 

*  VOID  FILECB 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  fileCB 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent:  create_f ilemenu 
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*<Description> 

*  Decides  whether  or  not  to  call  "fileopen". 


*<Called  routines> 

*  create_jnessagef  -  draws  a  message  in  a  dialog  message  box 

*  and  continues  or  halts  the  current 

*  operation. 

*  fileopen  -  sets  up  the  "File  Select"  menu  for  new 

*  BLIRB  input  or  output  file 


*<Parameters> 


* 

Formal  < 

declaration: 

* 

void 

fileCB (Widget  w. 

* 

Input : 

* 

w 

- 

* 

* 

c 

_ 

* 

call 

_data 

* 

* 

XtPointer  c,  XtPointer  call_data) 

the  ID  of  the  widget  for  which  the 

callback  is  registered 

the  data  passed  to  the  routine 

a  pointer  to  the  callback  structure  which 

contains  information  on  why  the  callback 

occurred 


Output : 
None 


*<History> 

*  09/12/94 

* 

*==—=== _ 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 


*<End> 


*/ 

void  fileCB  (Widget  w,  XtPointer  c,  XtPointer  call^data) 

static  char  *msg[]  -  { 

"The  original  BLIRB  input  data  has  been\n" , 

"  modified  and  not  saved  to  disk.\n", 

"You  will,  destroy  the  current  data  if  you  proceed! \n", 

"  CONTINUE  to  proceed,  CANCEL  to  stop.\n", 

" "  } ; 


filefctn  =  1; 
if  (new__f  ile) 

create_messagef (  menu,  msg,  XmDIALOG_ERROR) ; 
else 

fileopen ( ) ; 

}  /*  end  fileCB ()  */ 

/*********************************************************************** 

*  VOID  FILEOPEN 
*********************************************************************** 
*<Begin> 

*<Identification>  Name:  fileopen 

*  Type :  C  void 

*  Filename :  visual . c 

*  Parent:  fileCB,  okfCB 

*<Description> 

*  Gets  the  BLIRB  input  or  output  file  selection. 

*<Called  routines> 

*  checkf iletypeCB  -  gets  the  input  BLIRB  filename  and  checks 


264 


*  the  file  type  for  input  or  output 

*  cancelCB  -  option  cancellation  callback 

*  Parameters  > 

*  Formal  declaration: 

*  void  fileopen(  void  ) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  fileopen  (void) 

{ 

Widget  fileinfo,  helpbutton; 

XmString  blirb_filename_f ilter,  f ilter_label ,  file__name; 

Arg  wargs [10]  ; 
int  n; 


/* - - - - - - 

*  -  Use  the  Widget  "f ile_dialog"  to  create  a  Bulletin  Board  Dialog 

*  Widget  with  that  ID. 


*/ 

n  =  0; 

XtSetArg (wargs [n] ,  XmNdialogStyle,  XmDIALOG_MODELESS) ;  n++; 

XtSetArg (wargs [n] ,  XmNwidth,  350);  n++; 

XtSetArg (wargs [n] ,  XmNheight,  450);  n++; 

file_dialog  =  XmCreateBulletinBoardDialog (menu,  "Select  File”,  wargs, 
n)  ; 


/* - - - 

*  -  Create  a  File  Selection  Box  Widget  attached  to  "file_dialog” . 


*/ 

blirb_f ilename_f ilter  =  XmStringLtoRCreate (f ilename_f ilter , charset ) ; 
f ilter__label  =  XmStringLtoRCreate  ("Filename  Filter”,  charset); 
file_name  =  XmStringLtoRCreate  ("Selected  Filename”,  charset); 

n  =  0  ; 

XtSetArg  (wargs [n] ,  XmNdirMask,  blirb_f ilename_f ilter) ;  n++; 

XtSetArg  (wargs [n] ,  XmNf ilterLabelString,  f ilter_label) ;  n++; 

XtSetArg  (wargs  [n]  ,  XmNselectionLabelString,  file__name)  ;  n++; 
fileinfo  =  XmCreateFileSelectionBox (f ile_dialog,  "File  Selection", 
wargs,  n) ; 

XtAddCallback  (fileinfo,  XmNokCallback,  checkf iletypeCB,  file_dialog) ; 
XtAddCallback  (fileinfo,  XmNcancelCallback,  cancelCB,  file_dialog) ; 
XtManageChild  (fileinfo) ; 


/* - 

*  -  Free  the  space  used  for  the  XmStrings. 


*/ 

XmStringFree (blirb_filename_f ilter)  ; 
XmStringFree (f ilter_label) ; 
XmStringFree (file_name) ; 
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/* - 

*  -  Remove  the  "Help"  button  from  the  file  selection  box. 


*/ 

helpbutton  =  XmFileSelectionBoxGetChild  (fileinfo, 

XmDIALOG_HELP_BUTTON) 


XtUnmanageChild  (helpbutton) ; 


/* - 

*  -  Realize  the  File  Selection  Box  Widget. 


*/ 

XtManageChild  (f  ile_dialog)  ; 

}  /*  end  fileopenO  */ 


*  VOID  CHECKFILETYPECB 


*<Begin> 

*<Identif ication>  Name :  checkf iletypeCB 

*  Type:  C  void 

*  Filename :  visual . c 

*  Parent:  fileopen 

*<Description> 

*  Gets  the  input  BLIRB  filename  and  checks  the  file  type  for  input 

*  or  output . 


*<Called  routines> 

*  blirb_inout 

* 

* 

*  create_message 

*  getdata 

* 


decides  whether  a  BLIRB  input  or  output 
file  was  selected.  If  neither,  an  error 
flag  is  returned. 

draws  a  message  in  a  dialog  message  box 
gets  the  data  from  a  BLIRB  input  or  output 
file 


*<Parameters> 

*  Formal  declaration: 

*  void  checkf iletypeCB (Widget  w,  XtPointer  c, XtPointer  call_data) 

*  Input : 


* 

* 

* 

* 

* 

* 

* 


w 

c 

call  data 


the  ID  of  the  widget  for  which  the 
callback  is  registered 

the  ID  of  the  widget  to  which  to  attach 
the  message  box  widget 

a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  —(505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 


*<End> 


*/ 

void  checkf iletypeCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

XmSelectionBoxCallbackStruct  *call_value  = 

(XmSelectionBoxCallbackStruct  *) call_data; 
static  char  *error_mesg []  =  { 
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"Selected  Filename  is  neither  Input  nor  Output. \n" , 
"Please  try  another  Filename . \n" , 


*  -  Remove  the  File  Selection  Box  Widget  from  the  screen. 


*/ 

XtUnmanageChild  (f  ile_dialog)  ; 

/* - - - 

*  -  Get  the  selected  BLIRB  data  filename. 


XmStringGetLtoR ( call_value- >value ,  charset,  &file_name) ; 

/* - 

*  -  Check  the  datafile  to  find  out  if  it  is  input,  output,  or 

*  neither. 


*/ 

blirb__inout  ()  ; 


*  If  the  datafile  is  neither  input  nor  output,  display  an  error 

*  message  in  a  box.  If  the  datafile  is  either  input  or  output, 

*  then  get  the  data  from  the  file. 


*/ 

if (badfile) 

create__message  (  (Widget)  c,  error_mesg,  XmDIALOG_ERROR)  ; 
else 

{  new_file  =  FALSE; 

def_f ile  =  FALSE;  /*_ Default  data  file  not  used  */ 

area_order  =  FALSE; 
regn_order  =  FALSE; 
getdata ( ) ; 

}  /*  end  checkfiletypeCB ()  */ 


/*********************************************************************** 

*  VOID  INITCB 
**************************************  * * ******************************* 

*<Begin> 

*<Identif ication>  Name:  initCB 

*  Type :  C  void 

*  Filename :  visual . c 

*  Parent :  main 


*<Description> 

*  Initializes  GL  graphics  modes. 

*<Called  routines> 

*  None 


*<Parameters> 

*  Formal  declaration: 

*  void  initCB (  Widget  w;  XtPointer  c,  XtPointer  call_data) 


*  Input : 

*  w 

* 

*  c 


the  ID  of  the  widget  for  which  the 
callback  is  registered 

a  pointer  to  any  input  data  to  be  given  to 
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* 

* 

* 

* 

★ 

* 

*- 


call  data 


the  routine 

a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  initCB  (Widget  w,  XtPointer  c,  XtPointer  call  data) 


{ 


GLXwinset (XtDisplay (w) ,  XtWindow(w) ) ; 

getsize(  kxsize,  &ysize  ); 

xsize  -=s  109; 

ysize  -=  80; 

ysizeO  =  ysize; 

sfac  =  1.0; 

if  (getgdesc  (GD_BITSJSTORM_ZBUFFER)  ==  0) 

{  printf ( "This  machine  does  not  have  a  hardware  zbuf fer\n" ) ; 
exit (0) ; 

} 

shademodel (FLAT) ; 
mmode (MVIEWING) ; 
backface (TRUE) ; 
zbuf f er  (FALSE) ; 

subpixel (TRUE) ; 

1 ine smooth (SML_SMOOTHER) ; 
pnt smooth (SMP_SMOOTHER) ; 
polysmooth (PYSM_ON) ; 

}  /*  end  initCB ()  */ 

/*******************************************************i.***  +  +  ****  +  +  +  :A.  +  ^ 

*  VOID  EXITCB 
*************************************  ********************************** 
*<Begin> 

*<Identif ication>  Name:  exitCB 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent:  create_f ilemenu 

*<Description> 

*  Closes  the  windows  and  exits  the  program. 

*<Called  routines> 

*  create__messagef  -  draws  a  message  in  a  dialog  message  box 

*  and  continues  or  halts  the  current 

*  operation. 

*  <Parameters > 

*  Formal  declaration: 

*  void  exitCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 


268 


* 

*  c 

* 

*  call_data 

* 

* 

*  Output : 

*  None 


callback  is  registered 

a  pointer  to  any  input  data  to  be  given  to 
the  routine 

a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred .... 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End>.  ******************* 


void  exitCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

static  char  *msg[]  =  { 

"The  original  BLIRB  input  data  has  been\n", 
11  modified  and  not  saved  to  disk.\n" , 

"Do  you  still  wish  to  exit  the  program? \n", 

»  CONTINUE  to  proceed,  CANCEL  to  stop.\n" , 

„H  }. 


filefctn  =  2; 


if (new_f ile) 

create_messagef (  menu,  msg,  XmDIALOG_ERROR) ; 
else 

{  XtCloseDisplay  (XtDisplay  (w)  )  ; 
exit (0) ; 

}  /*  end  exitCB ()  */ 


^  *  VOID  EXPOSECB 


*<Begin> 

*<Identif ication> 
* 

* 

* 


Name:  exposeCB 

Type :  C  void 

Filename:  visual. c 

Parent :  main 


*<Description> 

*  Called  when  the  window  is  uncovered  or  moved. 

*<Called  routines> 

*  drawscene  -  Plots  the  3-D  BLIRB  grid  points,  albedo 

*  areas,  aerosol  regions,  and  the  output 

*  flux. 


*<Parameters> 

*  Formal  declaration: 

*  void  exposeCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 


*  Input : 

*  w 

*  c 

* 

*  call  data 


the  ID  of  the  widget  for  which  the 
callback  is  registered 

a  pointer  to  any  input  data  to  be  given  to 
the  routine 

a  pointer  to  the  callback  structure  which 
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contains  information  on  why  the  callback 
occurred 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  exposeCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

/* - 

*  -  Redraw  the  window  and  redraw  the  scene  in  it. 

*  _ _ _ 

*/ 

GLXwinset  (XtDisplay (w) ,  XtWindow(w) ) ; 
drawscene () ; 

}  /*  end  exposeCB ()  */ 

/*********************************************************************** 
*  VOID  RESIZECB 


*<Begin> 

*<  Identification 


Name 

Type 

Filename 

Parent 


resizeCB 
C  void 
visual . c 


^Description 

f  Called  when  the  window  is  resized. 


*<Called  routines> 
*  drawscene 


-  Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 


*<Parameters> 

*  Formal  declaration: 

*  void  resizeCB  (  Widget  w,  XtPointer  c,  XtPointer  call  data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -a  pointer  to  any  input  data  to  be  given  to 

*  the  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  resizeCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 
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GlxDrawCal IbackS truct  *call_value  = (GlxDrawCallbackStruct  *)call_data; 
float  ysizeO,  fac; 

ysizeO  =  ysize; 


/* - 7" 

*  -  Resize  the  window  and  redraw  it. 


*/ 

GLXwinset  (XtDisplay (w) ,  XtWindow(w) ) ; 
viewport  (0,  (Screencoord)  cal l_value -> width- 1 , 

0,  (Screencoord)  call_value- >height-l) ; 


/* - 

*  -  Get  the  window  size. 


*/ 

getsize (  &xsize,  &ysize  ); 

sfac  =  (float)ysize  /  (float) ysizeO; 


/* - 7 - 

*  -  Redraw  the  scene  in  the  window. 


*/ 

label_obsc  =  FALSE; 
obsc ( ) ; 
draws cene ( ) ; 

}  /*  end  resizeCBO  */ 


VOID  INPUTCB 


*<Begin> 

*<  Identification 
* 

* 

* 


Name :  input CB 

Type :  C  void 

Filename :  visual . c 

Parent :  main 


*<Description> 

*  Handles  all  types  of  input  from  the  GL  widget.  The  KeyRelease 

*  handles  the  ESCape  key,  so  that  it  exits  the  program.  When 

*  Buttonl  is  pressed,  the  mode  is  set,  and  the  mouse  position  is 

*  recorded.  As  long  as  the  mouse  is  in  motion,  the  relative 

*  position  of  the  mouse  is  stored,  and  the  scene  is  redrawn.  When 

*  the  button  is  released,  this  mode  is  reset,  and  motion  is  stopped. 


*<Called  routines> 

*  area_jfix 

*  r  egn__f  ix 

*  reset 

*  draws cene 

* 

* 

*_____==____====== 


rectifies  the  Albedo  area  location 
rectifies  the  BLIRB  Region  location 
resets  the  values  of  "mov" 

Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 


*<Parameters> 

*  Formal  declaration: 

*  void  inputCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  the  input  from  the  calling  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 
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*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*7 

void  input CB {Widget  w,  XtPointer  c,  XtPointer  call_data) 

GlxDrawCallbackStruct  *call__value  = (GlxDrawCallbackStruct  *)call_data; 
char  buffer  [1] ; 

KeySym  keysym; 

static  Boolean  model  =  RELEASED; 
static  Boolean  mode3  =  RELEASED; 

static  int  org_left_y,  left_y,  org__left_x,  left_x; 
static  int  org_right_y,  right_y,  org_right_x,  right_x; 
int  i ; 

float  del,  chg; 

switch ( cal l_value - >event- > type) 

{  case  KeyRelease : 

/* - 

*  If  a  key  on  the  keyboard  was  released,  check  to  see  if  it  was  the 

*  ESCape  key.  It  is  necessary  to  convert  the  keycode  to  a  keysym 

*  before  it  is  possible  to  check  if  it  is  an  ESCape. 

*  _ . _ _  _  _ _ _  _ _ _ _ 

*/ 

if (XLookupString ( (XKeyReleasedEvent  *) 

( cal l_value - >event ) ,  buffer,  1,  &keysym,NULL)  ==  1) 

{  if (keysym  ==  (KeySym) XK_Escape) 
exit (0) ; 

} 

break ; 


case  ButtonPress: 

/* - - - 

*  If  a  mouse  button  was  pressed,  find  out  if  it  was  the  left  or 

*  right  button  and  record  the  current  mouse  position. 

*  - - - - - - - 

*/  ^ 

switch  ( call_value -  >event -  >xbutton .  button) 

{  case  Buttonl : 

model  =  PRESSED; 

org_left_x  =  left_x  =  call_value- >event- >xbutton . x; 
org_left_y  =  left__y  =  call_value~>event->xbutton .  y; 
break; 

case  Button3 : 

mode 3  =  PRESSED; 

org_right_x  =  right_x  =  call__value->event->xbutton.x; 
org_right_y  =  right_y  =  call_value->event->xbutton.y; 
break ; 

} 

/* - - - 

*  -  Get  the  size  of  the  GL  window  just  in  case  it  has  changed. 

*/ 
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getsize(  &xsize,  &ysize  ); 

sfac  =  (float)ysize  /  (f loat) ysizeO ; 

break ; 

case  ButtonRelease : 


-  If  a  mouse  button  was  released,  find  out  if  it  was  the  left  or 

right  button.  If  it  was  the  left  button  and  the  user  is  moving 
the  position  of  the  Sun-Earth  intersection  point  or  changing  the 
position  of  an  Albedo  area,  restore  the  scene  parameters  to 
those  in  effect  before  moving  the  Sun. 


switch ( call_value - >event - >xbut ton . button) 

{  case  Buttonl : 

model  =  RELEASED; 

if ( (move_sun  |  j  move_area)  j  j  (move_regnh  | [  move_regnv)  | | 
(move__f  larh  |  |  move_f  larv)  |  |  (move_srchh  |  |  move_srchv)  ) 
{  if  (move_sun) 

move_sun  =  FALSE; 
else  if (move_area) 

{  move_area  =  FALSE; 

label_obsc  =  cur_lab_obsc ; 
area_fix{) ; 

else  if (move_regnh) 

{  move__regnh  =  FALSE; 

view_axis[0]  =  view_axis [2]  =  FALSE; 

view_axis [1]  =  TRUE; 
reset  0 ; 

} 

else  if (move_regnv) 

{  move_regnv  =  FALSE; 

label_obsc  =  cur_JLab_obsc; 
minor_grid  =  cur_minor_grid; 
regn_f ix ( ) ; 

else  if (move_f larh) 

{  move_flarh  -  FALSE; 

view_axis[0]  =  view_axis [2]  =  FALSE; 
view_axis [1]  =  TRUE; 
reset  ()  ; 

} 

else  if (move_f larv) 

{  move_f larv  =  FALSE; 

label_obsc  =  cur_lab_obsc ; 
minor  grid  =  cur_minor_grid; 

} 

else  if (move_srchh) 

{  movers rchh  =  FALSE; 

view_axis[0]  =  view_axis [2]  =  FALSE; 

view_axis [1]  =  TRUE; 
reset ( ) ; 

} 

else  if (move_srchv) 

{  move_srchv  =  FALSE; 

label_obsc  =  cur_lab_obsc; 
minor  grid  =  cur_minor__grid; 

}  " 

if  (  ( !move_siin  &&  !move_area)  && 

(Imove_regnh  &&  !move_regnv)  && 
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(!move_flarh  &&  !move_flarv)  && 
(!move_srchh  &&  ! movers rchv ) ) 

{  mov->magf actor  =  fac; 
mov- >ndx  =  nndx; 
mov->ndy  =  nndy; 
mov->tdx  =  ttdx; 
mov->tdy  =  ttdy; 

for(i=0;  i<3;  i++) 

view_axis[i]  =  temp_axis [i] ; 


Redraw  the  scene  in  the  window. 


draws cene ( ) ; 

} 

break; 


case  Button3 : 
mode3  =  RELEASED; 
break ; 

} 

break ; 


/* 

* 

* 

* 

* _ __ _ _  ___ 

*/ 

{  org_left_x  =  left_x; 

left_x  =  call_value->event->xbutton.x; 

chg  =  0 . 01067* (float) (lef t_x-org_lef t_x)  /  (sfac*org_magfactor) ; 
if (move_sun) 

sun_earth[0]  +=  chg  +  axis_pts [0] [0]  ; 
else  if (move_area) 

{  area_alx[cur_area]  +=  chg  +  axis_pts [0] [0] ; 
area_ahx [cur_area]  +=  chg  +  axis_pts [0] [0] ; 

del  =  area_ahx  [cur_area]  -  area__alx  [cur_area]  ; 
if (area_alx [cur_area]  <  0.0) 

{  area_alx  [cur__area]  =  0.0; 
area_ahx [cur_area]  =  del; 

if  (area__ahx  [cur_area]  >  regn_rh[0]  [0]) 

{  area_ahx [cur_area]  =  regn_rh [0] [0] ; 

area_alx [cur_area]  =  area_ahx [cur_area]  -  del; 


else  if (move_regnh  |  j  move_regnv) 

{  regn_rl[0] [cur_regn]  +=  chg  +  axis_pts [0] [0]  ; 
regn_rh[0] [cur__regn]  +=  chg  +  axis_pts [0] [0]  ; 

del  =  regn_rh[0] [cur_regn]  -  regn_rl [0] [cur_regn] ; 
if (regn_rl [0] [cur_regn]  <  0.0) 

{  regn_rl [0] [cur_regn]  =  0.0; 
regn_rh[0] [cur_regn]  =  del; 


case  MotionNotify : 

if (model  ==  PRESSED  &&  call_value- >event- >xmotion . state  & 

ButtonlMask) 


If  the  mouse  is  moving  while  the  left  button  is  pressed,  either 
change  the  viewpoint  or  change  the  Sun_Earth  intersection  point 
by  the  relative  change  in  the  mouse  position. 
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i f ( regn_rh [ 0 ] [ cur_regn]  >  regn_rh [ 0 ] [ 0 ] ) 

{  regn_rh[0] [cur_regn]  =  regn_rh[0] [0] ; 

regn_rl [0] [cur_regn]  =  regn_rh [0] [cur_regn]  -  del; 


else  if (move_flarh  | |  move_flarv) 

f lar_xf lar [cur_f lar]  +=  chg  +  axis_pts [0] [0] ; 
else  if (move_srchh  | |  move_srchv) 

srch_xsrch  +=  chg  +  axis_pts [0] [0] ; 
else 

mov-  >ndx  =  mov->ndx  -  (left__x  -  org_left__x)  ; 
org_left_y  =  lef  t__y ; 

left  y  =  call  va lue -> event ->xbutt on. y; 

chg  =  0.01067*  (float)  (lef t_y-org_lef t_y)  /  (sfac*org_magfactor) ; 
if  (move__sun) 

sun_earth [1]  -=  chg  +  axis_pts [1] [0] ; 

else  if (move_area) 

{  area_aly [cur_area]  -=  chg  +  axisjpts [1]  [0]  ; 
area_ahy [cur_area]  -=  chg  +  axis_pts [1] [0]; 

dal  =  area  ahy [cur _ area]  _  area _ aly [cur _ area] ; 

if (area_aly [cur_area]  <  0.0) 

{  area_aly [cur_area]  =  0.0; 
area_ahy [cur_area]  =  del; 

if (area_ahy [cur_area]  >  regn_rh [1] [0] ) 

{  area_ahy [cur_area]  =  regn_rh [1] [0] ; 

area_aly [cur_area]  =  area_ahy [cur_area]  -  del; 

else  if (move_regnh) 

{  regn  rl [1]  [cur_regn]  -=  chg  +  axis  pts  [1]  [0] ; 
regn_rh [1] [cur_regn]  -=  chg  +  axis_pts [1] [0] ; 

del  =  regn_rh [1] [curjregn]  -  regn_rl [1] [cur_regn]; 
if (regn_rl [1] [cur_regn]  <  0.0) 

{  regn_rl [1] [cur_regn]  =  0.0; 
regn_rh[:i]  [cur_regn]  -  del; 

if (regn_rh [1] [cur_regn]  >  regn_rh[l] [0]) 

{  regn_rh [1] [cur_regn]  =  regn_rh[l] [0]; 

regn_rl [1] [cur_regn]  =  regn_rh [1] [cur_regn]  -  del; 


else  if (move_regnv) 

{  regn_rl [2]  [cur_regn]  -=  chg  +  axis_pts [2]  [0] ; 
regn_rh[2] [cur_regn]  -=  chg  +  axis  pts [2] [0] ; 

del  =  regn_rh[2] [cur_regn]  -  regn_rl [2] [cur_regn] ; 
if (regn_rl [2] [cur_regn]  <  0.0) 

{  regn_rl [2] [cur_regn]  =  0.0; 
regn_rh[2] [cur_regn]  =  del; 

i f ( regn_rh [ 2 ] [ cur_r egn]  >  regn_rh [ 2 ] [ 0 ] ) 

{  regn_rh[2] [cur_regn]  =  regn_rh[2] [0] ; 

regn_rl [2] [cur_regn]  =  regn_rh[2] [cur_regn]  -  del; 

else  if (move_flarh) 

f  lar_yf lar  [cur_f lar]  -=  chg  +  axis_jpts  [1]  [0]  ; 
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else  if (move_f larv) 

f lar_zflar [cur_f lar]  -=  chg  +  axis_pts[2] [0]  ; 
else  if  (move__srchh) 

srch_ysrch  -=  chg  +  axis_pts [1] [o] ; 
else  if (move_srchv) 

srch_zsrch  -=  chg  +  axis_jpts  [2]  [0]  ; 
else 

{  mov- >ndy  =  mov->ndy  +  (left_y  -  org_left  y) ; 
reset  flag  =  FALSE; 

>}  .  ' 

else  if (mode3  —  PRESSED  &&  call_value- >event- >xmotion . state  & 

Button3Mask) 

- - 

*  If  the  mouse  is  moving  while  the  right  button  is  pressed, 

*  translate  the  scene  by  the  relative  change  in  mouse  position. 

*/ 


/*- 
* 

*  _ 

*/ 

drawscene  () ; 
break ; 

,  } 

}  /*  end  input CB ( )  */ 


{  org_right_x  =  right_x; 
right_x  =  call_value- >event- >xbutton . x; 
mov->tdx  =  mov- >tdx  -  (right_x  -  org_right_x) / 

org_right_y  =  rightjy; 

right_y  =  call_value->event->xbutton.y; 

mov->tdy  =  mov->tdy  +  (rightly  -  org_right_y) ; 

reset_flag  =  FALSE; 


--  Redraw  the  scene  in  the  window. 


/*  ** 
★ 


**********,1:*************************.*^*^^ 

VOID  RESETCB 


*********** 


********************************* 

*<Begin> 

*<Identif ication>  Name : 

*  Type: 

Filename : 

*  Parent : 

*___ - 


resetCB 
C  void 
visual . c 
create  menubar 


*<Description> 


Resets  the  magnification  factor  and  eye  position  to  the  oricrinal 
*  values  and  redraws  the  scene. 

*==== _ 


*<Called  routines> 

*  reset 

* 

*  drawscene 

* 

* 


resets  the  viewing  and  plot  parameters  to 
the  original  values 

-  Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 


*<Parameters> 

*  Formal  declaration: 

*  void  resetCB (  Widget  w,  XtPointer 

*  Input : 


XtPointer  call__data) 
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call  data 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  a  pointer  to  any  input  data  to  be  given  to 
the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  resetCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

reset  { ) ; 

reset_flag  =  TRUE; 
drawsceneO; 

}  /*  end  resetCB ()  */ 

/*********************************************************************** 

*  VOID  SUN_POSCB 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  sun _posCB 

*  Type:  C  void 

*  Filename :  visual . c 

*  Parent :  create_sunmenu 

*<Description> 

*  Sets  a  flag  to  initiate  moving  the  point  where  the  line  from  the 

*  sun  intersects  the  ground. 


*<Called  routines> 

*  reset 

* 

*  drawscene 


-  resets  the  viewing  and  plot  parameters  to 
the  original  values 

-  Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 


*<Parameters> 

*  Formal  declaration: 

*  void  sun_posCB(  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  the  input  data  from  the  calling  routine 

*  call  data  -  a  pointer  to  the  callback  structure  which 

*  “  contains  information  on  why  the  callback 

*  occurred 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 
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*<End> 

*****************************+*****************+*******+**1'********++** 

*/ 

void  sun _posCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 
int  i ; 


m°ve_sun  =  TRUE/ 

/* - - - - - 

*  -  Save  the  current  viewing  axis  flags  and  choose  a  +Z  axis  option. 

*/ 

for (i=0;  i<3;  i++) 

temp_axis[i]  =  view_axis [i] ; 

view_axis [0]  =  view_axis [1]  =  FALSE; 
view_axis[2]  =  TRUE; 

/* - 

*  -  Save  the  current  "mov"  parameters. 

*  _ __ _ ________ 

*/ 

fac  as  mov- >magf actor; 
nndx  =  mov- >ndx; 
nndy  =  mov->ndy; 
ttdx  =  mov- >tdx; 
ttdy  =  mov->tdy; 


/* - 

*  ---  Reset  the  viewpoint  and  redraw  the  scene  in  the  window. 

*  _ _  _ _ _ 

*/ 

reset  ()  ; 
drawscene  ()  ; 

}  /*  end  sun_jposCB()  */ 


*  VOID  ZOOMCB 

*<Begin> 


*<Identif ication> 
* 

* 

* 


Name :  zoomCB 

Type :  C  void 

Filename :  visual . c 

Parent :  create  zoommenu 


*<Description> 

*  Changes  the  magnification  factor  by  5%  and  redraws  the  scene. 


*<Called  routines> 

*  drawscene 

* 

* 


Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 


*<Parameters> 

*  Formal  declaration: 

*  void  zoomCB (  Widget  w,  XtPointer  c,  XtPointer  call  data) 

*  Input :  — 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

c  “  an  index  to  indicate  whether  the  zoom 

*  direction  is  in  (1)  or  out  (2) 


278 


*  call_data 

* 

* 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  zoomCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

int  *n  =  ( int  * ) c ; 

if (*n  ==  1)  /*  Zoom  In  */ 

mov- >magf actor  =  1.05  *  mov- >magf actor ; 
else  if (*n  ==  2)  /*  Zoom  Out  */ 

mov- >magf actor  =  mov- >magf actor  /  1.05; 


-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


draws cene () ; 

}  /*  end  zoomCB ()  */ 


/*********************************************************************** 

*  VOID  MINOR_GRIDCB 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name :  minor_gridCB 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent :  create_viewmenu 

*<Description> 

*  Turns  on/off  the  minor  grid  lines  and  redraws  the  scene. 

*<Called  routines> 

*  drawscene  -  Plots  the  3-D  BLIRB  grid  points,  albedo 

*  areas,  aerosol  regions,  and  the  output 

*  flux. 


*  <Parameters  > 


Formal  declaration: 

void  minor_gridCB (  Widget  w,  XtPointer  c, 
Input : 


XtPointer  call  data) 


call  data 


Output : 
None 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  a  pointer  to  any  input  data  to  be  given  to 
the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 
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*/ 

void  minor_gridCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

minor_grid  =  !minor_grid;  /*  Minor  Grid  On/Off  */ 

drawscene () / 

}  /*  end  minor_gridCB ( )  */ 


*  VOID  TRAN'S CB 


*<Begin> 

*<  Identification 


Name 

Type 

Filename 

Parent 


transCB 
C  void 
visual . c 
create  viewmenu 


*<Description> 

*  Turns  on/off  the  transparent  color  mode  for  the  aerosol  regions 

*  and  redraws  the  scene. 

*<Called  routines> 

*  drawscene 


Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 


* 

* 

*<Parameters> 

*  Formal  declaration: 

void  transCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 


w 


call  data 


-  the  ID  of  the  widget  for  which  -the 
callback  is  registered 

-  a  pointer  to  any  input  data  to  be  given  to 
the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  transCB  (Widget  w,  XtPointer  c,  XtPointer  call  data) 


Output : 
None 


{ 

transparency  =  ! transparency; 
drawscene () ; 

}  /*  end  transCB ()  */ 


/*  Transparency  On/Off 


>/ 


/*********************************************************************** 

*  VOID  AXISCB 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  axisCB 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent:  create  axismenu 


*<Description> 
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* 

* 


Switches  to  the  selected  Axis  coming  out  of  the  screen  in  the  plot 
and  redraws  the  scene. 


*<Called  routines> 

*  reset 

* 

*  drawscene 

* 

* 


-  resets  the  viewing  and  plot  parameters  to 
the  original  values 

-  Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 


*<Parameters> 

*  Formal  declaration: 

*  void  axisCB (  Widget  w 

*  Input : 

*  w 

* 

*  c 

★ 

*  call_data 

* 

* 


,  XtPointer  c,  XtPointer  call_data) 

the  ID  of  the  widget  for  which  the 
callback  is  registered 
an  index  to  indicate  the  viewing  axis 
choice 

a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 


*/ 

void  axisCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

int  *n  =  (int  *)c; 
int  i; 


*  -  Select  the  viewing  axis. 


*/ 

for  (i=0;  i<3;  i++) 
if (*n  ==  i+1) 

view_axis [i]  =  TRUE; 
else 

view_axis [i]  =  FALSE; 


/* - 

*  -  If  a  "reset"  is  required,  reset  the  viewing  options. 


*/ 

if (reset_flag) 
reset  ()  ; 


/* - 

*  -  Redraw  the  scene 


*/ 

drawscene ( ) ; 

}  /*  end  axisCB ()  */ 

/*********************************************************************** 
*  VOID  SUNCB 
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*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  sunCB 

*  Type:  C  void 

*  Filename:  visual . c 

*  Parent :  create_s unmenu 

*  <Description> 

*  Turns  on/off  the  plotting  of  the  Sun  and  redraws  the  scene. 
*<Called  routines> 

*  drawscene  -  Plots  the  3-D  BLIRB  grid  points,  albedo 

*  areas,  aerosol  regions,  and  the  output 

*  flux. 


*  <Parameters  > 


* 

Formal 

declaration : 

* 

void 

sunCB (  Widget  w 

* 

Input : 

* 

w 

- 

* 

* 

c 

- 

* 

* 

call 

_data 

* 

* 

XtPointer  c,  XtPointer  call_data) 

the  ID  of  the  widget  for  which  the 
callback  is  registered 

a  pointer  to  any  input  data  to  be  given  to 
the  routine 

a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*  =  =  =  =  =  =  =  =  =  —  —  =  : 
*<History> 

*  09/12/94 

* 

*  =  5==  =  =  ==  =  =  =  =  =  ; 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  sunCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

sun_j?lot  =  ! sun _j>lot;  /*  plot  the  Sun  -  On/Off  */ 

drawscenef)  ; 

}  /*  end  sunCB ()  */ 


/*********************************************************************** 

*  VOID  OBSCCB 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  obscCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  create_viewmenu 

*<Description> 

*  Turns  on/off  the  obscuration  and  albedo  region  labels  and  redraws 

*  the  scene. 


*<Called  routines> 

*  obsc 

* 

*  drawscene 

* 

* 

* ______________________ 


sets  up  rowcolumn  widget  with  names  of 
materials . 

Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 
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*  <Parameters  > 

*  Formal  declaration: 

*  void  obscCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 


* 

★ 

* 

* 

* 

* 

* 

* 


Input : 
w 

c 

call  data 


the  ID  of  the  widget  for  which  the 
callback  is  registered 

a  pointer  to  any  input  data  to  be  given  to 
the  routine 

a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End>  **************** 


void  obscCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

^  label_obsc  =  ilabel_obsc;  /*  Aerosol  Definition  On/Off*/ 

obsc  ()  ; 
drawscene ( ) ; 

}  /*  end  obscCB ()  */ 


/*********************************************************************** 

*  VOID  HELP_GENERALCB 
*********************************************************************** 

*<Begin> 

*< Identification  Name:  help_generalCB 

*  Type :  C  void 

*  Filename :  visual . c 

*  Parent :  create_helpmenu 

*<Description> 

*  Displays  general  VISUAL  information. 

*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 


*<Parameters> 

*  Formal  declaration: 

*  void  help_generalCB (  Widget  w,  XtPointer  c, 

*  XtPointer  call  data) 


* 

* 

* 

* 

* 

* 

* 

* 


Input : 
w 

c 

call  data 


the  ID  of  the  widget  for  which  the 
callback  is  registered 

a  pointer  to  any  input  data  to  be  given  to 
the  routine 

a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 
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*<End> 


*/ 

void  help_generalCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 
static  char  *help_str[]  =  { 

"VISUAL  provides  a  graphical  user  interface  (GUI)  for\n" , 
"selecting  BLIRB8  inputs  and  graphically  display  the  BLIRB8\n"( 
"output  radiative  flux  fields  in  an  interactive  mode.\n". 

It  II 

l 

"It  graphically  displays  the  entire  physical  space  including : \n" , 
"  *  surface  albedo  areas  (in  shades  of  green) An", 

"  *  aerosol  regions  (various  transparent  colors), \n", 

"  *  flare  positions  (in  red)  An", 

"  *  searchlight  position  (in  white) ,\n", 

"  *  relative  position  of  Sun  (in  yellow),  and\n", 

"  *  BLIRB8  output  radiative  flux  fields  (red  and  white)  An", 

it  h 

/ 

"Optionally,  text  widgets  may  be  displayed  depicting  An" , 

"  *  the  current  BLIRB8  input/output  filename,\n", 

"  *  the  surface  albedo  areas  information ,\n" , 

"  *  the  aerosols  regions  information,  and\n", 

"  *  the  output  radiative  flux  field  information  An", 

it  n 

f 

"All  input  parameters  (except  a  filename  for  saving  the\n", 
"inputs)  can  be  selected  using  only  the  mouse.  The  keyboard\n", 
"may  be  used  for  hot-keys  and  must  be  used  for  specifying  a\n" , 
"Savefile  Name.\n", 

it  ti 


"VISUAL  uses  the  Silicon  Graphics  Inc.  (SGI)  IRIS  Graphics\n", 
"Library  for  the  display  graphics  and  X- Windows /Mot if  for  the\n" , 
"menus  and  message  boxes  of  the  GUI.  This  software  requires\n", 
"an  SGI  workstation  with  at  least  128  Mbytes  of  RAM  for\n", 
"program  execution. \n" , 

It  It 

/  .- 

"NOTE:  The  <Esc>  key  is  the  ABORT  PROGRAM  key.\n", 

It  It  \  . 


create_message  (w,  help_str,  XmD I ALOG_INFORMAT I ON ) ; 

}  /*  end  help_generalCB ()  */ 

/*********************************************************************** 

*  VOID  HELP_FILECB 
*********************************************************************** 
*<Begin> 

*<  Identification  Name :  help^f ileCB 

*  Type :  C  void 

*  Filename:  visual . c 

*  Parent :  create_helpmenu 

*  description 

*  Displays  File  Options  information. 

*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 

*<Parameters> 

*  Formal  declaration: 

*  void  help_f ileCB (  Widget  w,  XtPointer  c,  XtPointer  call  data) 

*  Input :  — 

*  w  ~  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 
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*  c 

* 

*  call_data 

* 

* 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  help_f ileCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

static  char  *help__str[]  =  { 

"Create  New  File:\n", 

"This  option  checks  for  unsaved  modifications  to  the  initial\n", 
"input  parameter  values.  If  false,  default  input  values  are\n" , 
"loaded.  If  true,  a  message  will  appear  warning  that\n", 
"continuing  will  delete  all  previous  changes.  A  choice  of\n", 
"whether  to  continue  or  cancel  is  given.  If  the  user\n" , 
"continues,  the  default  BLIRB8  input  values  are  loaded. \n", 

H  II 

/ 

"Open  File:\n" , 

"This  option  checks  for  unsaved  modifications  to  the  initial\n", 
"input  parameter  values.  If  true,  a  message  will  appear\n", 
"warning  that  continuing  will  delete  all  previous  changes.  A\n" , 
"choice  of  whether  to  continue  or  cancel  is  given.  This\n", 
"option  creates  a  File  Selection  Box  with  the  file  names  in\n" , 
"the  current  directory  filtered  according  to  the  \ "Filename \n" , 
"Filter\".  Use  the  scrollbar  on  the  right  side  of  the  File\n", 
"Selection  Box  to  scroll  the  list  of  file  names.  Select  a\n" , 
"file  to  process  and  the  inputs  from  the  file  are  loaded. \n", 

h  n 

/ 

"Save  File:\n", 

"This  option  causes  the  current  inputs  to  be  saved  to  the\n", 
"currently  selected  file  name,  after  renaming  the  original \n" , 
"input  file  to  a  backup  file  with  \".bak\"  appended  to  the\n", 
"file  name.\n", 

n  n 

/ 

"Save  File  As:\n", 

"This  option  prompts  for  a  file  name  for  saving  the  current \n " , 
"BLIRB8  input  parameters . \n" , 

n  H 

/ 

"Exit  Program: \n" , 

"This  option  causes  the  VISUAL  program  to  terminate.  If\n" , 

"any  BLIRB8  input  parameters  were  modified  and  not  saved  a\n", 
"warning  message  will  appear  allowing  the  user  to  cancel\n", 

"or  continue  and  loose  the  modifications . \n" , 

""  }  ; 

create_message  (w,  help_str,  XmDIALOG_INFORMATION) ; 

}  /*“  end  help_f ileCB ()  */ 

/*********************************************************************** 

*  VOID  HELP_RESETCB 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name :  help_resetCB 


-  a  pointer  to  any  input  data  to  be  given  to 
the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


285 


*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  create_helpmenu 

*<Description> 

*  Displays  Reset  information. 

*  ==  ______  =  =  ==  =  =  =  =  =;=  =  =  =  _____________  _________ _ 


*<Called  routines> 

*  create_message 


-  draws  a  message  in  a  dialog  message  box 


*<Parameters> 

*  Formal  declaration: 

*  void  help_resetCB (  Widget  w,  Xt Pointer  c, 

*  Input : 


XtPointer  call_data) 


* 

* 

* 

* 

* 

* 

* 


w 

c 

call  data 


the  ID  of  the  widget  for  which  the 
callback  is  registered 

a  pointer  to  any  input  data  to  be  given  to 
the  routine 

a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

**********************************************************+*********+** 

*/ 

void  help_resetCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

static  char  *help_str[]  =  { 

"Reset :\n", 

II  II 

/ 

"Selecting  this  option  causes  all  current  rotation  and/or\n", 
"translation  of  the  BLIRB8  space  display  to  be  removed.  The\n", 
"display  is  reset  to  a  view  along  an  axis  looking  at  the\n", 
"center  of  the  BLIRB8  space. \n", 

n  it  \ . 


create_message  (w,  help_str,  XmDIALOG_INFORMATXON) ; 

}  /*  end  help_resetCB ()  */ 

/*********************************************************************** 

*  VOID  HELP_ROTATIONCB 
**********************************************************************■), 
*<Begin> 

*<Identif  ication>  Name:  help__rotationCB 

Type :  C  void 

Filename:  visual . c 

Parent :  create_helpmenu 

*<Description> 

*  Displays  BLIRB8  Space  Rotation  information. 

*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 

*<Parameters> 

*  Formal  declaration: 


* 

* 

* 
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* 

* 

★ 

* 

* 

* 

* 

* 

* 

* 

* 

* 


void  help_rotationCB (  Widget  w,  XtPointer  c, 

XtPointer  call_data) 

Input : 

w  -  the  ID  of  the  widget  for  which  the 

callback  is  registered 

c  -  a  pointer  to  any  input  data  to  be  given  to 

the  routine 

call_data  -  a  pointer  to  the  callback  structure  which 

contains  information  on  why  the  callback 
occurred 

Output : 

None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End>  ************* 


void  help_rotationCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 


static  char  *help_str[]  =  { 

" BLIRB8  Space  Rotation :\n". 

It  M 

"All  rotations  of  the  BLIRB8  space  are  performed  holding  the\n" , 
"left  mouse  button  down  while  moving  the  mouse.  The  display\n" , 
"is  an  \ " ortho \"  projection  such  that  everything  in  the  BLIRB8\n" , 
"space  is  projected  using  reasonably  parallel  projection  lines\n", 
"onto  an  observer  position  plane.  This  type  of  projection\n" , 
"helps  to  conserve  length  and  angular  relationships  between\n" , 
"the  objects  in  the  display  (near  objects  do  not  appear  much\n" , 
"larger  than  distant  objects).  Unfortunately,  with  this  type\n", 
"of  projection  the  observer  cannot  select  arbitrary  positions \n" , 

" around  the  BLIRB8  space  from  which  to  view  the  objects.  The\n", 
"projections  are  onto  a  plane  not  a  point. \n", 

II  II 

/ 

"There  are  three  observer  position  planes  to  choose  from  --\n", 

"a  YZ  plane  on  the  positive-X  axis,  an  XZ  plane  on  the\n", 
"negative-Y  axis,  and  an  XY  plane  on  the  positive-Z  axis.  The\n", 
"observer  position  is  moved  on  one  of  these  planes  as  the  left\n" , 
"mouse  button  is  held  down  while  the  mouse  is  moved.  The\n", 
"point  \" looked  at\"  from  all  planes  using  all  observer\n" , 
"positions  is  the  center  of  the  BLIRB8  space.  If  a  severe\n", 
"rotation  is  performed  on  any  observer  plane,  the  BLIRB8  space\n", 
"may  disappear  from  the  screen.  If  this  happens,  undo  some  of\n", 
"the  rotation  and  select  another  observer  plane  from  which  to\n" , 
"view  the  BLIRB8  space.  There  is  no  need  for  severe\n", 

"rotations . \n" , 

"  "  }  ; 


create_message  (w,  help_str,  XmDIALOG_INFORMATION) ; 
}  /*  end  help_rotationCB ( )  */ 


/*********************************************************************** 

*  VOID  HELP_TRANSLATIONCB 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name :  help_translationCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  create__helpmenu 
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*<Description> 

*  Displays  BLIRB8  Space  Translation  information. 

*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 

*<Parameters> 

*  Formal  declaration: 

*  void  help_translationCB (  Widget  w,  XtPointer  c, 

*  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  a  pointer  to  any  input  data  to  be  given  to 

*  the  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  '  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  he lp_t rans 1 at i onCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

static  char  *help_str[]  =  { 

"BLIRB8  Space  Translation: \n" , 

It  II 

/ 

"All  translations  of  the  BLIRB8  space  are  performed  holding\n", 
"the  right  mouse  button  down  while  moving  the  mouse.  This\n", 
"causes  the  point  looked  at  in  the  BLIRB8  space  to  change\n", 

"from  the  center  of  the  BLIRB8  space.  Translations  should  be\n", 
"performed  with  caution  as  they  can  cause  unexpected  viewing\n", 
"problems  when  followed  by  rotations . \n" ,■ 

" "  }  ; 

create_message  (w,  help_str,  XmD I ALOG_ INFORMAT I ON ) ; 

}  /*  end  help_translationCB ()  */ 

/if********************************************************************** 

*  VOID  HELP_VIEWCB 

**********************************************1'1'*i'  +  -je1'i'1'ic1'±  +  *ie*it  +  ie  +  i'ic  +  *ic 

*<Begin> 

*< Identification  Name :  help_viewCB 

*  Type :  C  void 

*  Filename :  visual . c 

*  Parent :  create_helpmenu 


*<Description> 

*  Creates  the  Viewing  Options  information  menu 


*<Called  routines> 

*  create_rowcol 

*  cancelCB 

*  create_separator 

*  create  radiobox 


-  creates  a  Rowcol  Widget 

-  removes  the  Rowcol  Widget 

-  creates  a  Separator  Widget 

-  creates  a  Radiobox  Widget 
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create_togglebutton 

help_axisCB 

help_sunoCB 

help_zoomCB 

help_togCB 


-  creates  a  Togglebutton  Widget 

-  displays  the  Viewing  Axis  Options  info 

-  displays  the  Sun  Options  information 

-  displays  the  Zoom  Options  information 

-  displays  the  Toggle  Switch  Options  info 


^Parameters > 

*  Formal  declaration: 

*  void  help_viewCB I 

*  Input : 


call  data 


Widget  w,  XtPointer  c,  XtPointer  call_data) 

-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  help__viewCB  (Widget  w#  XtPointer  c,  XtPointer  call_data) 

Widget  radio,  toggle [4],  rowcol; 

static  int  index,  hv,  sd,  nc; 

static  char  cat_label [13]  =  "View  Options"; 

static  char  tog_label [4] [22]  =  {  "Viewing  Axis  Options", 

"Sun  Options", 

"Zoom  Options", 

"Toggle  Switch  Options"  }; 


*  -  Create  a  RowColumn  Widget 


rowcol  =  create  rowcol  (menu,  "Help__View" ,  cancelCB)  ; 


*  -  Create  the  radioboxes  and  toggles 


*/ 

hv  =  0  ; 

sd  =  2 ; 

nc  =  1; 

index  =  0; 

create_separat or (rowcol,  &hv,  &sd) ; 

radio  =  create_radiobox (rowcol ,  &nc,  cat__label)  ; 

toggle  [0]  =  create__togglebutton  (radio,  tog_label  [0]  ,  fcindex, 
help_axisCB) ; 

toggle  [1]  =  create_togglebutton (radio,  tog_label [1] ,  &index, 

help_sunoCB) ; 

toggle  [2]  =  create_togglebutton  (radio,  tog__label  [2]  ,  &index, 

help__zoomCB)  ; 
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toggle  [3]  =  create_togglebut ton (radio,  tog_label [3] ,  &index, 
help_togCB) ; 

}  /*  end  help_viewCB ()  */ 


*  VOID  HELP_AX I S CB 
*********************************************************************** 
*<Begin> 

*<  Identification  Name :  help_axisCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  help_viewCB 


^Description 
*  Displays  Viewing  Axij 

^Called  routines> 
r  create_message 

Parameters > 

e  Formal  declaration: 

r  void  help_axisCB ( 

r  Input : 


call  data 


s  Options  information. 


draws  a  message  in  a  dialog  message  box 


Widget  w,  XtPointer  c,  XtPointer  call_data) 

-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  a  pointer  to  any  input  data  to  be  given  to 
the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

'  Developed  the  original  source  code . 


*<End> 

*********************************************************************** 

*/ 

void  help_axisCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

static  char  *help_str  []  =  { 

"Viewing  Axis  Options : \n" , 

"There  are  three  options  --\n", 

M  IT 

/ 

"Positive  X-Axis :\n", 

"This  option  causes  the  observer  position  to  be  in  a  YZ  plane\n" , 
"on  the  positive  X  axis.\n", 

IT  II 

/ 

"Negative  Y-Axis :\n", 

"This  option  causes  the  observer  position  to  be  in  an  XZ  plane\n", 
"on  the  negative  Y  axis.  This  is  the  initial  viewing  axis\n", 
"choice  when  starting  VISUAL. \n", 

II  IT 

/ 

"Positive  Z-Axis : \n" , 

"This  option  causes  the  observer  position  to  be  in  an  XY  plane\n" , 
"on  the  positive  Z  axis.\n", 

H  H 

/ 

"The  point  \"looked  at\"  is  the  center  of  the  BLIRB8  space. \n", 
"The  observer  position  on  the  observer  plane  can  be  changed\n", 

"by  holding  the  left  mouse  button  down  while  moving  the\n", 
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"mouse.  This  creates  a  rotation  effect  on  the  BLIRB8  space. \n", 
"  } ; 


create_message  (w,  help_str,  XmDIALOG_INFORMATION) ; 
}  /*  end  help_axisCB ( )  */ 


VOID  HELP_SUNOCB 


<Begin> 

<Identif ication> 


Name :  help_sunoCB 

Type :  C  void 

Filename :  visual . c 
Parent :  help_viewCB 


<Description> 

Displays  Sun  Options  information. 


cCalled  routines> 
create__message 


-  draws  a  message  in  a  dialog  message  box 


<Parameters> 

Formal  declaration: 

void  help_sunoCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 

-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  a  pointer  to  any  input  data  to  be  given  to 
the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


w 


call  data 


Output : 

None 

<History> 

09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 


*<End> 

*******************************  *  *  ************************************** 

*/  . - 

void  help  sunoCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{  " 

static  char  *help  str[]  =  { 

"Sun  Options :\n", 

"There  are  two  options  --\n"# 

M  H 

"Sun  Plot  On/Off :\n", 

"This  option  is  a  toggle  switch.  It  causes  the  relative  Sun\n", 
"position  to  be  displayed  if  it  was  not  previously  displayed . \n" , 
"Similarly,  it  causes  the  relative  Sun  position  not  to  be\n", 
"displayed  if  it  was  previously  displayed.  Initially, \n" , 

" \"Sun  Plot\"  is  \"on\"  when  VISUAL  is  started. \n", 

n  n 

t 

"Select  New  Sun  Position : \n" , 

"This  option  causes  the  viewing  axis  to  temporarily  become\n", 

"the  positive  Z  axis.  Holding  the  left  mouse  button  down  and\n" , 
"moving  the  mouse  causes  the  Sun  position  to  change.  Move\n" , 

"the  mouse  until  the  Sun  is  positioned  at  the  desired\n" , 

"location  then  release  the  mouse  button.  Upon  releasing  the\n" , 
"mouse  button  the  display  returns  to  the  original  viewing\n", 


291 


"position  and  all  objects  are  as  they  were  except  the\n", 
"position  of  the  Sun  has  been  changed. \n" , 

""  } ; 


create_message  (w,  help_str,  XmD I ALOG_ I NFORMAT I ON ) ; 
}  /*  end  help_sunoCB ( )  */ 


/*********************************************************************** 

*  VOID  HELP_ZOOMCB 

*********************************************************************** 
*<Begin> 

*  < I dent ification>  Name 

*  Type 

*  Filename 

*  Parent 

*<Description> 

*  Displays  Zoom  Options  information. 

*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 


help_zoomCB 
C  void 
visual . c 
help_viewCB 


*  Parameters  > 


Formal  declaration: 

void  help_zoomCB {  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input :  ’ 

w  -  the  ID  of  the  widget  for  which  the 

callback  is  registered 

c  -  a  pointer  to  any  input  data  to  be  given  to 

the  routine 

ca-L-kj^ata  _  3  pointer  to  the  callback  structure  which 

contains  information  on  why  the  callback 
occurred 

Output : 

None 


* 

* 

* 

* 

* 

* 

* 

* 

* 

★ 

* 

* 

*  ===_==_===__== 
*<History> 

*  09/12/94 


AMSRL-BE-S  (505)  678-1570  Elton  P. 
Developed  the  original  source  code . 


Avar  a 


*<End> 

*********************************************************************** 

*/ 

void  help_zoomCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

static  char  *help_str[]  =  { 

" Zoom  Opt ions : \n " , 

"There  are  two  options  --\n" , 

ii  ii 

/ 

"Zoom  In:\n", 

"This  option  causes  the  BLIRB8  space  to  be  displayed  5%\n" , 

"larger  than  it  previously  was  displayed. \n" , 

ii  ii 

/ 

"Zoom  Out : \n" , 

"This  option  causes  the  BLIRB8  space  to  be  displayed  5%\n", 
"smaller  than  it  previously  was  displayed. \n" # 

ii  H  \  . 


create_message  (w;  help__str,  XmD  I  ALOG_  INFORMAT  ION)  ; 

}  /*  end  help_zoomCB ( )  */ 

/*********************************************************************** 
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*  VOID  HELPJTOGCB 
*********************************************************************** 
*<Begin> 

*< Identification  Name:  help_togCB 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent :  help_viewCB 

*<Description> 

*  Displays  View  Toggle  Switch  information. 

*<Called  routines> 

*  create  message  -  draws  a  message  in  a  dialog  message  box 


*<Parameters> 

*  Formal  declaration: 

*  void  help_togCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 


* 

Input 

* 

w 

* 

* 

c 

the  ID  of  the  widget  for  which  the 
callback  is  registered 

a  pointer  to  any  input  data  to  be  given  to 


* 

*  call_data 

* 


the  routine 

a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 


* 


occurred 


*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End>  ******************* 


void  help_togCB  (Widget  w,  XtPointer  c,  XtPointer  call__data) 

static  char  *help_str[]  =  { 

"Toggle  Switch  Options : \n" , 

"There  are  three  options  --\nH , 

H  II 

t 

"Minor  Grid  Lines  On/Off:\n", 

"This  option  is  a  toggle  switch.  It  causes  the  minor  grid\n", 
"lines  to  be  displayed  if  they  were  not  previously  displayed. \n" , 
"Similarly,  it  causes  the  minor  grid  lines  not  to  be\n", 
"displayed  if  they  were  previously  displayed.  Initially, \n" , 

"\ "Minor  Grid  Lines\"  is  \"off\"  when  VISUAL  is  started. \n", 

II  II 

/ 

"Transparent  Colors  On/Off  An", 

"This  option  is  a  toggle  switch.  It  causes  the  aerosol\n", 
"regions  to  be  displayed  in  transparent  colors  if  they  were\n" , 
"previously  displayed  as  outlines.  Similarly,  it  causes  the\n", 
"aerosol  regions  to  be  displayed  as  outlines  if  they  were\n" , 
"previously  displayed  in  transparent  colors.  Initially, \n" , 

" \ "Transparent  Colors\"  is  \"on\"  when  VISUAL  is  started. \n", 

ii  n 

/ 

"Region  Definitions  On/Off :\n", 

"This  option  is  a  toggle  switch.  It  causes  the  text  boxes  to\n", 
"appear  at  the  bottom  of  the  BLIRB8  window  containing  the\n", 
"current  filename,  aerosol  regions  information,  albedo  areas\n", 
"information,  and  radiative  flux  information  if  they  were  not\n", 
"previously  displayed.  Similarly,  it  causes  the  text  boxes\n"fi 
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"to  disappear  if  they  were  previously  displayed.  Initially, \n" , 
"\ "Region  Definitions\"  is  \"on\"  when  VISUAL  is  started. \n", 

1!  II  \  . 


create_message  (w,  help_str,  XmDIALOG_INFORMATION) ; 
}  /*  end  help_togCB()  */ 


/*********************************************************************** 
*  VOID  HELP_FLUXCB 

*********************************************************************** 
*<Begin> 

*<  Identification 


Name : 
Type: 
Filename : 
Parent : 


help_fluxCB 
C  void 
visual . c 
create_helpmenu 


*<Description> 

*  Creates  the  Flux  Display  Options  information  menu 
*<Called  routines> 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


create_rowcol 

cancelCB 

create_separator 
create_radiobox „ 
create_togglebutton 
help_optCB 
help_orCB 

help_valCB 

help__waveCB 


creates  a  Rowcol  Widget 

removes  the  Rowcol  Widget 

creates  a  Separator  Widget 

creates  a  Radiobox  Widget 

creates  a  Togglebutton  Widget 

displays  the  Flux  Options  info 

displays  the  Cross-section  Orientation 

Options  information 

displays  the  Cross-section  Plane  Value 
Options  information 

displays  the  Wave  Number  Options  info 


*<Parameters> 

*  Formal  declaration: 

*  void  help_f luxCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 


w 


call  data 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S 


(505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code . 

*<End> 


************************************** ********************************* 
*/ 

void  help_f luxCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

Widget  radio,  toggle  [4],  rowcol; 
static  int  index,  hv,  sd,  nc; 

static  char  cat_label [21]  =  "Flux  Display  Options"; 
static  char  tog_label[4] [36]  =  {  "Flux  Options", 

"Cross-section  Plane  Orientation", 
"Cross-section  Plane  Value  Selection", 
"Wave  Number  Selection"  } ; 
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/* - 

*  -  Create  a  RowColumn  Widget 


rowcol  =  create_rowcol (menu,  HHelp_Fluxn ,  cancelCB) ; 


/* - 

*  -  Create  the  radioboxes  and  toggles 


*/ 

hv  =  0; 
sd  =  2; 
nc  =  1  ; 
index  =  0; 

create_separator (rowcol ,  &hv,  &sd) ; 

radio  =  create  radiobox (rowcol,  &nc,  cat_label) ; 


toggle  [0] 


toggle [1] 


create_togglebutton (radio,  tog_label [0] , 
help_optCB) ; 

create_togglebut ton (radio,  tog__label [1] , 
help^orCB) ; 


toggle [2] 


create_togglebut ton  (radio,  tog__label  [2]  , 
help_valCB) ; 


toggle [3]  =  create_togglebut ton (radio,  tog_label [3] , 

help_waveCB)  ; 

}  /*  end  help_f luxCB ( )  */ 


&index, 


&index, 


&index, 


&index , 


/*********************************************************************** 

*  VOID  HELP_OPTCB 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  help_optCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  help_f luxCB 

*<Description> 

*  Displays  Flux  Options  information. 

*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 


*<Parameters> 

*  Formal  declaration: 

*  void  help_optCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 


*  Input : 

*  w 

* 

*  c 

* 

*  call_data 

* 


the  ID  of  the  widget  for  which  the 
callback  is  registered 

a  pointer  to  any  input  data  to  be  given  to 
the  routine 

a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 


* 


occurred 


*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 
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*<End> 

*********************************************************************** 

*/ 

void  help_optCB  (Widget  w#  XtPointer  c,  XtPointer  call_data) 

static  char  *help_str[]  =  { 

"Flux  Options :\n", 

"There  are  thirteen  options  --\n" , 

"  Solar  Direct  Flux\n" , 

"  Solar  Reflected  Flux\n" , 

"  Diffuse  Flux  -  l\n" , 

"  Diffuse  Flux  -  2\n", 

"  Diffuse  Flux  -  3\n", 

"  Diffuse  Flux  -  4\n"/ 

"  Diffuse  Flux  -  5\n" , 

"  Diffuse  Flux  -  6\n" , 

"  Diffuse  Flux  -  7\n" , 

"  Diffuse  Flux  -  SXn", 

"  No  Flux\n", 

"  Dec  by  1  Button\n", 

"  Inc  by  1  Button\n", 

n  n 

r 

"Any  of  the  first  10  options  will  display  the  corresponding\n" , 
"flux  magnitude  within  the  BLIRB8  space.  The  flux  display\n", 

"is  in  the  form  of  a  red  3-dimensional  grid  wiremesh  plot\n", 
"depicting  the  magnitude  of  the  flux  corresponding  to  the\n", 
"choices  of  flux  cross-section  plane,  the  distance  of  the\n", 
"cross-section  plane  from  the  BLIRB8  space  origin,  and  the\n", 
"radiation  wavenumber.  The  current  flux  cross-section  plane\n", 

"is  depicted  by  a  white  grid  mesh.  The  distance  between  the\n", 
"red  and  white  grid  meshes  is  related  to  the  magnitude  of  the\n" , 
"flux.  The  flux  amplitude  scale  may  be  linear  or  logarithmic . \n" , 

/ 

"No  Flux:\n" , 

"This  option  causes  both  the  flux  display  and  the  flux  text\n", 
"information  box  to  be  turned  off.  It  is  the  option  used\n", 

"when  VISUAL  is  started. \n". 

If  II 

/ 

"Dec/Inc  by  1  Button: \n" , 

"This  option  causes  the  choice  of  flux  fields  to  decrease/\n" , 
"increase  by  one  position  in  the  ordered  sequence  of  fluxes.  Xn1' 

n  it  \  .  ' 


create_message  (w,  help_str,  XmDIALOG_INFORMATION) ; 
}  /*  end  help_optCB()  */ 


*  VOID  HELP_ORCB 

*************************-k  +  ic**-t:****ifk****ic*-t:*i'*-):icic-l,-i:l'irir.iri'i'  +  +  +  +  iririririririci'ir 


*<Begin> 

*< Identification  Name:  help_orCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  help_f luxCB 

*<Description> 

*  Displays  Cross-section  Plane  Orientation  Options  information. 
*<Called  routines> 

*  create _ message  -  draws  a  message  in  a  dialog  message  box 
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*<Parameters> 


Formal  declaration: 

void  help_orCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 

-  the  ID  of  the  widget  for  which  the 
callback  .is  registered 

-  a  pointer  to  any  input  data  to  be  given  to 
the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


* 
* 
* 
* 
* 
* 
* 
★ 
* 
* 
* 
* 


w 


call  data 


Output : 
None 


*<History> 

*  09/12/94 


Avara 


AMSRL-BE-S  (505)  678-1570  Elton  P. 

Developed  the  original  source  code. 

*<End> 

*********************************************************************** 


void  help_orCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

static  char  *help_str[]  =  { 

"Cross-Section  Plane  Orientation: \n" , 

"There  are  three  options  — \n" , 

u  ii 

"X-Plane  Cross-Section : \n" , 

"This  option  causes  the  radiative  flux  field  cross-section\n" , 
"plane  to  be  a  YZ  plane  on  the  positive  X  axis.\n" , 

it  n 

i 

"Y-Plane  Cross-Section: \n" , 

"This  option  causes  the  radiative  flux  field  cross-section\n", 
"plane  to  be  an  XZ  plane  on  the  positive  Y  axis.\n", 

n  it 

/ 

"Z-Plane  Cross-Section : \n" , 

"This  option  causes  the  radiative  flux  field  cross-section\n" , 
"plane  to  be  an  XY  plane  on  the  positive  Z  axis.  The  Z-Plane\n", 
"Cross-Section  is  the  default  choice  when  starting  VISUAL. \n", 

ii  ii  ^ 

"The  position  of  the  plane  on  the  axis  is  dependent  upon  the\n", 
"choice  of  V’Cross-section  Plane  Value\" . \n" , 

„  „  }. 


create_message  (w,  help_str,  XmDIALOG_INFORMATION)  ; 

}  /*  end  help_orCB()  */ 

/*********************************************************************** 

*  VOID  HELP_VALCB 
*********************************************************************** 

*<Begin> 

*<Identif  ication>  Name:  help__valCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  help_jf  luxCB 

*<Description> 

*  Displays  Cross-section  Plane  Value  Options  information. 

*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 
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*<Parameters> 


Formal  declaration: 

void  help_valCB(  Widget  w,  XtPointer  c,  XtPointer  call__data) 
Input : 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*<History> 

*  09/12/94 


w 


call  data 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

~  a  pointer  to  any  input  data  to  be  given  to 
the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  help_valCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

static  char  *help_str[]  =  { 

"Cross-Section  Plane  Value  Selection : \n" , 

"There  are  an  arbitrary  number  of  options  --\n", 

ii  ii 

i 

"All  options  but  the  last  two  are  of  the  form  V'xx.xxx  Km\"\n", 
"where  the  xx.xxx  is  the  value  of  one  of  the  minor  grid  line\n", 
"values  corresponding  to  the  flux  cross-section  plane\n"( 
"orientation  choice.  Initially,  the  option  values  are  0.0  Km\n", 
"for  all  three  cross-section  plane  orientations  when  VISUAL\n", 

"is  started. \n", 

H  II 

/ 

"Dec/Inc  by  1  Button :\n", 

"This  option  has  the  effect  of  decreasing/increasing  the  flux\n", 
"cross-section  value  to  the  next  lower/higher  minor  grid  line\n", 
"value. \n", 

n  ii  \  . 


create_message  (w,  help_str/  XmDIALOG_INFORMATION) ; 

}  /*  end  help_valCB()  */ 

/*********************************************************************** 

*  VOID  HELP_WAVECB 
*********************************************************************** 
*<Begin> 

*<  Identification  Name :  help_waveCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  help_f luxCB 

*<Description> 

*  Displays  Wave  Number  Selection  information. 

*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 

*<Parameters> 

*  Formal  declaration: 

*  void  help_waveCB(  Widget  w,  XtPointer  c,  XtPointer  call  data) 

*  Input :  ~ 
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*  w 

* 

*  c 

* 

*  call_data 

* 

* 

*  Output : 

*  None 


the  ID  of  the  widget  for  which  the 
callback  is  registered 

a  pointer  to  any  input  data  to  be  given  to 
the  routine 

a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 


void  help_waveCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

static  char  *help_str[]  -  { 

"Wave  Number  Selection : \n" , 

"There  are  an  arbitrary  number  of  options  --\n", 

ii  n 

"All  options  but  the  last  two  are  of  the  form\n", 

" \ " xxxx . xxxx  per  cm\"  where  the  xxxx.xxxx  is  the  value  of  one\n", 
"of  the  input  wavenumbers.  Initially,  the  choice  is  the\n", 
"minimum  value  available  when  VISUAL  is  started. \n", 

it  ii 

/ 

"Dec/Inc  by  1  Button :\n", 

"This  option  has  the  effect  of  decreasing/increasing  the\n", 
"wavenumber  value  to  the  next  lower/higher  available  value. \n", 

....  j. 


create_message  (w,  help_str,  XmD I ALOG_INFORMAT I ON ) ; 
}  /*  end  help_waveCB ( )  */ 


/*********************************************************************** 
*  VOID  HELP_MODIFYCB 

*********************************************************************** 


*<Begin> 

*<Identif ication>  Name :  help_modifyCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  create_helpmenu 


*<Description> 

*  Creates  the  Input  Modifications  Options  information  menu 


*<Called  routines> 

*  create_rowcol 

*  cancelCB 

*  create_separator 

*  create_radiobox 

*  create_togglebutton 

*  help__modCB 

*  help_regCB 

*  help_areaCB 

*  help_meshCB 

*  help_cldCB 

*  help_sunCB 

*  help_flareCB 

*  help_sliteCB 


creates  a  Rowcol  Widget 
removes  the  Rowcol  Widget 
creates  a  Separator  Widget 
creates  a  Radiobox  Widget 
creates  a  Togglebutton  Widget 
displays  the  Model  Changes  info 
displays  the  Region  Selection  info 
displays  the  Albedo  Area  Selection  info 
displays  the  Grid  Mesh  Selection  info 
displays  the  Cloud  Changes  info 
displays  the  Sun  Changes  information 
displays  the  Flare  Selection  information 
displays  the  Searchlight  Selection  info 
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help_spectCB 
help_compCB 
help__outCB 


-  displays  the  Spectral  Range  Changes  info 

-  displays  the  Computation  Changes  info 

-  displays  the  Output  File  Changes  info 


*<Parameters> 

*  Formal  declaration: 

*  void  help_modifyCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  the  data  passed  to  the  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 

contains  information  on  why  the  callback 
occurred 


Output : 
None 


* 

★ 

* 

*<History> 

'  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

****************************** ***************************************** 
*/ 

void  help_modifyCB  (Widget  w,  XtPointer  c,  XtPointer  call  data) 


{ 

Widget  radio,  toggle  [11],  rowcol; 
static  int  index,  hv,  sd,  nc; 

static  char  cat_label [15]  =  "Modify  Options"; 
static  char  tog_label  [11]  [23]  =  {  "Model  Changes", 

"Region  Selection", 
"Albedo  Area  Selection", 
"Grid  Mesh  Selection", 

" Cloud  Changes " , 

"Sun  Changes", 

"Flare  Selection", 
"Searchlight  Selection", 
"Spectral  Range  Changes", 
"Computation  Changes " , 
"Output  File  Changes"  }; 

/* - 

*  -  Create  a  RowColumn  Widget 

*  _ _ 

*/ 

rowcol  =  create_rowcol (menu,  "Help_Modify" ,  cancelCB) ; 


/* - 

*  -  Create  the  radioboxes  and  toggles 

*  _  __7 _ , 

*/  ‘ 

hv  =  0; 
sd  =  2  ; 
nc  =  1; 
index  =  0 ; 

create_separator (rowcol,  &hv,  &sd) ; 

radio  =  create_radiobox (rowcol ,  &nc,  cat_label) ; 

toggle  [0]  =  create_togglebutton (radio,  tog_label [0] ,  &index, 
help_modCB) ; 

toggle [1]  =  create_togglebutton( radio,  tog_label [1] ,  &index, 
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help_regCB) ; 

toggle [2]  =  create_togglebutton (radio,  tog_label [2] ,  sindex, 
help_areaCB) ; 

toggle  [3]  =  create_togglebut ton (radio,  tog_label [3] ,  &index, 
help_meshCB) ; 

toggle [4]  =  create_togglebutton (radio,  tog  label [4] ,  &index 
help_cldCB) ; 

toggle [5]  =  create_togglebutton (radio,  tog_label [5] ,  fcindex, 
help_sunCB) ; 

toggle [6]  =  create_togglebut ton (radio,  tog_label [6] ,  sindex, 
help_f lareCB) ; 

toggle  [7]  =  create_togglebutton( radio,  tog_label  [7] ,  &index, 
help_sliteCB) ; 


toggle [8]  =  create_togglebutton (radio,  tog_label  [8] ,  &index, 
help_spectCB) / 

toggle  (9]  =  create_togglebutton( radio,  tog_label [9] ,  &index, 
help_compCB)  ; 

toggle  [10]  =  create_togglebutton (radio,  tog_label [10] ,  &index, 
help_outCB) / 

}  /*  end  help_modifyCB ()  */ 

Z********************************* ************************************** 

*  VOID  HELP_MODCB 

*********************************************************************** 

*<Begin> 

*< Identification  Name:  help_modCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  help_modifyCB 

*<Description> 

*  Displays  Model  Changes  information. 

*<Called  routines> 

create_message  -  draws  a  message  in  a  dialog  message  box 


*<Parameters> 

*  Formal  declaration: 

*  void  help_modCB(  Widget  w,  XtPointer  c,  XtPointer  call  data) 

*  Input :  - 

*  w  ~  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

c  a  pointer  to  any  input  data  to  be  given  to 

the  routine 

*  call__data  -  a  pointer  to  the  callback  structure  which 

contains  information  on  why  the  callback 
occurred 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 


Developed  the  original  source  code. 
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void  help_modCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 
static  char  *help_str[]  =  { 

"Aerosol  Selections : \n" ,  . 

"This  option  creates  a  popup  menu  with  12  aerosol  options . \n  , 
"Some  of  these  create  a  secondary  popup  menu  with  aerosol\n" , 
"refinements.  The  default  is  \"No  aerosols\ " . \n" , 

n  H 

"Temperature  Profile  Model :\n", 

"The  first  6  options  cause  the  corresponding  temperature\n" , 
"profile  from  the  Standard  Atmosphere  to  be  used  for  the\n" , 
"BLIRB8  temperature  profile.  The  7th  creates  a  popup  menu\n" , 
"with  6  temperature  scales,  one  for  each  of  the  lowest  5  km\n", 
"of  altitude.  The  default  option  is  the  1976  U.S.  Standard. \n" , 

ii  ii  f 

"Meteorological  Range :\n",  ,  . 

"If  the  met  range  is  less  than  5  km,  select  the  first  option. \n", 
"Otherwise,  use  the  second  option.  Either  creates  a  popup\n" , 
"menu  with  a  met  range  scale.  The  default  is  40  km.\n", 

IT  II 

/ 

"Tropospheric  Profile :\n",  # 

"This  option  defines  the  aerosol  profile  above  2  km.  The\n", 
"default  \ "Set  by  Meteorological  Range\".\n", 

11  "  t 

"Albedo :\n", 

"Changing  the  option  creates  a  series  of  nested  popup  menus \n  , 
"which  allow  albedo  value  assignments  to  all  albedo . areas . \n" , 
"The  default  option  is  \"Wave  Independent,  User-def ined\ "  and\n" , 
"the  default  albedo  value  is  the  background  albedo  (0.2).\n", 

n  ii 

/ 

"Aerosol  Profile  Printout : \n" , 

"The  default  option  is  \"None\".\n"/ 

n  n  f 

"Surface  Temperature  (K):\n", 

"The  default  surface  temperature  is  288.2  K.\n", 

,,M  }  ; 

create  message  (w,  help_str,  XmDIALOG_INFORMATION) ; 

}  /*_  end  help_modCB()  */ 


^ *  VOID  HELPJREGCB 


*<Begin> 

*<Identif ication> 


Name 

Type 

Filename 

Parent 


help_jregCB 
C  void 
visual . c 
help_modifyCB 


*<Description> 

*  Displays  Region  Selection  information. 


*<Called  routines> 

*  create  message 


draws  a  message  in  a  dialog  message  box 


*<Parameters> 

*  Formal  declaration: 

*  void  help_regCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 


*  Input : 

*  w 

* 

*  c 

* 

*  call_data 

* 

* 

*  Output : 

*  None 
*=;=;;____==__====:_:_:=; 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  a  pointer  to  any  input  data  to  be  given  to 
the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  help  regCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

static  char  *help_str[]  =  { 

"Region  Selection : \n" , 

"This  option  creates  a  secondary  pulldown  menu  listing  all\n", 
"aerosol  regions  and  possibly  a  \"Add  New  Region\"  option. \n", 

"Any  option  causes  another  pulldown  menu  to  appear  with  from\n", 
"1-6  new  options.  These  new  options  are  --\n" , 

n  ii 

/ 

"Dimensions : \n" , 

"This  option  causes  one  or  more  popup  menus  to  appear.  The\n", 
"first  has  3  scales  for  setting  the  3  dimensions  of  a  region. \n", 
"Default  dimensions  of  Region  -  1  are  (5,  4,  5).  If  the\n", 
"dimensions  of  Region  -  1  change,  the  corresponding  grid  mesh\n", 
"also  changes.  This  effect  will  change  the  positions  and\n", 
"dimensions  of  the  other  aerosol  regions  and  albedo  areas.  \n", 

it  n 

"Material  -  1  /  Material  -  2  /  Material  3:\n", 

"This  option  creates  a  popup  menu  with  16  material  options. \n", 
"Some  of  these  can  create  a  secondary  menu  with  material\n", 
"refinements.  Aerosol  regions  are  displayed  as  3-D  boxes\n" , 

"with  transparent  color.  The  color  and  shade  correspond  to\n", 
"the  first  material  specified  for  a  region.  A  popup  scale  is\n", 
"created  to  input  the  visibility  within  the  material.  The\n" , 
"default  is  \"No  cloud\"  and  infinite  visibility . \n" , 

ii  H 

t 

"Location: \n" , 

"This  option  causes  the  display  to  view  downward  from  the\n", 
"positive  Z.  axis  and  project  the  region  onto  the  XY  plane\n" , 

"in  transparent  red  with  a  red  prompt  to  Move  the  Region. \n", 
"Change  the  region  position  in  the  XY  plane  with  the  mouse. \n", 
"The  display  will  then  view  forward  from  the  negative  Y  axis.\n", 
"Follow  the  same  procedure  to  move  the  region  in  the  XZ  plane. \n", 
"The  default  position  of  a  new  region  is  at  the  origin. \n", 

ii  ii 

/ 

"Delete  Region :\n", 

"This  option  causes  the  region  of  interest  and  its  associated\n" , 
"materials  to  be  removed  from  all  inputs  and  the  display. \n", 

n"  }? 


create_message  (w,  help__str,  XmDIALOG_INFORMATION)  ; 

}  /*  end  help_regCB()  */ 

/it********************************************************************** 
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*  VOID  HE L P_ARE  ACB 


*<Begin> 

*<  Identification 
* 

* 

* 

*==_=====_===; _ = 


Name : 
Type: 
Filename : 
Parent : 


help_areaCB 
C  void 
visual . c 
he  1  p_mo  d  i  f  y  CB 


*<Description> 

*  Displays  Albedo  Area  Selection  information. 


*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 


*< Parameters > 


Formal  declaration: 

void  help_areaCB(  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*========““=== 

*<History> 

*  09/12/94 

* 


w 


call  data 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  a  pointer  to  any  input  data  to  be  given  to 
the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code . 


*<End> 


*********************************************************************** 

*/ 

void  help_areaCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

static  char  *help_str[]  =  { 

"Albedo  Area  Selection: \nM , 

"This  option  creates  a  secondary  pulldown  menu  listing  all\n" , 
"albedo  areas  and  possibly  a  \"Add  New  Albedo  Area\"  option. \n" , 
"Any  option  causes  another  pulldown  menu  to  appear  with  from\n", 
"1-4  new  options.  These  new  options  are  --\n", 

IT  It 

/ 

"Dimensions :  \n" , 

"This  option  causes  one  or  more  popup  menus  to  appear.  The\n", 
"first  has  2  scales  for  setting  the  2  dimensions  of  an  area.\n", 
"Default  dimensions  of  Albedo  Area  -  1  are  (5,  4).  If  the\n", 
"dimensions  of  Region  -  1  are  changed,  the  dimensions  of\n", 
"Albedo  Area  -  1  are  also  changed  to  cover  the  entire  XY\n" , 
"projection  of  Region  -  1  onto  the  Z  =  0  plane. \n", 

it  u  _ 

"Albedo : \n" , 

"This  option  creates  a  popup  menu  with  several  albedo  options \n", 
"depending  upon  the  type  of  albedo  selected  under  \"Model\n", 
"Changes\".  Some  of  these  options  can  create  secondary  menus\n" , 
"with  albedo  refinements.  Albedo  areas  are  displayed  as\n" , 
"shaded  green  rectangles.  The  darker  the  green,  the  higher\n", 
"the  albedo.  The  default  is  the  background  albedo  (0.2).\n", 

it  ti 
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"Location: \n" , 

"This  option  causes  the  display  to  view  downward  from  the\n" , 


"positive  Z  axis  and  present  the  area  in  red  with  a  red\nn, 
"prompt  to  Move  the  Area.  Change  the  area  position  in  the  XY\n", 
"plane  with  the  mouse.  The  default  position  of  a  new  area  is\n", 
"at  the  origin. \n", 

it  M 

/ 

"Delete  Area  An", 

"This  option  causes  the  albedo  area  and  its  associated  albedo\n", 
"to  be  removed  from  all  inputs  and  the  display . \n" , 

,,n  } ; 


create_message  (w,  help_str,  XmDIALOG_INFORMATION) ; 
}'  /*  end  help_areaCB ( )  */ 


/*********************************************************************** 

*  VOID  HELP_MESHCB 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name :  help_meshCB 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent:  help_modifyCB 

*<Description> 

*  Displays  Grid  Mesh  Selection  information. 

*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 


*<Parameters > 

*  Formal  declaration: 

*  void  help_meshCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 


* 

* 

* 

* 

* 

* 

* 

* 


Input : 
w 

c 

call  data 


the  ID  of  the  widget  for  which  the 
callback  is  registered 

a  pointer  to  any  input  data  to  be  given  to 
the  routine 

a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


* 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 


*/ 

void  help  meshCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

static  char  *help_str[]  =  { 

"Grid  Mesh  Selection: \n" , 

"There  are  3  options  --\n", 

n  it  ^ 

"X  Grid  Mesh  /  Y  Grid  Mesh  /  Z  Grid  Mesh:\n", 

"This  option  creates  a  popup  menu  with  two  columns  of  two  or\n" , 
"more  scales  each  in  a  one-to-one  correspondence.  All  the\n" , 
"scales  in  the  left  column  except  possibly  the  last  set  the\n" , 
"end  point  of  a  mesh  interval.  The  start  point  of  the  first\n", 
"mesh  interval  is  0  km,  the  origin  of  the  BLIRB8  space.  The\n", 
"start  point  of  each  mesh  interval  after  the  first  is  the  end\n"r 
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"point  of  the  previous  mesh  interval.  To  modify  any  of  the\n", 
"current  mesh  intervals  merely  adjust  the  end  points  of  the\n", 
"intervals  of  interest.  Remember  to  adjust  the  number  of\n", 
"subintervals  within  the  adjusted  intervals  or  the  regions\n", 

"and  albedo  areas  within  these  intervals  will  be  modified. \n" , 

II  It 

f 

"To  add  a  new  mesh  interval  is  the  same  as  subdividing  a\n", 
"current  mesh  interval  and  making  the  adjustments  necessary\n" , 

"to  fit  the  model  requirements.  One  could  add  the  new  mesh\n", 
"interval  by  adjusting  all  the  current  interval  end  points\n", 
"such  that  the  last  scale  in  the  left  column  depicted  the\n" , 
"greatest  end  point  value.  This  means  one  must  also  change\n", 
"all  the  corresponding  Subinterval  scales  in  the  right  column. \n", 
"Alternately,  one  could  consider  the  last  scale  in  the  left\n", 
"column  as  out -of -sequence  relative  to  the  other  interval  end\n" , 
"point  scales  and  proceed  to  add  the  desired  interval  end\n", 
"point  and  the  corresponding  number  of  subintervals.  The\n", 
"software  will  insert  the  scale  in  the  proper  sequence  after\n", 
"the  menu  is  terminated.  Remember  to  examine  all  previous\n", 
"intervals  to  determine  the  start  point  of  the  new  interval . \n" , 

ii  H 

/ 

"The  default  values  for  the  (X,  Y,  Z)  grid  mesh  intervals  are\n", 
"one  end  point  each  of  (5,  4,  5)  which  gives  (10,  8,  10) \n", 
"subintervals . \n" , 

""  }  ; 


create_message  (w,  help_str,  XmDIALOG_INFORMATION) ; 

}  /*  end  help_meshCB ( )  */  ~ 

/*********************************************************************** 

*  .  VOID  HELP_CLDCB 

*********************************************************************** 
*<Begin> 

*<  Identification  Name:  help__cldCB 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent:  help_modifyCB 


*<Description> 

*  Displays  Cloud  Changes  information. 

*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 

*< Parameters > 

*  Formal  declaration; 

*  void  help_cldCB(  Widget  w,  XtPointer  c,  XtPointer  call  data) 

*  Input : 

*  w  ~  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -a  pointer  to  any  input  data  to  be  given  to 

*  the  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 
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*<End> 

*********************************************************************** 

*/ 

void  help  cldCB  (Widget  w,  XtPointer  c,  XtPointer  call  data) 

{ 

static  char  *help_str[]  =  { 

"Cloud  Changes :\n", 

"There  are  3  options  -\n", 

ii  ii 

/ 

"Cloud  Structure : \n" , 

"  No  Cloud  --no  cloud  in  region. \n", 

"  Rectangular  Structure  --  aerosols  uniformly  distributed\n" , 

"  within  the  rectangular  region. \n", 

".  CSS  Model  --  TASC  Cloud  Scene  Simulation  prototype  model. \n" , 
"The  default  option  is  \"No  Cloud\".\n", 

n  ii 

/ 

"Aerosol  Outside  Physical  Region  An", 

"  Background  Aerosol  --  a  uniform  aerosol  distribution\n" , 

"  outside  the  primary  BLIRB8  region\n" , 

"  equal  to  the  background  aerosol. \n", 

"  Periodic  Boundary  Conditions  --  BLIRB8  replicates  theXn", 

"  BLIRB8  space  in  all  directions'^" , 

"  around  and  outside  the  BLIRB8  space. \n", 

"The  default  option  is  \"Periodic  Boundary  Conditions\ " . \n" , 

ii  ii 

t 

"Wind  Speed  (mps)  An", 

"The  scale  is  used  to  input  the  surface  wind  speed.  The\n", 
"default  wind  speed  is  0.0  mps.Xn", 

" "  } ; 


create_message  (w,  help_str,  XmDIALOG_INFORMATION) ; 

}  /*  end  help_cldCB()  */ 

/*********************************************************************** 

*  VOID  HELP_SUNCB 
*********************************************************************** 

*<Begin> 

*<Identif  ication>  Name:  help__sunCB 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent:  help_modifyCB 

*<Description> 

*  Displays  Sun  Changes  information. 

*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 

_________________________________________________________ 

*< Parameters > 


* 

Formal  declaration: 

* 

void  help  sunCB ( 

Widget  w,  XtPointer  c,  XtPointer  call  data) 

* 

Input : 

* 

w 

-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

* 

* 

c 

-  a  pointer  to  any  input  data  to  be  given  to 

* 

the  routine 

* 

call_data 

-  a  pointer  to  the  callback  structure  which 

* 

contains  information  on  why  the  callback 

* 

occurred 

* 

Output : 

* 

*  —  — 

None 
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*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  help_sunCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

static  char  *help_str[]  =  { 

"Sun  Change s:\n", 

"There  are  5  options  --\n", 

M  II 

/ 

"Solar  Flux  and  Sky  Radiance  at  5  Km:\n", 

"  Parameterized\n" , 

"  L0WTRAN\n" , 

"The  default  option  is  \"LOWTRAN\" . \n" , 

II  II 

/ 

"Sky  Radiance  Input :\n", 

"  No\n" , 

"  Yes\n" , 

"The  default  option  is  \"No\".\n", 

II  It 

i 

"Spectral  Molecular  Transmission: \n" , 

"  No\n" , 

"  Yes\n" , 

"The  default  option  is  \"No\".\n", 

II  II 

/ 

"Solar  Zenith  Angle  (deg)  An", 

"This  scale  is  used  to  input  the  solar  zenith  angle.  The\n" , 
"default  solar  zenith  angle  is  0.0  deg.\n", 

It  IT 

/ 

"Solar  Azimuth  Angle  (deg) :\n", 

"This  scale  is  used  to  input  the  solar  azimuth  angle.  The\n", 
"default  solar  azimuth  angle  is  0.0  deg.\n", 

H  it  \  . 


create_message  (w,  help_str,  XmD I ALOG_INFORMAT I ON ) ; 

}  /*  end  help_sunCB()  */ 

/*********************************************************************** 

*  VOID  HELP_FLARECB 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name :  help_f lareCB 

*  Type:  C  void 

*  Filename:  visual . c 

*  Parent:  help_modifyCB 

*<Description> 

*  Displays  Flare  Selection  information. 

*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 

*<Parameters> 

*  Formal  declaration: 

*  void  help__f lareCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  a  pointer  to  any  input  data  to  be  given  to 
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* 

* 


call  data 


* 

* 

* 

* 

* 


Output : 
None 


the  routine 

a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 


*/ 

void  help  flareCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

static  char  *help_str[]  =  { 

"Flare  Selection: \n" , 

"This  option  creates  a  secondary  pulldown  menu  listing  all\n", 
"flares  and  possibly  a  \"Add  New  Flare\"  option.  The  default\n", 
"input  contains  no  flare.  Any  option  causes  another  pulldown\n" , 
"menu  to  appear  with  from  1-3  new  options.  These  new\n", 
"options  are  --\n" , 

n  n 

/ 

"Parameter  Options : \n" , 

"This  option  creates  a  popup  menu  to  appear  with  3  options  --\n" , 
"  Flare  Type:\n", 

"  Select  one  of  the  3  types  of  flare  energy  radiation . \n" , 

"  Flare  Intensity  (watts) :\n", 

"  This  scale  is  used  to  input  the  flare  intensity . \n" , 

"  Flare  Temperature  (K)\n", 

"  This  scale  is  used  to  input  the  flare  temperature . \n" , 

H  n 

/ 

"Location: \n" , 

"This  option  causes  the  display  to  view  downward  from  the\n" , 
"positive  Z  axis  and  project  the  flare  onto  the  XY  plane  in\n", 
"red  with  a  red  prompt  to  Move  the  Flare.  Change  the  flare\n" , 
"position  in  the  XY  plane  with  the  mouse.  The  display  will\n" , 
"then  view  forward  from  the  negative  Y  axis.  Follow  the  same\n", 
"procedure  to  move  the  flare  in  the  XZ  plane.  The  default\n", 
"position  of  a  new  flare  is  at  the  origin.  Flare  positions\n" , 
"are  depicted  as  red  stars. \n", 

ii  it 

/ 

"Delete  Flare  An", 

"This  option  causes  the  flare  to  be  removed  from  all  inputs\n", 
"and  the  display. \n", 

}; 


create_message  (w,  help__str,  XmDIALOG_INFORMATION)  ; 

}  /*  end  help_flareCB ()  */ 

/**************************  *** ****************************************** 

*  VOID  HELP_SLITECB 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name :  help_sliteCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  help_modifyCB 

*<Description> 

*  Displays  Searchlight  Selection  information. 
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*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 


*<Parameters> 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*<History> 

*  09/12/94 


Formal  declaration: 

void  help_sliteCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 

-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  a  pointer  to  any  input  data  to  be  given  to 
the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


w 


call  data 


Output : 
None 


*== - 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 


*<End> 


*/ 

void  help_sliteCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

static  char  *help_str[]  =  { 

"Searchlight  Selection : \n" , 

"The  default  input  contains  no  searchlight.  This  option\n" , 
"creates  a  secondary  pulldown  menu  with  1-3  options.  These\n", 
"new  options  are  --\n" , 

ti  ii 

t 

"Add/Modify  Searchlight : \n" , 

"This  option  creates  a  popup  menu  with  5  input  scales  --\n" , 

11  SearchLight  Beam  Zenith  (deg)  \n"  , 

"  Searchlight  Beam  Azimuth  (deg) \n" , 

"  SearchLight  Intensity  (watts) \n", 

"  SearchLight  Temperature  (K) \n" , 

"  SearchLight  Diameter  (m)\nM, 

ii  n 

"Location : \n" , 

"This  option  causes  the  display  to  view  downward  from  the\n", 
"positive  Z  axis  and  project  the  searchlight  onto  the  XY\n", 
"plane  in  white  with  a  red  prompt  to  Move  the  Slite.  Change \n " , 
"the  searchlight  position  in  the  XY  plane  with  the  mouse. \n" , 

"The  display  will  then  view  forward  from  the  negative  Y  axis.\n", 
"Follow  the  same  procedure  to  move  the  searchlight  in  the  XZ\n", 
"plane.  The  default  position  of  a  new  searchlight  is  at  the\n" , 
"origin.  Searchlight  positions  are  depicted  as  white  stars. \n", 

II  II 

i 

"Delete  Searchlight : \n" , 

"This  option  causes  the  searchlight  to  be  removed  from  all\nn , 
"inputs  and  the  display. \n", 

ii  ii  \  . 


create_message  (w,  help_str,  XmDIALOG_INFORMATION) ; 
}  /*  end  help_sliteCB ( )  */ 


*  VOID  HELP_S PECTCB 
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*<Begin> 

*<Identif ication> 


Name :  help_spectCB 

Type :  C  void 

Filename :  visual . c 

Parent :  help_modifyCB 


t<Description> 

t  Displays  Spectral  Range  Changes  information. 


t<Called  routines> 
k  create_message 


draws  a  message  in  a  dialog  message  box 


k< Parameters > 

*  Formal  declaration: 

k  void  help_spectCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

k  Input : 

k  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

k  c  -  a  pointer  to  any  input  data  to  be  given  to 

*r  the  routine 

k  call_data  -  a  pointer  to  the  callback  structure  which 

k  contains  information  on  why  the  callback 

k  occurred 

k  Output : 

k  None 

*r<History> 

k  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

k  Developed  the  original  source  code. 


^<End> 


t***************** 


void  help_spectCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

static  char  *help_str[]  =  { 

"Spectral  Range  Changes :\n" , 

"This  spectral  range  corresponds  to  the  spectral  range  of  the\n", 
"radiation  energy  wave  bands  for  BLIRB8 .  This  option  creates\n", 
"a  pulldown  submenu  with  2  options  to  allow  one  to  choose\n" , 

"the  units  for  the  spectral  range  selection  options . \n" , 

tt  H 

"Wavenumber : \n" , 

"This  option  creates  a  popup  menu  with  5  options  --\n", 

"  Visible:  8000  -  28000  per  cm\n" , 

"  Near  IR:  3000  -  13000  per  cm\n" , 

"  Mid  IR:  1200  -  5200  per  cm\n" , 

"  Far  IR:  500  -  1500  per  cm\n" , 

"  2  Color  IR:  600  -  3600  per  cm\n" , 

"Choosing  any  of  the  5  options  will  create  another  popup  menu\n" , 
"with  3  spectral  range  input  scales  --\n" , 

"  Lowest  Wavenumber  (per  cm)\n", 

"  The  default  value  is  10000  per  cm.\n", 

"  Highest  Wavenumber  (per  cm) \n" , 

»  The  default  value  is  25000  per  cm.\n", 

"  Number  of  Wavenumber  Intervals\n" , 

"  The  default  value  is  15. \n",  - 

ii  ii 

"Wavelength: \n" , 

"This  option  creates  a  popup  menu  with  5  options  --\n" , 

"  Visible:  0.3  -  1.3  micrometers \n" , 

"  Near  IR:  0.7  -  3.2  micrometers \n" , 
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"  Mid  IR:  2.0  -  7.0  micrometers \n" , 

"  Far  IR:  6.0  -  16.0  micrometers \n" , 

"  2  Color  IR:  3.0  -  13.0  micrometers\nn , 

"Choosing  any  of  the  5  options  will  create  another  popup  menu\n", 
"with  3  spectral  range  input  scales  --\n", 

"  Lowest  Wavelength  (micrometers) \n" , 

"  Highest  Wavelength  (micrometers)  \n" , 

"  Number  of  Wavelength  Interval s \n " , 

""  }; 


create_message  (w,  help_str,  XmD I AL0G_INF0RMAT I ON ) ; 
}  /*  end  help_spectCB ()  */ 


/*********************************************************************** 

*  VOID  HELP_COMPCB 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name :  help_compCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  help_modifyCB 

*<Description> 

*  Displays  Computation  Changes  inf ormation . 

*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 

*<Parameters> 

*  Formal  declaration: 

void  help_compCB(  Widget  w,  XtPointer  c,  XtPointer  call  data) 
Input : 

w  -  the  ID  of  the  widget  for  which  the 

callback  is  registered 

c  -  a  pointer  to  any  input  data  to  be  given  to 

the  routine 

call_data  -  a  pointer  to  the  callback  structure  which 

contains  information  on  why  the  callback 
occurred 

Output : 

None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 


*******************************************-k  +  *-k**icici'i'  +  iei'±  +  i'i'i'  +  ifi'i'i'±i'i'  +  i' 
*/ 

void  help_compCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

static  char  *help_str[]  =  { 

"Computation  Changes :\n"; 

"This  option  creates  a  popup  menu  with  5  options  --\n", 

m  M 

/ 

"Delta  Function  Adjustment : \n" , 

"  No\n", 

"  Yes\n", 

"The  default  choice  is  \ "Yes\ " . \n" , 

ii  ii 

t 

"Order  of  Spherical  Harmonics : \n" , 

"  Order  0\n", 
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"  Order  l\n", 

"  Order  2\n", 

"  Order  3\n", 

M  Order  4\n", 

n  Order  5\n", 

"  Order  6\n" , 

"The  default  choice  is  \ "Order  2\".\n", 

n  H  f 

"Maximum  Number  of  Iterations : \n" , 

"This  scale  is  used  to  input  the  maximum  number  of  iterations \n" , 
"to  be  used  in  the  computation.  The  default  value  is  10. \n", 

II  II 

/ 

"Convergence  Criterion: \n" , 

"This  scale  is  used  to  input  the  convergence  criterion  to  be\n" , 
"used  in  the  computation.  The  default  value  is  0.002.\n", 

it  ii 

"Number  of  Convergence  Fail  Points  An", 

"This  scale  is  used  to  input  the  number  of  convergence  fail\n", 
"points  used  in  the  computation.  The  default  value  is  5.\n", 

" "  } ; 


create  message  (w,  help_str,  XmDIALOG_INFORMATION)  ; 
}  /*—  end  help_compCB ()  */ 


^ *  VOID  HELP_OUTCB 


*<Begin> 

*<  Identification 
* 

* 

★ 

*____  =  ;_  =  =  __  =  =  -  =  :=-; 


Name : 
Type: 
Filename : 
Parent : 


help_outCB 
C  void 
visual . c 
he lp_modi f yCB 


*<Description> 

*  Displays  Output  File  Changes  information. 


*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 


*<Parameters> 

*  Formal  declaration: 

*  void  help_outCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 


★ 

* 

* 

* 

* 

* 

* 

* 


Input : 
w 

c 

call  data 


the  ID  of  the  widget  for  which  the 
callback  is  registered 

a  pointer  to  any  input  data  to  be  given  to 
the  routine 

a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


* 

* 

* 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End>  ********************* 


void  help_outCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 
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static  char *  *help_str[]  =  { 

"Output  File  Changes :\n", 

"These  options  govern  the  type  of  BLIRB8  radiant  flux  output \n", 
"file(s)  created.  There  are  4  options  --\n", 

n  ii 

/ 

"No  Output  Flux  --  no  output  file  created\n" , 

"Formatted  Output  File  --  creates  GRID. ASC\n" , 

"Unformatted  (binary)  Output  File  --  creates  GRID . BIN\n" , 

"Both  Formatted  and  Unformatted  --  creates  GRID.ASC  and\n", 

"  GRID . BIN  \n" , 

II  II 

/ 

"The  default  option  is  V'Both  Formatted  and  UnformattedV" . \n" , 

" \n"  }/ 

create_message  (w#  help_str,  XmD I ALOG_ I NFORMAT I ON ) ; 

}  /*  end  help_outCB{)  */ 

/*********************************************************************** 
*  VOID  CANCELCB 


cancelCB 
C  void 
visual . c 

Numerous  routines 

*<Description> 

*  Removes  a  widget . 

*<Called  routines> 

*  none 


*<Begin> 

*<Identif ication>  Name 

*  Type 

*  Filename 

*  Parent 


*<Parameters> 

*  Formal  declaration: 

*  void  cancelCB (  Widget  w,  XtPointer  c,  XtPointer  call  data) 

*  Input :  “ 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  the  widget  to  be  removed 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  cancelCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

XtUnmanageChild ( (Widget) c) ; 

}  /*  end  cancelCB ()  */ 

/*********************************************************************** 

*  VOID  CANCELOBCB 
*********************************************************************** 
*<Begin> 

*< Identification  Name:  cancelobCB 
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*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  mtrllCB 

*<Description> 

*  Removes  a  widget  and  calls  "obsc". 

*<Called  routines> 

*  obsc  -  sets  up  rowcolumn  widget  with  names  of 

*  materials. 

*  <Parameters  > 

*  Formal  declaration: 

.  void  cancelobCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 


w 


call  data 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  widget  to  be  removed 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


* 

* 

* 

* 

* 

* 

* 

* 

★ 

★ 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  cancelobCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

XtUnmanageChild ( (Widget) c) ; 
obsc  ()  ; 

}  /*  end  cancelobCB ()  */ 

/*********************************************************************** 

*  VOID  CANCELOCB 
*********************************************************************** 

*<Begin> 

*<Identif ication> 

* 

* 

* 

*<Description> 

*  Removes  the  parent  widget. 

*<Called  routines> 

*  none 

*<Parameters> 

*  Formal  declaration: 

*  void  canceloCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  the  client  data 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 


Name : 
Type: 
Filename : 
Parent : 


canceloCB 
C  void 
visual . c 
create_messagef 
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*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  canceloCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

XtUnmanageChild (w) ; 

XtDestroyWidget (w) ; 

}  /*  end  canceloCB ()  */ 


/*********************************************************************** 

*  VOID  CANCELSCB 
*********************************************************************** 
*<Begin> 

*<  Identification  Name:  cancelsCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  sun^optCB 

*<Description> 

*  Removes  a  widget  and  incorporates  new  Sun  position  data. 

*<Called  routines> 

*  drawscene  -  Plots  the  3-D  BLIRB  grid  points,  albedo 

*  areas,  aerosol  regions,  and  the  output 

*  flux. 

*<Parameters> 

*  Formal  declaration: 

void  cancelsCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 

w  -  the  ID  of  the  widget  for  which  the 

callback  is  registered 

c  -  the  widget  to  be  removed 

call_data  -  a  pointer  to  the  callback  structure  which 

contains  information  on  why  the  callback 
occurred 

Output : 

None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

***************************  ******************************************** 
*/ 

void  cancelsCB (Widget  w,  XtPointer  c,  XtPointer  call  data) 


XtUnmanageChild { (Widget) c) ; 

if (in_change) 
drawscene; 


in_change  =  FALSE; 

}  /*  end  cancelsCB ()  */ 
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VOID  CANCELACB 


*<Begin> 

*<  Identification 
* 

* 

* 

* - 


Name : 
Type: 
Filename : 
Parent : 


cancelaCB 
C  void 
visual . c 
area_optCB 


*<Description> 

*  Removes  a  widget  and  locates  the  Albedo  Area 


*<Called  routines> 

*  area_albCB 

* 

*  area_locCB 

*  set_albedo 


-  calls  the  appropriate  function  for  the 
area  albedo 

-  moves  the  area  to  the  desired  location 

-  sets  the  Albedo  values 


*<Parameters> 

*  Formal  declaration : 

*  void  cancelaCB {  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  the  widget  to  be  removed 

*  call__data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  cancelaCB (Widget  w,  XtPointer  c,  XtPointer  call  data) 

{ 

XtUnmanageChild  (  (Widget)  c)  ; 


if (in_changea) 

{  area_albCB (menu,  &area,  NULL) ; 
area__locCB  (NULL,  &area,  NULL)  ; 
set  albedo (); 

}  ” 


in_changea  =  FALSE; 

}  /*  end  cancelaCB ()  */ 


^ *  VOID  CANCELBCB 

*********************************************************************** 


*<Begin> 

*<Identif ication> 
* 

* 

* 

* 


*  =  =  =  =  =  =  =  =  =  =  =:  =  =  =  =  =  : 
*  <Description> 


Name : 
Type : 
Filename : 
Parent : 


cancelbCB 
C  void 
visual . c 

albedolCB,  albedo2CB,  albedo3CB, 
albeO,  albel,  albe2,  albe3 
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Removes  a  widget  and  sets  the  Albedos 


drawscene 


* 

*  =  _ 

*<Called  routines> 

*  set_albedo 

*  obsc 

* 

* 

* 

* 

*  Parameters  > 

*  Formal  declaration: 

void  cancelbCB(  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 


-  sets  the  Albedo  values 

-  sets  up  rowcolumn  widget  with  names  of 
materials . 

-  Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 


w 


call  data 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  widget  to  be  removed 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  cancelbCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

XtUnmanageChild ( (Widget) c) ; 

if(in_change  &&  (cur_ialb  ==  mdl2_ialb) ) 

{  set_albedo () ; 
obsc  ( ) ; 
drawscene () ; 

} 


in_change  =  FALSE; 

}  /*  end  cancelbCB ()  */ 


/*********************************************************************** 

*  VOID  CANCELBBCB 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  cancelbbCB 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent :  albedo_chg 

*<Description> 

*  Removes  a  widget  and  sets  the  Albedos 
*<Called  routines> 


* 

set_albedo 

-  sets  the  Albedo  values 

* 

obsc 

-  sets  up  rowcolumn  widget  with  names  of 

* 

materials . 

* 

drawscene 

-  Plots  the  3-D  BLIRB  grid  points,  albedo 

* 

areas,  aerosol  regions,  and  the  output 

* 

flux. 
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*  Parameters  > 

*  Formal  declaration: 

*  void  cancelbbCB  (  Widget  w,  XtPointer  c,  XtPointer  call__data) 


*  Input : 

*  w 

* 

*  c 

*  call_data 

* 

* 


the  ID  of  the  widget  for  which  the 
callback  is  registered 
the  widget  to  be  removed 

a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 


*/ 

void  cancelbbCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

XtUnmanageChild  (  (Widget)  c)  ; 


cur_ialb  =  mdl2_ialb; 
set_albedo ( ) ; 
obsc  ()  ; 
draws cene ( ) ; 

}  /*  end  cancelbbCB ()  */ 


*  VOID  CANCELRCB 

*********************************************************************** 


*<Begin> 

*<Identif ication> 
* 

* 

* 

_____  =  =  =  = 


Name:  cancelrCB 

Type :  C  void 

Filename :  visual . c 

Parent :  regn_optCB 


*<Description> 

*  Removes  a  widget  and  gets  the  Materials  Info  for  a  BLIRB  Region 
*<Called  routines> 

*  regn_mtll  -  sets  up  the  menu  for  selecting  the 

*  Materials  and  Densities 

*  regn_locCB  -  moves  the  region  to  the  desired  location 


*  Parameters  > 

*  Formal  declaration: 

*  void  cancelrCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 


* 

* 

* 

* 

* 

* 

* 


Input : 
w 

c 

call  data 


the  ID  of  the  widget  for  which  the 
callback  is  registered 
the  widget  to  be  removed 

a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 
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*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  cancelrCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

XtUnmanageChild( (Widget) c) ; 

if (in_change) 

{  regn_mtll(); 

regn_locCB (NULL,  &regn,  NULL) ; 


in_change  =  FALSE; 

}  /*  end  cancelrCB ()  */ 

/*********************************************************************** 

*  VOID  CANCELMCB 

t********************************************************************** 

*<Begin> 

*<  Identification 

* 

* 

* 


Name 

Type 

Filename 

Parent 


cancelmCB 
C  void 
visual . c 
regn__mtlCB 

*<Description> 

*  Removes  a  widget  and  incorporates  new  Region  Material  data. 
*<Called  routines> 

*  mtrllCB  -  Sets  the  Material  Density  (WMTL) . 

set_aerosol  -  sets  the  Aerosol  Material  values 

drawscene  -  Plots  the  3-D  BLIRB  grid  points,  albedo 

areas,  aerosol  regions,  and  the  output 
flux. 

*<Parameters> 

*  Formal  declaration: 

void  cancelmCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 

-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  widget  to  be  removed 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


w 


call  data 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  cancelmCB (Widget  w,  XtPointer  c,  XtPointer  call  data) 


Output : 
None 


{ 


static  int  index; 


XtUnmanageChild ( (Widget) c)  ; 
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if (in_change) 

{  index  =  10  *  cur_regn  +  cur_mtl; 
mtrllCB (menu,  &index,  NULL); 
if(cur_mtl  ==  0) 
set_aerosol () ; 
draws cene () ; 

} 


in_change  =  FALSE; 

}  /*  end  cancelmCBO  */ 


Name : 
Type: 


/*********************************************************************** 

*  VOID  CANCELMECB 
*********************************************************************** 

*<Begin> 

*<  Identification 

* 

* 

* 

* 

*<Description> 

*  Removes  a  widget  and  incorporates  new  Grid  Mesh  data. 

*<Called  routines> 


cancelmeCB 
C  void 
Filename :  visual . c 

Parent :  meshxmenuCB ,  meshymenuCB , 

meshzmenuCB 


* 

set_axis  J>ts 

-  sets  up  the  grid  points  for  the  X,  Y,  and 

* 

Z  axes. 

* 

regn_f ix 

-  rectifies  the  BLIRB  Region  location 

* 

area_f ix 

-  rectifies  the  Albedo  Area  location 

* 

draws cene 

-  Plots  the  3-D  BLIRB  grid  points,  albedo 

* 

areas,  aerosol  regions,  and  the  output 

* 

flux. 

*  Parameters  > 

*  Formal  declaration: 

void  cancelmeCB (  Widget  w,  XtPointer  c,  XtPointer  call__data) 
Input : 

w  -  the  ID  of  the  widget  for  which  the 

callback  is  registered 

c  -  the  widget  to  be  removed 

call_data  -  a  pointer  to  the  callback  structure  which 

contains  information  on  why  the  callback 
occurred 

Output : 

None 


* 

* 

* 

* 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  cancelmeCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

int  i/  j,  k,  m; 
float  sum; 


XtUnmanageChild ( (Widget) c) ; 
if (in_change) 
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*  -  Delete  any  Mesh  which  was  cataloged  for  deletion  in  "meshCB" . 


*/ 

{  for  ( i = 0 ;  i<3 ;  i++) 

{  if (mes_del_cnt [i]  >  0) 

{  if (mes_del_cnt [i]  >  1) 

{  for  ( j  =  0 ;  j< (mes_del_cnt [i] -1) ;  j++) 

{  for  (k=0 ;  k< (mes_del_cnt [i] -1) ;  k++) 

{  if (mes_del [i] [k+1]  >  mes_del [i] [kj ) 
{  m  =  mes_del[i]  [k+1]  ; 

mes_del [i] [k+1]  =  mes_del [i] [k] ; 
mes_del[i] [k]  =  m; 


for  ( j  =  0 ;  j <mes_del_cnt [i] ;  j++) 

{  for  (k=mes_del [i] [j] ;  kcmes [i] ;  k++) 

{  mes_ms[i] [k]  =  mes_ms[i] [k+1] ; 
mes_mh[i]  [k]  =  mes_mh[i]  [k+1]  ; 

mes  [i] ; 

} 

mes__del_cnt  [i]  =  0; 

/* - 

*  -  Add  the  Mesh  which  was  input  in  "meshCB "  . 


if (mes_add [i] [0]  >  0  &&  mes_add[i] [l]  >  0) 

{  for  (sum=0.0,  j=0;  j<=mes[i];  sum  +=  mes_mh[i] [j],  j++); 
if  ((sum  +  mes__add[i]  [1])  >  MAXXYZ) 
mes_add[i] [1]  =  MAXXYZ  -  sum; 


if (mes_add [i] [1]  > 
{  if (mes [i]  ==  0) 

{  mes_ms [i] [1]  = 
mes_mh[i]  [1]  = 
mes_ms  [i]  [0]  = 
mes_mh  [i]  [0]  = 
mes  [i] ++; 

} 


0.1) 

mes_ms [i] [0] ; 
mes_mh [i]  [0]  ; 
mes_add[i]  [0]  ; 
mes_add [i] [1] ; 


else 
{  m  =  0; 

for  ( j  =  0 ;  j<mes[i];  j++) 

{  if (mes_add [i] [0]  >  mes_ms [i] [j]) 
m  =  j+l; 


for  ( j=mes [i] ;  j>=m;  j--) 

{  mes_ms[i]  [j+l]  =  mes_ms  [i]  [j]  ; 
mes_mh[i]  [j+l]  =  mes_mh[i]  [j]  ; 

mes_ms[i]  [m]  =  mes_add[i]  [0]  ; 
mes_mh [i] [m]  =  mes_add[i] [l] ; 
mes[i]++; 
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mes  add[i] [0]  =  mes_add[i] [1]  =  -1; 


*  -  Get  the  new  major  and  minor  grid  points. 

★  - - 

*/ 

set_axis_pts  ()  ; 


*' -  Rectify  the  Regions  with  the  new  mesh. 


if(regn  >  0) 

{  for  (i=l ;  i<=regn;  i++) 
{  cur_regn  =  i; 
regn_fix() ; 


/* - 

*  -  Rectify  the  Areas  with  the  new  mesh. 


if (area  >  0) 

{  for  (i=l;  i<=area;  i++) 
{  cur_area  =  i; 
area  f ix ( ) ; 


*  -  Draw  the  new  scene  and  reset  the  "change"  flag. 


*/ 

draws cene ( ) ; 


in_change  =  FALSE; 

}  /*  end  cancelmeCBO  */ 

/*********************************************************************** 

*  VOID  CANCELFCB 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  cancelfCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  flar_optCB 

*  <Descript ion> 

*  Removes  a  widget  and  locates  the  Flare 
*<Called  routines> 

*  flar_locCB  -  moves  the  flare  to  the  desired  location 

*<Parameters> 

*  Formal  declaration: 

*  void  cancelfCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 
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call  data 


callback  is  registered 

-  the  widget  to  be  removed 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


* 

* 

* 

* 

* 

*  Output : 

*  None  N 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  cancelfCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 
XtUnmanageChild( (Widget) c) ; 
if (in_changef ) 

flar_locCB (NULL,  &flar,  NULL) ; 

in_changef  =  FALSE; 

}  /* *  end  cancelfCB ()  */ 

/*********************************************************************** 

*  VOID  CANCELSLCB 
*********************************************************************** 
*<Begin> 

*<  Identification  Name:  cancelslCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  srch_optCB 

*<Description> 

*  Removes  a  widget  and  locates  the  SearchLight 

*<Called  routines> 

*  srch_locCB  -  moves  the  Slite  to  the  desired  location 

*<Parameters> 

*  Formal  declaration: 

void  cancelslCB  (  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 


w 


call  data 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  widget  to  be  removed 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  cancelslCB (Widget  w,  XtPointer  c,  XtPointer  call  data) 
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XtUnmanageChild ( (Widget) c) ; 

if (in_changesl) 

srch  locCB (NULL,  NULL,  NULL) ; 


in__changesl  =  FALSE; 

}  /*  end  cancelslCBO  */  n 

/ *  VOID  OKFCB 


*<Begin> 

*<Identification> 


Name : 
Type : 
Filename: 
Parent : 


okf  CB 
C  void 
visual . c 
create__messagef 


* 

* 

* 

*<Description> 

*  Kills  the  widget  which  calls  it  then  calls  "newfile"  or  "fileopen" 
*<Called  routines > 

*  newfile  -  resets  the  inputs  to  initial  configuration 

*  fileopen  -  sets  up  the  "File  Select"  menu  for  new 

*  BLIRB  input  or  output  file 

*<Parameters> 

*  Formal  declaration: 

void  okfCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

Input : 


w 

c 

call  data 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  a  pointer  to  any  input  data  to  be  given  to 
the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


* 

* 

* 

* 

* 

* 

* 

* 

* 

★ 

* 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 


Output : 
None 


*/ 

void  okfCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 


{ 


if (f ilefctn  ==  2) 

{  XtCloseDisplay (XtDisplay (w) ) ; 
exit (0)  ; 

} 

XtUnmanageChild  (w)  ; 
XtDestroyWidget (w) ; 


if (f ilefctn  ==  0) 
newfile ( ) ; 

else  if (f ilefctn  ==  1) 
fileopen () ; 

}  /*  end  okfCB ()  */ 
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/*********************************************************************** 

*  VOID  OKCB 

************* ************************************* ********** *********** 

*<Begin> 

*<Identif ication>  Name:  okCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  create_message 

*<Description> 

*  Kills  the  widget  which  calls  it.  Used  to  remove  dialog  boxes 

*  without  any  action. 

*<Called  routines> 

*  None 

*<Parameters> 

*  Formal  declaration: 

void  okCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

Input : 

-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  a  pointer  to  any  input  data  to  be  given  to 
the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


w 

c 

call  data 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  okCB (Widget  w,  XtPointer  c,  XtPointer  call  data) 


Output : 
None 


{ 

XtUnmanageChild(w)  ; 
XtDestroyWidget (w) ; 

}  /*  end  okCB()  */ 


/*********************************************************************** 

*  VOID  FLUXCB 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  fluxCB 

*  Type :  C  void 

*  Filename:  visual. c 


Parent:  create  fluxmenu 


★ 

*<Description> 

*  Selects  the  particular  flux  field  for  display  and  redraws  the 

*  scene. 

*<Called  routines> 

*  plot_out_def 1  -  Creates  a  Widget  telling  the  user  what 

flux  info  he  is  viewing. 

drawscene  -  Plots  the  3-D  BLIRB  grid  points,  albedo 

areas,  aerosol  regions,  and  the  output 
flux. 
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*  Parameters  > 

*  Formal  declaration: 

*  void  f luxCB (  Widget  w 

*  Input : 

*  w 

* 

*  c 

*  call_data 

* 

* 


,  XtPointer  c,  XtPointer  call_data) 

the  ID  of  the  widget  for  which  the 
callback  is  registered 

an  index  to  indicate  the  flux  field  choice 
a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


* 

* 

* 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 


*<End>  ************ 


void  f luxCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

int  *n  =  (int  *)c; 
int  i,  ii; 


if ( *n  ==  -2) 

{  ii  =  -1; 

for  (i=0;  i < 1 0 ;  i++) 
{  if (f lux_flag [i]  ) 

ii  =  i; 

} 

if  (ii  ==  -1) 
ii  =  0; 

else  if (ii  ==  0) 
ii  =  9; 

else  if(ii  >  0) 

ii--; 


else  if (*n  ==  -1) 

{  ii  =  -1; 

for  ( i=0 ;  i<10;  i++) 
{  if (f lux_flag [i] ) 

ii  =  i; 

} 

if (ii  ==  -1) 
ii  =  0; 

else  if(ii  <  9) 
ii++; 

else  if(ii  ==  9) 
ii  =  0; 

} 

else  if (*n  ==  0) 

{  ii  =  -1; 

noflux  =  TRUE; 

} 

if(*n  >  0  &&  *n  <  11) 
ii  =  *n  -  1; 

for  ( i  =  0 ;  i<10;  i++) 
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{  if (i  ==  ii) 

{  flux_flag[i]  =  TRUE; 
noflux  =  FALSE; 

} 

else 

flux_flag[i]  =  FALSE; 


plot__out_def  1  {)  ; 
draws cene { ) ; 

}  /*  end  f luxCB ( )  */ 


*  VOID  CROSS_SECTIONCB 


*<Begin> 

*<  Identification 
* 

* 

* 


Name : 


Type: 
Filename : 
Parent : 


cross_sectionCB 
C  void 
visual . c 

create  csectmenu 


*<Description> 

*  Selects  the  Cross-Section  Plane  for  flux  display, 

*  menubar,  and  redraws  the  scene. 


recreates  the 


*<Called  routines> 

*  create_menubar 

* 

*  plot_out_def 1 

* 

*  drawscene 

* 

* 


creates  the  menubar  for  selecting  the 
various  options 

Creates  a  Widget  telling  the  user  what 
flux  info  he  is  viewing. 

Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


<Parameters> 

Formal  declaration: 

void  cross_sectionCB (Widget  w,  XtPointer  c,XtPointer  call  data) 
Input : 

w  -  the  ID  of  the  widget  for  which  the 

callback  is  registered 

c  -  an  index  to  indicate  the  flux  cross- 

section  choice 

ca^^_ciata  -  a  pointer  to  the  callback  structure  which 

contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94 

* 


AMSRL-BE-S  (505)  678-1570  .  Elton  P.  Avara 

Developed  the  original  source  code . 


*<End> 

*********************************************************************** 

*/ 

void  cross_sectionCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *n  =  (int  *)c; 
int  i; 


/* - 

*  -  Select  the  flux  cross-section  axis. 
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*/ 

for  (i=0;  i<3;  i++) 
{  if (*n  ==  i+1) 

cross_axis [i]  = 
else 

cross  axis  [i]  = 

} 


TRUE; 
FALSE ; 


/* - 

*  Destroy  the  current  menubar  widget  and  create  a  new  one  to 

*  account  for  the  new  cross-section  plane  value  options. 

*  _ 

*/ 

XtUnmanageChild  (menu) ; 
menu  =  create  menubar (form); 


/* - 

*  -  Redraw  the  scene. 


*/ 

plot_out_def  1  ( )  ; 
draws cene ( ) ; 

}  /*  end  cross_sectionCB ()  */ 


VOID  PLANECB 


*<Begin> 

*<  Identification 
* 

* 

* 


Name :  planeCB 

Type :  C  void 

Filename :  visual . c 

Parent :  create  cvaluemenu 


*<Description> 

*  Selects  the  Cross-Section  Plane  Value  for  flux  display  and  redraws 

*  the  scene. 


*<Called  routines> 

*  plot__out_def  1 

* 

*  draws cene 

* 

* 

*  _________________________ 


Creates  a  Widget  telling  the  user  what 
flux  info  he  is  viewing. 

Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 


*<Parameters> 

*  Formal  declaration: 

*  void  planeCB (  Widget 

*  Input : 

*  w 

* 

*  c 

* 

*  call_data 

* 

* 


w,  XtPointer  c,  XtPointer  call_data) 

the  ID  of  the  widget  for  which  the 

callback  is  registered 

an  index  to  indicate  the  flux  cross- 

section  plane  value  choice 

a  pointer  to  the  callback  structure  which 

contains  information  on  why  the  callback 

occurred 


*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 
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*<End> 

************************************************************************ 

*/ 

void  planeCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *n  =  (int  *)c; 
int  i,  ii; 

for(i=0;  i<3;  i++) 

{  if (cross_axis [i] ) 

{  ii  =  cross_value [i]  ; 

{  if (*n  ==  -2) 

{  if  (ii  ==  0) 

ii  =  out_imx[i]  -  1; 
else  if  (ii  >  0) 
ii--; 

} 

else  if (*n  ==  -1) 

{  if(ii  <  out_imx[i]  -  1) 
ii++; 

else  if (ii  ==  out_imx[i]  -  1) 
ii  =  0; 

} 

else  if(*n  >=  1  &&  *n  <=  out_imx[i]) 
ii  =  *n  -  1; 
else 

ii  =  out  imx[i]  -  1; 

} 


} 


cross  value [i] 

} 


ii; 


plot_out__def  1  ()  ; 
drawscene  ()  ; 

}  /*  end  planeCB ()  */ 


*  VOID  WAVECB 


*<Begin> 

*<Identif ication> 
* 

* 


* 


Name : 
Type: 
Filename : 
Parent : 


waveCB 
C  void 
visual . c 
create  wavemenu 


*<Description> 

*  Selects  the  Wave  Number  Value  for  flux  display  and  redraws  the 

*  scene. 


*===========—===== 

*<Called  routines> 

*  plot__out_def  1 

* 

*  drawscene 

* 

* 

*=____===_=;==__=:== 

*<Parameters> 


-  Creates  a  Widget  telling  the  user  what 
flux  info  he  is  viewing. 

-  Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 
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* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*  - 


Formal  declaration: 

void  waveCB (  Widget  w, 
Input : 
w 


XtPointer  c,  XtPointer  call  data) 


call  data 


the  ID  of  the  widget  for  which  the 
callback  is  registered 

an  index  to  indicate  the  flux  wavenumber 
choice  \ 

a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  waveCB  (Widget  w,  XtPointer  c,  XtPointer  call__data) 

int  *n  =  (int  *)c; 
int  i,  ii; 


n 


cur  nwave; 


{  if (*n  ==  -2) 

{  if (ii  ==  0) 

ii  =  out_nwave  -  1; 
else  if  (ii  >  0) 
ii--; 

} 

else  if (*n  ==  -1) 

{  if(ii  <  out_nwave  -  1) 
ii++; 

else  if(ii  ==  out_nwave 
ii  =  0; 

} 


i) 


else  if(*n  >=  1  &&  *n  <=  out_nwave) 
ii  =  *n  -  1; 
else 

ii  =  out__nwave  -  1; 


cur_nwave  =  ii; 

plot_out_defl ()  ; 
draws cene ( ) ; 

}  /*  end  waveCB ()  */ 


/*********************************************************************** 

*  VOID  NEWFCB 
************************************************************************* 
*<Begin> 

*<Identif ication>  Name:  newfCB 

*  Type :  C  void 

*  Filename:  visual . c 

*  Parent:  create_f ilemenu 
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*<Description> 

*  Decides  whether  or  not  to  call  "newfile" . 


*<Called  routines> 

*  create_messagef  -  draws  a  message  in  a  dialog  message  box 

*  and  continues  or  halts  the  current 

*  operation. 

*  newfile  -  resets  the  inputs  to  initial  configuration 


*<Parameters> 


Formal  declaration: 

void  newfCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 


w 


call  data 


Output : 
None 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 


*/ 

void  newfCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

static  char  *msg[]  =  { 

nThe  original  BLIRB  input  data  has  been\n", 

"  modified  and  not  saved  to  disk.\n" , 

"You  will  destroy  the  current  data  if  you  proceed!  \n", 
H=  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =:  =  =  =  =  =  =:  =  =  =  =  =  =  =  =:  =  =  =  =  =  =  =  =  =  =  =  =  \n”/ 
"  CONTINUE  to  proceed,  CANCEL  to  stop.\n" , 

}; 


filefctn  =  0;  - 


if (new_f ile) 

create__messagef  (  menu,  msg,  XmDIALOG_ERROR)  ; 
else 

newfile  ()  ; 

}  /*  end  newfCB ()  */ 


^ *  VOID  NEWFILE 


*<Begin> 

*<Identif ication> 


Name:  newfile 

Type :  C  void 

Filename:  visual. c 

Parent:  main,  newfCB,  okfCB 


*<Description> 

*  Resets  the  input  parameters  to  initial  configuration. 

*  =  =  =  =  =  =  =  =  _  =  _  ______  =  =  =  =  -  =  =  =  =  =  =  =  =  =  =  =  =  =  -  =  - 


*<Called  routines> 

*  getdata 

* 


processes  the  data  from  a  BLIRB  input  or 
output  file 
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*<Parameters> 

*  Formal  declaration: 

*  void  newf ile (void) 

*  Input : 

*  None 

*  Output :  ' 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*'  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  newfile  (void) 

{ 

int  i ; 

static  char  *fname  =  "grid__newf  ile .  i"  ; 

def_file  =  TRUE;  /*  Default  data  file  is  used  */ 

new_file  =  FALSE; 

nofile  =  FALSE; 
area__order  =  FALSE; 
regn_order  =  FALSE ; ' 
sun_jplot  =  TRUE; 

file_name  =  fname; 

blirb_in  =  TRUE; 
badfile  =  FALSE; 

noflux  =  TRUE; 
for  (i=0;  i<10;  i++) 
f lux__f  lag  [i]  =  FALSE; 

ilcl  =  0; 

mdll  =  0; 
mdll_iaersl  =  0; 
mdll_model  =  6; 
mdll_ivis  =  1; 
mdll_iseasn  =  0; 
mdll_ivulcn  =  1; 

mdl2  =  0; 
mdl2_sn  =  0.8; 

mdl2_t bound  =  288.2;  .  . 

mdl2__ialb  =  -1; 
mdl2_ip  =  0; 
cur_ialb  =  mdl2__ialb; 

mdl3  =  -1; 
mdl3__t  [0]  =  288.2; 
mdl3_t [1]  =  281.8; 
mdl3_t [2]  =  275.2; 
mdl3_t [3]  =  268.8; 

mdl3_t [4]  =  262.8; 
md!3  t[5]  =  255.8; 
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area  =  0 ; 
area_alx[0]  = 
area_ahx[0]  = 
area_aly[0]  = 
area_ahy[0]  = 
area_iamtl [0] 

regn  =  0; 
regn_rlx[0]  = 
regn^rhx [ 0 ]  = 
regn_rly[0]  = 
r egn_rhy [ 0  ]  = 
regn_rlz[0]  = 
regn_rhz [ 0 ]  = 
regn_izmtl [0] 
regn_rl [0] [0] 
regn_rh[0]  [0] 
regn_rl  [1]  [0] 
regn_rh-[l]  [0] 
regn_rl[2]  [0] 
regn_rh[2]  [0] 


0.0; 
5.0; 
0.0; 
4.0; 
=  l; 


0.0; 

5.0; 

0.0; 

4.0; 

0.0; 

5.0; 

=  0; 

=  regn_rlx[0]; 
=  regn_rhx[0]; 
=  regnjrly [0]  ; 
=  regn__rhy[0]  ; 
=  regn_rlz [ 0 ] ; 
=  regn_rhz[0]; 


mesx  =  0; 

mesx_mhx[0]  =  2.0  *  regn_rhx[0]; 
mesx_xms [ 0 ]  =  regn__rhx  [0]  ; 
mes[0]  =  mesx; 

mes_mh  [0]  [mesx]  =  mesx_mhx  [mesx] 
mes_ms[0]  [mesx]  =  mesx_xms  [mesx] 


mesy  =  0 ; 

mesy_jnhy[0]  =2.0  *  regn_rhy[0]; 
me  sy_yms [ 0 ]  = r egn_rhy [  0  ]  ; 
mes[l]  =  mesy; 

mes_mh[l] [mesy]  =  mesy_mhy [mesy] 
mes__ms  [1]  [mesy]  =  mesy_yms  [mesy] 

mesz  =  0; 

mesz_mhz  [0]  =2.0*  regn__rhz  [0]  ; 
mesz__zms  [0]  =regn_rhz  [0]  ; 
mes[2]  =  mesz; 

mes_mh[2] [mesz]  =  mesz_mhz [mesz] 
mes_ms [2] [mesz]  =  mesz_zms [mesz] 

albd  =  0; 
albd__lalb  [0]  =  1; 
albd_falb[0]  =  0.2; 

mtrl  =  -1 ; 


elds  =  0; 
clds__icld  =  0 
clds_ibnd  =  1 
elds  wind  =  0 


domd  =  0 ; 
domd__isc  =  2  ; 
domd_iitl  =  10; 
domd_epsi  =  0.002; 
domd_i delta  =  1; 
domd_npts  =  5; 


sun  =  0; 
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sun_thsun  =  0.0; 
sun_phsun  =  0.0; 
sun_if sun  =  1 ; 
sun_isky  =  0; 
sun_iftrn  =  0; 

flar  =  -1; 
srch  =  -1; 


wavn  =  0; 

wavn_vl  = 

10000; 

wavn_v2  = 

25000; 

wavn_dv  = 

15; 

wavn_indx 

=  0; 

asci  =  0; 

asci_irite 

=  3; 

reel  =  0 ; 

recl^irpt 

done  =  0 ; 

=  l; 

getdata ( ) ; 

}  /*  end  newfileO  */ 


^  *  VOID  SAVEFILECB 


*<Begin> 

*<Identif ication>  Name:  savefileCB 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent:  create_f ilemenu 

*<Description> 

*  Saves  the  current  inputs  to  a  file  with  the  current  input  filename 

*  after  saving  the  current  input  file  under  the  same  filename  with 

*  an  extension  n.bak" . 


*<Called  routines> 

*  writecards 

*  create_message 

*  drawscene 

* 

* 


-  writes  the  input  cards  to  a  file 

-  draws  a  message  in  a  dialog  message  box 

-  Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 


*  <Parame ters  > 

*  Formal  declaration: 

*  void  savefileCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  the  data  passed  to  the  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
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*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  savefileCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

char  command [200] ; 
static  char  *msg[j  =  { 

»  ii 

t 

»  11 

/ 

"  IT 

/ 

"  11 


if ( ! nofile) 

{  if (blirb_in) 

{  strcpy (command, 
s treat (command, 
s treat (command, 
streat (command, 
s treat (command, 


"mv  "); 
file_name)  ; 

M  .. )  . 

f  ile_name)  / 
"  .bak\n") ; 


system (command) ; 
writecards () ; 


new  file  =  FALSE; 

}  " 
else 

{  sprintf (msg [0]  ,  " 
sprintf (msg [1] ,  " 
sprintf  (msg  [2]  ,  11 
sprintf (msg [3]  ,  " 


Inputs  were  obtained  from  an  Output  File.\n"); 
Inputs  must  be  saved  in  an  Input  File.\nn); 
Select  <Save  File  As>  option  under  <File> . \n" ) ; 
Input  cards  NOT  Saved. \n" ); 


create^message ( 


else 

{  sprintf (msg [0]  ,  " 
sprintf (msg [1]  ,  " 
sprintf (msg [2]  ,  H 
sprintf (msg [3]  ,  " 


menu,  msg,  XmD I ALOG_ERROR ) ; 


No  filename  specif ied. \n" ) ; 

Select  <Save  File  As>  option  xander 
Input  cards  NOT  Saved. \nM ); 

\n" )  ; 


<File> . \n" ) ; 


create_message (  menu,  msg,  XmDIALOG_ERROR) ; 


draws cene () ; 

}  /*  end  savefileCB ()  */ 


/*********************************************************************** 

*  VOID  SAVE F I LEAS C B 

*<Begin> 

*<Identif ication>  Name :  savef ileasCB 

*  Type:  C  void 

*  Filename:  visual . c 

*  Parent:  create_f ilemenu 

*<Description> 

*  Creates  a  "Save  Filename"  Text  Widget. 

*<Called  routines> 
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* 

* 


ge t  f i 1 enameCB 
draws cene 


* 

* 

* 

★ 


-  gets  the  specified  filename  and  checks  to 
make  sure  it  is  an  input  filename 

-  Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 


*<Parameters>  v 

*  Formal  declaration: 

*  void  savefileasCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


Input : 

f ilepane 

c 

call  data 


Output : 
None 


the  ID  of  the  widget  for  which  the 
callback  is  registered 
the  data  passed  to  the  function 
a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  savefileasCB (Widget  f ilepane,  XtPointer  c,  XtPointer  call_data) 

{ 

Widget  forml,  labell,  textl; 
int  n; 

Arg  wargs [10] ; 


/* - 

*  -  Use  the  Widget  " f ile_dialogn  to  create  a  Bulletin  Board  Dialog 

*  Widget  with  that  ID. 


*/ 

n  =  0  ; 

XtSetArg (wargs [n] ,  XmNdialogStyle,  XmDIALOG_MODELESS) ;  n++; 

XtSetArg (wargs [n] ,  XmNwidth,  400);  n++; 

XtSetArg (wargs [n] ,  XmNheight,  65);  n++;  - 

file_dialog  =  XmCreateBulletinBoardDialog (  filepane,  "Save  Filename", 
wargs,  n) ; 


forml  =  XtCreateManagedWidget ( " forml " ,  xmFormWidgetClass , 
file_dialog,  NULL,  0) ; 

labell  =  XtCreateManagedWidget ( "Filename ,  xmLabelWidgetClass , 
forml,  NULL,  0) ; 


n  =  0; 

XtSetArg  (wargs [n] ,  XmNle ft Attachment ,  XmATTACH_WIDGET) ;  n++; 
XtSetArg  (wargs [n] ,  XmNrightAttachment ,  XmATTACH_FORM) ;  n++; 
XtSetArg  (wargs [n] ,  XmNlef tWidget ,  labell);  n++; 
textl  =  XmCreateText (forml,  "textl",  wargs,  n) ; 

XtAddCallback  (textl,  XmNactivateCallback,  getf ilenameCB,  NULL) ; 
XtManageChild  (textl) ; 


/* - 

*  -  Realize  the  Filename  Input  Text  Widget. 

*  _ 

*/ 

XtManageChild (f ile_dialog) ; 
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draws cene () ; 

}  /*  end  savef ileasCB ( )  */ 


/*********************************************************************** 

*  VOID  GETFILENAMECB 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name :  getf ilenameCB 

*  Type:  C  void 

*  Filename :  visual . c 

*  Parent:  savef ileasCB 

*=== _ _ _ _ _ _ _ _ =  =  =  == _ == _ =  =  == _ 


*<Description> 

*  Gets  the  BLIRB  "Save"  filename  and  checks  the  file  type  for  input 

*  or  output . 


*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 

*  writecards  -  writes  the  BLIRB  input  cards  to  a  file 

*  drawscene  -  Plots  the  3-D  BLIRB  grid  points,  albedo 

*  areas,  aerosol  regions,  and  the  output 

*  flux. 


*<Parameters> 


Formal  declaration: 

void  getf ilenameCB 
Input : 
w 


call  data 


Widget  w,  XtPointer  c,  XtPointer  call_data) 

-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  input  from  the  calling  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 


*/ 

void  getf ilenameCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

char  *filestring,  *ptr; 
static  char  *exten  =  { "  .  i"}; 

Boolean  inputfile; 
int  i ; 

static  char  *error_mesg []  =  { 

"Specified  Filename  is  not  appropriate  for  Input. \n", 
"Please  try  a  Filename  with  a  <.i>  extension . \n" , 


/* - - - - - 

*  -  Remove  the  Filename  Input  Text  Widget  from  the  screen. 

*  _  _ 

*/ 

XtUnmanageChild (f ile_dialog) ; 


/* - - - 

*  -  Get  the  selected  BLIRB  data  filename,  then  check  the  filename  to 
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*  find  out  whether  or  not  it  is  input. 

*  _ 

*/ 

if (  (filestring  =  XraTextGetString (w) )  !=  NULL); 

{  ptr  =  filestring;  /*  A  filename  was  entered  */ 

for  ( i=0 ;  i<strlen (filestring) ;  i++,  ptr++)  s 
{  if (ptr [0]  ==  exten[0]) 

{  ptr++; 

if (ptr [0]  ==  exten[l]) 
inputfile  =  TRUE; 
else 

inputfile  =  FALSE; 


*  If  the  datafile  is  not  input,  display  an  error  message  in  a  box. 

*  If  the  datafile  is  input,  then  write  the  cards  to  the  file. 

*  _ 

*/ 

if ( 1 inputfile) 

create_message (  w,  error_mesg,  XmDIALOG_ERROR) ; 
else 

{  file_name  =  filestring; 
writecards () ; 
new  file  =  FALSE; 


draws cene ( ) ; 

}  /*  end  getf ilenameCB ()  */ 


VOID  CLOUD_OPTCB 


*<Begin> 

*<Identif ication>  Name:  cloud_optCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  create_modifymenu 

*<Description> 

*  Selects  the  various  Cloud  Options  for  BLIRB 


*<Called  routines> 

*  create_jrowcol 

*  cancelCB 

*  create_separator 

*  create_radiobox 

*  create_togglebutton 

*  create_scale 

*  cloudCB 


creates  a  Rowcol  Widget 
removes  the  Rowcol  Widget 
creates  a  Separator  Widget 
creates  a  Radiobox  Widget 
creates  a  Togglebutton  Widget 
creates  a  Scale  Widget 

Set  the  input  parameters  of  the  CLDS  card 


*<Parameters> 

*  Formal  declaration: 

*  void  cloud_optCB(  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  the  data  passed  to  the  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 
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★ 


occurred 


*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*/ 

void  cloud_optCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

Widget  radio[2],  toggle [5] ,  rowcol,  label  [11] ,  scale; 

Arg  wargs [15] ; 
int  n,  i,  j ,  k; 

static  int  index [6],  hv,  sd,  nc,  wid,  min,  max,  inc,  dec,  val,  swid; 
static  int  net [2]  =  {  3,  2  }; 

static  char  cat_label [2] [32]  =  {  "Cloud  Structure", 

"Aerosol  Outside  Physical  Region"  }; 
static  char  tog_label[5] [29]  =  {  "No  Cloud",  "Rectangular  Structure", 

"CSS  Model",  "Background  Aerosol", 
"Periodic  Boundary  Conditions"}; 
static  char  scale_label [17]  =  "Wind  Speed  (mps) " ; 

static  char  numb [11] [3]  =  {  "0",  "5",  "10",  "15",  "20",  "25",  "30", 

"35",  "40",  "45",  "50"  }; 

/* - - - - - 

*  -  Create  a  RowColumn  Widget 

*  _ _ _ _ _ _ _ _ _ _ _ _ 

*/ 

rowcol  =  create^rowcol  (w,  "Cloud__Options "  ,  cancelCB)  ; 

/* - 

*  -  Create  the  radioboxes  and  toggles 


*/ 

hv  =  0  ; 
sd  =  2; 
nc  =  1; 
k  =  0  ; 

for  ( i  =  0 ;  i<2;  i++) 

{  create_separator (rowcol,  &hv,  &sd) ; 

radio [i]  =  create_radiobox (rowcol,  &nc,  cat_label [i] ) ; 

for  ( j  =  0  ,*  j <nct  [i]  ;  k++,  j++) 

{  index [k]  =  10*i  +  j; 

toggle [k]  =  create_togglebutton (radio [i]  ,  tog_label [k] ,  &index[k], 
cloudCB) ; 


if (elds  ==  0) 

{  if (i  ==  0) 

{  j  clds_icld; 
if ( j  >  0) 
j--; 

XmToggleButtonSetState (toggle [j] ,  TRUE,  FALSE); 
else 

XmToggleButtonSetState (toggle [3+ (int)  clds_ibnd] ,  TRUE,  FALSE); 


340 


Create  the  Scale 


create_separator (rowcol,  &hv,  &sd) ; 
k++; 

index [k]  =  20; 
wid  =  560; 
min  =  0 ; 
max  ~  500; 
inc  =  0 ; 
dec  =  1; 
if (elds  ==  0) 

val  =  10 . 0*clds_wind; 
else 

val  =  0; 
swid  =  538; 

scale  =  create_scale (rowcol ,  scale_label,  &wid,  &min,  &max,  &inc, 

&dec,  &val,  &swid,  &index [k] ,  cloudCB); 

for  ( j  =  0 ;  jell;  j++) 

{  n  =  0; 

XtSetArg  (wargs [n] ,  XmNwidth,  45);  n++; 

label  [j]  =  XmCreateLabel (scale,  numb[j],  wargs,  n); 

XtManageChildren (label ,  11) ; 

}  /*  end  cloud_optCB ( )  */ 

/***********************★★*************★******************************** 

*  VOID  CLOUDCB 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  cloudCB 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent :  cloud_optCB 

*<Description> 

*  Sets  the  input  parameters  of  the  CLDS  card 

*<Called  routines> 

*  None 

*  <Parameters  > 

*  Formal  declaration: 

*  void  cloudCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  pointer  to  the  data  passed  to  the  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 
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*<End> 

*********************************************************************** 

*/ 

void  cloudCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *n  =  (int  *)c; 
int  i,  j,  value; 

XmScaleCallbackStruct  *  call_value  = 

(XmScaleCallbackStruct  * )  call_data ; 

value  =  call_value  ->  value; 

i  =  (*n)/lO;  /*  RadioBox  category  */ 

j  =  (*n)  %  10;  /*  Toggle  button  pushed  */ 

if (elds  <  0) 

{  elds  =  0; 

clds_icld  =  0.0; 
clds__ibnd  =  0.0; 
elds  wind  -  0.0; 

} 

if (i  ==  0) 

{  if ( j  ==  0) 

clds_icld  =  j ; 
else 

elds  icld  =  j+1; 

} 

else  if (i  ==  1) 
clds_ibnd  =  j ; 
else  if (i  ==  2) 

clds_wind  =  0.1  *  (float) value ; 

new_file  =  TRUE; 

}  /*  end  cloudCB {)  */ 

/*************************************************************++++^++^.^^ 

*  VOID  MODEL_OPTCB 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name :  model_optCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  create_modifymenu 

*<Description> 

*  Sets  the  various  Model  Options  for  BLIRB  on  MDL1 ,  MDL2  and  MDL3 

*  cards . 

-  creates  a  BulletinBoard  Widget 

-  removes  the  BulletinBoard  Widget 

-  creates  a  Separator  Widget 

-  creates  a  Radiobox  Widget 

-  creates  a  Togglebutton  Widget 

-  creates  a  Scale  Widget 

-  sets  the  Aerosol  Options  for  IAERSL 

-  sets  some  of  the  input  parameters  on  the 
MDL1  and  MDL2  cards 

*  <Parameters  > 

*  Formal  declaration: 


*<Called  routines> 

*  create_bboard 

*  cancelCB 

*  create_separator 

*  create_radiobox 

*  create_togglebutton 

*  create_scale 

*  aerosol_optCB 

*  modelCB 
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void  model_optCB I 
Input : 


call  data 


Output : 
None 


Widget  w,  XtPointer  c,  XtPointer  call_data) 

-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  model_optCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

^  Widget  radio [5] ,  toggle  [20],  button,  bboard,  rowcol,  rowcoll,  rowcol2, 
rowcol3,  rowcol4,  label [11] ,  scale; 

Arg  wargs [15] ; 
int  n,  i,  j,  k; 

static  int  index [21],  hv,  sd,  nc,  wid,  inc,  dec,  val,  swid; 
static  int  net  [5]  =  {  7,  2,  3,  3,  5  }; 

static  char  cat_label[5]  [26]  =  {  "Temperature  Profile  Model", 

"Meteorological  Range", 

"Tropospheric  Profile", 

"Albedo" , "Aerosol  Profile  Printout"}; 
static  char  tog_label [20] [33]  =  {  "Tropical  Atmosphere", 

"Midlatitude  Summer", 

"Midlatitude  Winter", 

"Subarctic  Summer", 

"Subarctic  Winter", 

"1976  U.S.  Standard", 

"User  Defined  Temperature  Profile", 
"Met  Range  <  5  km" , 

"Met  Range  <  50  km", 

"Set  by  Meteorological  Range", 

" Spring- Summer " ,  "Fall-Winter", 

"Wave  Independent,  User-defined", 
"Wave  Independent,  Tabulated", 
"Spectral",  "None", 

^Ext  Coefs  Sc  Scale  Factors", 

"Adds  Cross_sections  to  Printout", 
"Adds  Scatr  &  Absorption  Coefs", 
"Full  Details"  }; 

static  char  scale_label [24]  =  "Surface  Temperature  (K) " ; 
static  int  min  =  2200; 
static  int  max  =  32  00; 

static  char  numb [11] [4]  =  {  "220",  "230",  "240",  "250",  "260",  "270", 

"280",  "290",  "300",  "310",  "320"  }; 


*  -  Create  a  Bulletin  Board  Widget 


bboard  =  create  bboard (w,  "Model  Options"); 


*  -  Create  a  RowColumn  Widget,  "rowcol". 
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*/ 

n  =  0 ; 

XtSetArg (wargs [n] #  XmNorientation,  XmVERTICAL) /  n++; 
rowcol  =  XtCreateManagedWidget ( "Model_Opt ions " , 

xmRowColumnWidgetClass,  bboard,  wargs,  n) / 

/* - - - 

*  -  Create  two  RowColumn  Widgets,  "rowcol3"  and  "rowcol4",  within 

*  "rowcol". 


*/ 

n  =  0; 

XtSetArg (wargs [n] ,  XmNorientation,  XmHOR I Z ONTAL ) ;  n++; 
rowcol3  =  XtCreateManagedWidget ( " Mode l_Opt ions" , 

xmRowColumnWidgetClass ,  rowcol,  wargs,  n)  ; 

hv  =  0; 

Sd  =  2 ; 

create__separator  (rowcol ,  &  hv,  &sd)  ; 
n  =  0  ; 

XtSetArg (wargs [n] ,  XmNorientation,  XmVERTICAL);  n++; 
rowcol4  =  XtCreateManagedWidget ( " Mode l_Opt ions " , 

xmRowColumnWidget Class ,  rowcol,  wargs,  n) ; 


/* - 

*  -  Create  a  RowColumn  Widget ,  "rowcoll",  within  "rowcol3. 

*  _ 

*/ 

n  =  0; 

XtSetArg (wargs [n] ,  XmNorientation,  XmVERTICAL);  n++; 
rowcoll  =  XtCreateManagedWidget ( "Model_Options " , 

xmRowColuranWidgetClass ,  rowcol3,  wargs,  n) ; 

/* - - - - - 

*  -  Create  a  f inishbutton,  attach  it  to  "rowcoll",  and  realize  it. 

*  _ 

*/ 

n  =  0; 

button  =  XmCreatePushButton (rowcoll, "Finished  with  Selections",  wargs, 
n)  ; 

XtAddCallback  (button,  XmNactivateCallback,  cancelCB,  bboard) ; 
XtManageChild  (button) ; 


/* - 

*  -  Create  a  Aerosol  button,  attach  it  to  "rowcoll",  and  realize  it. 

*  _ 

*/ 

hv  =  0  ; 
sd  =  2  ; 

create_separator (rowcoll,  &hv,  &sd) ; 
n  =  0; 

button  =  XmCreatePushButton (rowcoll, "Aerosol  Selections",  wargs,  n) ; 
XtAddCallback  (button,  XmNactivateCallback,  aerosol_optCB,  bboard) ; 
XtManageChild  (button) ; 


/* - 

*  -  Create  the  radioboxes  and  toggles  for  this  RowColumn  Widget 

*/ 
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nc  =  1; 
k  =  0  ; 

for  (i=0 ;  i<2;  i++) 

{  create_separator (rowcoll ,  &hv,  &sd)  ; 

radio  [i]  =  create_radiobox (rowcoll,  &nc,  cat__label  [i]  )  ; 

for  ( j  =  0 ;  j <nct [i] ;  k++,  j++) 

{  index [k]  =  10*i  +  j ; 

toggle [k]  =  create_togglebutton (radio [i] ,  tog_label  [k] ,  &index  [k]  , 
modelCB) ; 

} 

if (mdll  ==  0) 

{  if(i  ==  0) 

j  =  (int)  mdll_model; 
else  if(i  ==  1) 

j  =  7  +  metrng_indx; 

XmToggleButtonSetState (toggle [ j -1] ,  TRUE,  FALSE) ; 


*  -  Create  another  RowColumn  Widget,  nrowcol2n,  within  nrowcol3". 


*/ 

h v  =  1 ; 

create_separator (rowcol3 ,  &hv,  &sd) ; 
n  =  0 ; 

XtSetArg (wargs [n] ,  XmNorientation,  XmVERTICAL) ;  n++; 
rowcol2  =  XtCreateManagedWidget  ( "Model__Options_  (continued)  11 , 
xmRowColumnWidgetClass,  rowcol3,  wargs,  n) ; 


/* - 

*  -  Create  the  rest  of  the  radioboxes  and  toggles 


*/ 

hv  =  0  ; 

for  ( i=2 ;  i<5;  i++) 

{  create_separator (rowcol2,  &hv,  &sd) ; 

radio[i]  =  create_radiobox (rowco!2 ,  &nc,  cat_label [i] ) ; 

for  ( j  =  0 ;  j <nct [i]  ;  k++,  j++) 

{  index [k]  =  10*i  +  j; 

toggle [k]  =  create_togglebutton (radio [i]  ,  tog_label [k] ,  &index [k] , 
modelCB) ; 

} 

if (mdll  ==  0  &&  i  ==  2) 

{  j  =  10  +  (int)  mdll__iseasn; 

XmToggleButtonSetState (toggle [j -1] ,  TRUE,  FALSE) ; 

} 

if (mdl2  ==  0) 

{  if  (i  ==  3) 

j  =  14  +  (int)  mdl2_ialb; 
else  if (i  ==  4) 

j  =  16  +  (int)  mdl2__ip; 

XmToggleButtonSetState (toggle  [ j -1]  ,  TRUE,  FALSE)  ; 
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/* - - — . 

* - Create  the  Scale  in  ,,rowcol4" . 


*/ 

index [k]  =  50 ; 
wid  =  54  0; 
inc  =  0 ; 
dec  =  1; 
if (mdl2  ==  0) 

val  =  10 . 0*mdl2_tbound; 
else 

val  =  min; 
swid  =  538; 

scale  =  create__scale  (rowcol4 ,  scale_label,  Swid,  &min,  &max,  &inc, 
&dec,  &val,  &swid,  &index [k] ,  modelCB) ; 

for  ( j  =  0  ;  j <11 ;  j++) 

{  n  =  0; 

XtSetArg  (wargs [n] ,  XmNwidth,  45);  n++; 

label  [j]  =  XmCreateLabel (scale,  numb[jj,  wargs,  n) ; 

XtManageChildren (label ,  11); 

}  /*  end  model_optCB ( )  */ 


/*********************************************************************** 

*  VOID  AEROSOL_OPTCB 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name :  aerosol_optCB 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent :  model_optCB 

*<Description> 

*  Presents  the  various  Aerosol  Options  for  IAERSL  on  the  MDL1  card 


^cCalled  routines> 
e  create__rowcol 

e  cancelCB 

e  create_radiobox 

f  create_togglebutton 

r  aerosolCB 


creates  a  Rowcol  Widget 

removes  the  Rowcol  Widget 

creates  a  Radiobox  Widget 

creates  a  Togglebutton  Widget 

Set  one  of  the  input  parameters  of  the 

MDL1  card  (IAERSL) 


^Parameters > 
r  Formal  declaration: 

r  void  aerosol_optCB ( 

r  Input : 


call  data 


Widget  w,  XtPointer  c,  XtPointer  call_data) 

the  ID  of  the  widget  for  which  the 

callback  is  registered 

the  data  passed  to  the  routine 

a  pointer  to  the  callback  structure  which 

contains  information  on  why  the  callback 

occurred 


Output : 
None 


k’<History> 

r  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
r  Developed  the  original  source  code . 
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*<End> 

*********** 


1 

void  aerosol_optCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

Widget  radio,  toggle [12],  rowcol;  n 

int  j  ; 

static  int  index[12],  nc; 

static  char  cat_label [20]  =  MAFGL  Aerosol  Models"; 

static  char  tog_label  [12]  [30]  =  {  "Default  aerosol",  "No  aerosols", 
"Rural  aerosol  >"  / 

"Urban  aerosol  >"  / 

"Maritime  aerosol  >", 

"Tropospheric  aerosol  >", 

•'Fog  >" ,  "Soot-like  aerosols", 

"Oceanic  component  of  maritime", 

"Background  stratospheric", 

"Volcanic  >",  "Meteoric  dust"  }; 


Create  a  RowColumn  Widget 


rowcol  -  create  rowcol (menu,  "AFGL  Aerosol_Models " ,  cancelCB) ; 


Create  the  radiobox  and  toggles 


*/ 

nc  =  1; 


radio  =  create  radiobox (rowcol ,  &nc,  cat_label) ; 


for  ( j  =  0  ;  j  <12 ;  j++) 

{  index  [j]  =  j; 

toggle  [  j ]  =  create_togglebut ton (radio,  tog_label [ j ] ,  &index [ j ] , 

aerosolCB) ; 


if (mdll  ==  0) 

{  if (mdll_iaersl  <  1) 

j  =  mdll_iaersl  +  1; 
else  if (mdll_iaersl  ==  1  | \ 
j  =  2  ; 

else  if (mdll_iaersl  ==  2  ] | 

j  =  3; 

else  if (mdll_iaersl  ==  4  | | 

j  =  4  ; 

else  if (mdll  iaersl  ==  6  ] | 


(mdll_iaersl  >  14  &&  mdll_iaersl  <  23)) 
(mdll_iaersl  >  30  &&  mdll_iaersl  <  39) ) 
(mdll_iaersl  >  22  &&  mdll_iaersl  <  31) ) 
(mdll  iaersl  >  38  &&  mdll  iaersl  <  47)) 


3  =  5;  , 

else  if (mdll_iaersl  >  10  &&  mdll_iaersl  <  15) 
j  =  6; 

else  if (mdll_iaersl  ==  3) 
j  =  7; 

else  if  (mdll__iaersl  ==  5) 
j  =  8; 

else  if (mdll_iaersl  ==  7) 
j  =  9; 

else  if (mdll_iaersl  >  7  &&  mdll_iaersl  <  10) 

j  =  10; 

else  if (mdll_iaersl  ==  10) 
j  =  ll; 
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XmToggleButtonSetState (toggle [j] ,  TRUE,  FALSE); 


/* 


end  aerosol_optCB ( ) 


>/ 


j*********************************************************************** 

*  VOID  SPECT1MENUCB 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name :  spectlmenuCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  create_spectmenu 

*<Description> 

*  Creates  the  "Spectral  Range  Intervals"  options  selection  radiobox 

*  menu  widget . 

*<Called  routines> 

*  create_rowcol  -  creates  a  Rowcol  Widget 

cancelCB  -  removes  the  Rowcol  Widget 

create_separator  -  creates  a  Separator  Widget 

create_radiobox  -  creates  a  Radiobox  Widget 

create_togglebutton  -  creates  a  Togglebutton  Widget 
spect_optCB  -  creates  the  various  Spectral  Range  scales 

*<Parameters> 

*  Formal  declaration: 

void  spectlmenuCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 


w 


call  data 


Output : 
None 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


* 

* 

* 

* 

* 

* 

* 

* 

* 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  spectlmenuCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *indx  =  (int  *)c; 

Widget  radio,  toggle [5],  rowcol; 
int  n,  j; 

static  int  index [5],  hv,  sd,  nc; 

static  char  cat_label[2] [34]  =  {  "Wavenumber  Interval  (per  cm)", 

"Wavelength  Interval  (micrometers)"}; 
static  char  tog_label [10] [24]  =  {  "Visible:  8000  -  28000", 

"Near  IR:  3000  -  13000", 

"Mid  IR:  1200  -  5200", 

"Far  IR:  500  -  1500", 

"2  Color  IR:  600  -  3600", 

"Visible:  0.3  -  1.3", 

"Near  IR:  0.7  -  3.2", 

"Mid  IR:  2.0  -  7.0", 

"Far  IR:  6.0-16.0", 
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2  Color  IR:  3.0  -  13.0"  }; 


/* - - - 

*  -  Create  a  RowColumn  Widget 

*  _ 

*/ 

rowcol  =  create_rowcol  (w,  11  Spec tral_Interval_Opt ions "  ,  cancelCB)  ; 


/* - 

*  -  Create  the  radioboxes  and  toggles 


*/ 

hv  =  0; 
sd  =  2  ; 

create_separator (rowcol,  &hv,  &sd) ; 
nc  =  1; 

radio  =  create_radiobox (rowcol ,  &nc,  cat_label [*indx]  ) ; 

for  ( j  =  0 ;  j <5 ;  j++) 

{  n  =  index [j]  =  5*(*indx)  +  j; 

toggle  [j]  =  create_togglebut ton (radio,  tog_label [n] ,  &index[j], 
spect_optCB) ; 


if (wavn_indx  >=  0  &&  wavn_indx  <  5) 

XmToggleButtonSetState (toggle [wavn_indx] ,  TRUE,  FALSE) ; 
}  /*  end  spectlmenuCB ()  */ 


/***************★****★***************************★********************** 

*  VOID  AEROSOLCB 

*<Begin> 

*<Identif ication>  Name:  aerosolCB 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent :  aerosol_optCB 


*<Description> 

*  Sets  the  input  parameter  IAERSL  of  the  MDLl  card 


*<Called  routines> 

*  aeroO 

* 

*  aerol 

*  aero2 

*  aero3 

★--————---———————-j 


Presents  the  AFGL  Rural,  Urban,  and 
Tropospheric  Aerosol  Options . 

Presents  the  AFGL  Maritime  Aerosol  Options 
Presents  the  AFGL  Fog  Aerosol  Options. 
Presents  the  AFGL  Volcanic  Aerosol  Options 


*<Parameters> 


Formal  declaration: 

void  aerosolCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 

-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  pointer  to  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


w 


call  data 


Output : 
None 


*<History> 
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* 

★ 


09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  aerosolCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

int  *n  =  (int  *)c; 
static  int  index; 

'if (mdll  <  0) 

{  mdll  =  0; 

mdll_iaersl  =  0.0; 
mdll_model  =  6.0; 
mdll_ivis  =  1.0; 
mdll_iseasn  =  0.0; 
mdll  ivulcn  =  1.0; 

} 


index  =  -1; 


if ( (*n)  <  2) 

mdll_jLaersl  =  (*n)  -  1; 
else  if ( (*n)  <  4) 

{  index  =  (*n)  -  2; 
aeroO (&index) ; 

} 

else  if ( (*n)  ==  4) 
aerol  ()  ; 

else  if ( (*n)  ==  5) 

{  index  =  2 ; 
aeroO (&index) ; 

} 

else  if ( (*n)  ==  6) 
aero2 ( ) ; 

else  if ( (*n)  ==  7) 
mdll_iaersl  =  3; 
else  if ( (*n)  ==  8) 
mdll_iaersl  =  5; 
else  if ( (*n)  ==  9) 
mdll_iaersl  =  7; 
else  if ( (*n)  ==  10) 
aero3 ( ) ; 

else  if ( (*n)  ==  11) 
mdll_iaersl  =  10; 


new_file  =  TRUE; 

}  /*  end  aerosolCB ()  */ 


VOID  AEROO 


*<Begin> 

*<Identif ication> 
* 

* 

* 


Name : 
Type: 
Filename : 
Parent : 


aeroO 
C  void 
visual . c 
aerosolCB 


*<Description> 

*  Presents  the  AFGL  Rural,  Urban,  and  Tropospheric  Aerosol  Options. 
=  =  =  —  =  =  =  =  ~  =  =  =  —  —  ~  =  =  =  =  =  =  =  -  —  —  =  =  =  = ------------- _ _ 
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*<Called  routines> 

*  create_rowcol  -  creates  a  Rowcol  Widget 

*  cancel CB  -  removes  the  Rowcol  Widget 

*  create_radiobox  -  creates  a  Radiobox  Widget 

*  create_togglebutton  -  creates  a  Togglebutton  Widget 

*  aerosOCB  -  Sets  the  AFGL  Aerosol  Option 

*<Parameters> 

*  Formal  declaration : 

*  void  aeroO(int  *indx) 

*  Input : 

*'  *indx  -  index  to  indicate  desired  aerosol  group 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  aero0(int  *indx) 

{ 

Widget  radio,  toggle [9] ,  rowcol; 
int  j,  ind; 

static  int  index[9],  nc; 

static  char  cat_label[3] [33]  =  {  "AFGL  Rural  Aerosol  Models" , 

"AFGL  Urban  Aerosol  Models", 

"AFGL  Tropospheric  Aerosol  Models"}; 
static  char  togJLabel  [9]  [8]  =  {  "General",  "  0%  RH",  "50%  RH", 

"70%  RH",  "80%  RH",  "90%  RH" ,  "95%  RH" ,  "98%  RH" ,  "99%  RH"  }; 


ind  =  *indx; 


/* - 

*  -  Create  a  RowColumn  Widget 

*  _ 

*/ 

rowcol  =  create_rowcol (menu,  "AFGL_Models" ,  cancelCB) ; 


/* - - - - - 

*  -  Create  the  radiobox  and  toggles 


*/ 

nc  =  1  ; 

radio  =  create_radiobox  (rowcol ,  &nc,  cat_label  [ind]  )  ,* 


for  ( j=0 ;  j 
{  index  [j] 
toggle  (j] 

} 


<9;  j++) 

=  10*ind  +  j; 

=  create_togglebut ton (radio, 
aerosOCB) ; 


tog_label [ j ] , 


fcindex [ j ] , 


if (ind  ==  0) 

{  if (mdll_iaersl  ==  1) 
j  =  0; 

else  if (mdll_iaersl  >  14  &&  mdll_iaersl  <  23) 
j  =  mdll_iaersl  -  14; 
else 
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else  if(ind  ==  1) 

{  if (mdll_iaersl  ==  2) 
j  =  0; 

else  if (mdll_iaersl  >  30  &&  mdll_iaersl  <  39) 
j  =  mdll_iaersl  -  30; 
else 


else  if (ind  ==  2) 

{  if (mdll_iaersl  ==  6) 
j  =  0  ; 

else  if (mdll_iaersl  >  38  &&  mdll_iaersl  <  47) 
j  =  mdll_iaersl  -  38; 

else 
j  =  -1; 

} 

if ( j  >=  0) 

XmToggleButtonSetState (toggle  [j] ,  TRUE,  FALSE) ; 
}  /*  end  aeroOO  */ 


*  VOID  AEROSOCB 


*<Begin> 

*<Identif ication>  Name : 

*  Type : 

*  Filename : 

*  Parent : 


aerosOCB 
C  void 
visual . c 
aeroO,  aerol 


*<Description> 

*  Sets  the  AFGL  Aerosol  Option 

*<Called  routines> 

*  none 


*<Parameters> 


*  Formal  declaration: 

*  void  aerosOCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input :  ~ 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  pointer  to  the  data  passed  to  the  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 


*********************************************************************** 

*/ 

void  aerosOCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *n  =  (int  *)c; 
int  ind,  i; 


ind  =  (*n)  /  10; 
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i  =  (*n)  %  10; 

if (ind  ==  0) 

{  if (i  ==  0) 

mdll__iaersl  =  1; 
else 

mdll  iaersl  =  i  +  14; 

} 

else  if (ind  ==  1) 

{  if (i  ==  0) 

mdll_iaersl  =  2; 
else 

mdll  iaersl  =  i  +  30; 

} 

else  if (ind  ==  2) 

{  if(i  ==  0) 

mdll_iaersl  =  6; 
else 

mdll  iaersl  =  i  +  38; 

} 

else  if (ind  ==  3) 

{  if (i  ==  0) 

mdll_iaersl  =  4; 
else 

mdll  iaersl  =  i  +  22; 

} 

else  if (ind  ==  4) 

mdll_iaersl  =  i  +  11; 
else  if (ind  ==  5) 

mdll_iaersl  =  i  +  8; 

}  /*  end  aerosOCBO  */ 


VOID  AEROl 


*<Begin> 

*<Identif ication>  Name:  aerol 

*  Type:  C  void 

*  Filename :  visual . c 

*  Parent :  aerosolCB 

*<Description> 

*  Presents  the  AFGL  Maritime  Aerosol  Options . 


*<Called  routines> 

*  create_rowcol 

*  cancelCB 

*  create_radiobox 

*  create_togglebutton 

*  aerosOCB 


-  creates  a  Rowcol  Widget 

-  removes  the  Rowcol  Widget 

-  creates  a  Radiobox  Widget 

-  creates  a  Togglebutton  Widget 

-  Sets  the  AFGL  Aerosol  Option 


*<Parameters> 

*  Formal  declaration: 

*  void  aerol (void) 

*  Input : 

*  None 

*  Output: 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 
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*<End> 

*********************************************************************** 

*/ 

void  aerol (void) 

{ 

Widget  radio,  toggle [9],  rowcol; 
int  j  ; 

static  int  index[9],  nc; 

static  char  cat_label [29]  =  "AFGL  Maritime  Aerosol  Models"  ; 
static  char  tog_label [9] [12]  =  {  "75%  oceanic",  "  0%  RH",  "50%  RH", 
"70%  RH",  "80%  RH",  "90%  RH",  "95%  RH" ,  "98%  RH" ,  "99%  RH"  }; 


/* - 

*  -  Create  a  RowColumn  Widget 

*  _ 

*/ 

rowcol  =  create_rowcol  (menu,  ,'AFGL_MaritimeJ4odels" ,  cancelCB); 


/* - 

*  -  Create  the  radiobox  and  toggles 


*/ 

nc  =  1; 

radio  =  create_radiobox (rowcol ,  &nc,  cat_label) ; 

for  { j  =  0 ;  j <9 ;  j++) 

{  index  [j]  =  j  +  30; 

toggle [j]  =  create_togglebutton (radio ,  tog_label  [ j ] ,  &index[j], 
aerosOCB) ; 


if (mdll_iaersl  ==  4) 
j  =  0; 

else  if (mdll_iaersl  >  22  &&  mdll_iaersl  <  31) 
j  =  mdll__iaersl  -  22; 
else 

j  =  -1; 


if ( j  >=  0) 

XmToggleButtonSet State (toggle [j] ,  TRUE,  FALSE) ; 
}  /*  end  aerol ()  */ 


*  VOID  AER02 


*<Begin> 

*<Identif ication>  Name:  aero2 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent:  aerosolCB 

*<Description> 

*  Presents  the  AFGL  Fog  Aerosol  Options. 


*<Called  routines> 

*  create_rowcol 

*  cancelCB 

*  create_radiobox 

*  create_togglebutton 

*  aerosOCB 


creates  a  Rowcol  Widget 
removes  the  Rowcol  Widget 
creates  a  Radiobox  Widget 
creates  a  Togglebutton  Widget 
Sets  the  AFGL  Aerosol  Option 
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*< Parameters > 

*  Formal  declaration: 

*  void  aero2 (void) 

*  Input : 

*  None 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 


*/ 

void  aero2 (void) 


Widget 
int  j  ; 
static 
static 
static 


radio,  toggle [4],  rowcol; 
int  index  [4],  nc; 

char  cat_label [16]  =  "AFGL  Fog  Models"  ; 

char  tog_label [4] [25]  =  {  "RRA  Fog  1:  Advection 

"RRA  Fog  2 :  Advection 
"RRA  Fog  3 :  Radiation 
"RRA  Fog  4:  Radiation 


fog", 
fog", 
fog" , 
fog"  } ; 


/* - 

*  -  Create  a  RowColumn  Widget 


rowcol  =  create  rowcol  (menu,  "AFGL__Fog_Models " ,  cancelCB)  ; 


/* - 

*  -  Create  the  radiobox  and  toggles 


*/ 

nc  =  1 ; 

radio  =  create  radiobox (rowcol ,  &nc,  cat_label) ; 


for  ( j  =  0 ;  j <4 ;  j++) 

{  index [j]  =  j  +  40; 

toggle  [  j ]  =  create_togglebutton (radio, 
aerosOCB) ; 


} 


tog_label [ j] , 


&index [ j ] , 


if (mdll_iaersl  >  10  &&  mdll_iaersl  <  15) 
j  =  mdll_iaersl  -  11; 
else 

j  =  -1; 


if ( j  >=  0) 

XmToggleButtonSetState (toggle [j] ,  TRUE,  FALSE) ; 
}  /*  end  aero2()  */ 


^ *  VOID  AER03 


*<Begin> 

*<Identif ication> 
★ 

* 

* 


Name : 
Type: 
Filename : 
Parent : 


aero3 
C  void 
visual . c 
aerosolCB 
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*<Description> 

*  Presents  the  AFGL  Volcanic  Aerosol  Options. 

*<Called  routines> 

*  create_rowcol 

*  cancelCB 

*  create_radiobox 

*  create_togglebutton 

*  aerosOCB 

*  =  =  =:  =  =  =:  =  =:  =  =  =  =  =  =  =  =  =  =:  =  =  -  =  = 

*<Parameters> 

*  Formal  declaration: 

*  void  aero3 (void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  578-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  aero3 (void) 

{ 

Widget  radio,  toggle [2],  rowcol; 
int  j  ; 

static  int  index[2],  nc; 

static  char  cat_label [26]  =  UAFGL  Volcanic  Dust  Models”  ; 
static  char  tog_label [2] [6]  =  {  "Aged”,  "Fresh”  }; 

/* - 

*  -  Create  a  RowColumn  Widget 


*/ 

rowcol  =  create_rowcol (menu,  ”AFGL_Volcanic_Models " ,  cancelCB); 


-  creates  a  Rowcol  Widget 

-  removes  the  Rowcol  Widget 

-  creates  a  Radiobox  Widget 

-  creates  a  Togglebutton  Widget 

-  Sets  the  AFGL  Aerosol  Option 


/* - 

*  -  Create  the  radiobox  and  toggles 


*/ 

nc  =  1; 

radio  =  create_radiobox (rowcol ,  &nc,  cat_label) ; 

for  ( j  =  0 ;  j <2 ;  j++) 

{  index [j]  =  j  +50; 

toggletj]  =  create_togglebutton (radio,  tog_label [ j] ,  &index[j]. 


if (mdll_iaersl  >  7  &&  mdll_iaersl  <  10) 
j  =  mdll_iaersl  -  8; 
else 

j  =  -l; 

if ( j  >=  0) 

XmToggleButtonSetState (toggle tj] ,  TRUE,  FALSE); 
}  /*  end  aero3()  */ 
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/ *  VOID  MODELCB 


*<Begin> 

*<Identif ication>  Name:  modelCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  mode l_op t  CB 

*<Description> 

*  Sets  some  of  the  input  parameters  of  the  MDL1  and  MDL2  cards 


*<Called  routines> 

*  model2 

*  metrng_optCB 

*  albedo__chg 

* 


sets  the  input  scales  for  the  MDL3  card 
sets  the  Meteorological  Range  Options 
sets  up  the  menu  for  selecting  the  Albedo 
for  each  Area. 


*<Parameters> 

*  Formal  declaration: 

*  void  modelCB (  Widget  w,  XtPointer  c 

*  Input : 


XtPointer  call  data) 


w 


call  data 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  pointer  to  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


* 

* 

*<History> 

*  09/12/94  AMSRL-BE-S 


Avara 


(505)  678-1570  Elton  P. 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 


void  modelCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

int  *n  =  (int  *)c; 
int  i,  j,  k,  value; 
static  int  mr; 


XmScaleCallbackStruct  *  call_value  = 

(XmScaleCallbackStruct  * )  call_data ; 
i  =  (*n)/10;  /*  RadioBox  category  */ 

j  =  (*n)  %  10;  /*  Toggle  button  pushed  */ 

value  =  call_value  ->  value; 

if  (  ( i  <  3)  ScSc  (mdll  <  0)) 

{  mdll  =0;  /*  Set  up  default  values  */ 

mdll_iaersl  =  0.0; 
mdll__model  =  6.0; 
mdll_ivis  =  1.0; 
mdll_iseasn  =  0.0; 
mdll  ivulcn  =  1.0; 

} 

if ( ( i  >=  3)  &&  (mdl2  <  0)) 

{  mdl2  =0;  /*  Set  up  default  values  */ 

mdl2  sn  =  0.8; 
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mdl2_tbound  =  288.2; 
mdl2_ialb  -  -1.0; 
mdl2_ip  =  0.0; 
cur  ialb  =  mdl2  ialb; 

} 


if  (i  ==  0) 

{  mdll_ model  =  j+1; 
if  (mdll__model  ==  7) 
model2 { ) ; 
else 

mdl3  =  -1; 

} 

else  if(i  ==  1) 

{  mr  =  j+1; 

metrng  optCB (NULL,  &mr,  NULL); 

} 

else  if  (i  ==  2) 
mdll_iseasn  =  j ; 
else  if(i  ==  3) 

{  cur_ialb  =  mdl2_ialb; 
mdl2_ialb  =  j-1; 
if(cur_ialb  !=  mdl2__ialb) 
albedo  chg ( ) ; 

} 

else  if  (i  ==  4) 
mdl2_ip  =  j ; 
else  if  (i  ==  5) 

md!2__tbound  =  0.1  *  (float) value; 


/*  Temperature  Profile  Model*/ 

/*  User  Defined  Temp  Profile*/ 
/*  Get  the  User  Defined  Prof*/ 


/*  No  MLD3  card  needed  */ 

/*  Meteorological  Range  Opt  */ 
/*  Select  appropriate  scale  */ 
/*  Get  Met  Range  */ 

/*  Tropospheric  Profile  Modi*/ 

/*  Albedo  Type  Selection  */ 

/*  Albedo  Type  Choice  */ 

/*  If  changed,  */ 

/*  update  albedo  areas  */ 

/*  Aerosol  Profile  Printout  */ 

/*  Surface  Temperature  (K)  */ 


new__file  =  TRUE; 

}  /*  end  modelCBO  */ 


/*  inputs  changed 


*/ 


/*********************************************************************** 
*  VOID  MODEL2 

***************************  it*  ****************************************** 

*<Begin> 

*<Identif ication> 


Name:  mode 12 

Type :  C  void 

Filename :  visual . c 

Parent :  modelCB 


* 

* 

* 

*<Description> 

*  Sets  the  input  scales  of  the  MDL3  card 

*<Called  routines> 

*  create_rowcol 

*  cancelCB 

*  create_separator 

*  create_scale 

*  model 3 CB 

*  =  =  =  =  =  =  =  ==  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  : 

*  <  Parameters  > 

*  Formal  declaration: 
void  model2 (  void  ) 

Input : 

None 
Output : 

None 


-  creates  a  Rowcol  Widget 

-  removes  the  Rowcol  Widget 

-  creates  a  Separator  Widget 

-  creates  a  Scale  Widget 

-  gets  the  input  parameters  on  the  MDL3  card 


* 

* 

* 

* 

* 

*  =  =  =  =  =  =  =  ^  =  =  =  =  =  =  =  =  =  =  =  =:  =  =  =  =  = 
*<History> 

*  09/12/94  AMSRL-BE-S 


(505)  678-1570  Elton  P.  Avara 
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*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  model2 (  void) 

{ 

Widget  scale [6],  label [11] ,  rowcol; 

Arg  wargs [10] ; 

int  n,  i,  j;  .  .  ,  „  .  , 

static  int  index[6]  ,  hv,  sd,  wid,  min,  max,  me,  dec,  val  [6]  ,  swid; 
static  char  temp_label [6] [24]  =  {  "Temperature  (K)  at  5  km", 

"Temperature  (K)  at  4  km", 

"Temperature  (K)  at  3  km", 

"Temperature  (K)  at  2  km", 

"Temperature  (K)  at  1  km", 

"Temperature  (K)  at  0  km"  } ; 

static  char  temp  [11]  [4]  =  {  ”220",  "230",  "240",  "250",  "260",  "270", 

"280",  "290",  "300",  "310",  "320"  }; 


/* - 

*  -  Create  a  RowColumn  Widget 


rowcol  =  create  rowcol (menu,  " Tempera ture_Prof ile" ,  cancelCB) ; 


/* - 

*  -  Create  the  Scales 

*  - 

*/ 

hv  as  0; 
sd  =  2 ; 

for  ( i  =  0 ;  i<6 ;  i++) 

{  create_separator (rowcol ,  &hv,  &sd) ; 

index [ i ]  =  i ; 
wid  =  560; 
min  =  2200; 
max  =  3200; 
inc  =  0; 
dec  =  1 ; 
if (mdl3  ==  0) 

val  [i]  =  10 . 0*mdl3_t [5-i] ; 
else 

val [i]  =  min; 
swid  =  538; 

scale [i]  =  create_scale (rowcol ,  temp_label [i] ,  &wid,  &min,  &max, 

&inc,  &dec ,  &val [i] ,  &swid,  &index[i],  model 3 CB) ; 


if (i  ==  0) 

{  for  ( j  =  0 ;  j <11 ;  j++) 

{  n  =  0; 

XtSetArg  (wargs [n] ,  XmNwidth,  45);  n++; 

label  [j]  =  XmCreateLabel (scale [0] ,  temptj],  wargs,  n); 

XtManage Children (label,  11) ; 


}  /*  end  model2()  */ 
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*  VOID  MODEL3CB 


*<Begin> 

*<Identif ication> 
* 

* 

★ 

★  - 


Name : 
Type: 
Filename : 
Parent : 


model 3 CB 
C  void 
visual . c 
mode 12 


*<Description> 

*  Gets  the  input  parameters  on  the  MDL3  card 

*<Called  routines> 

*  none 


*<Parameters> 


* 

* 

* 

* 

* 

* 


Formal  declaration: 

void  model3CB(  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 


w 


call  data 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  pointer  to  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


====5 

*<History> 

*  09/12/94 


* - 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 


*<End> 


*/ 

void  model3CB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *n  =  (int  *)c; 
int  value; 

XmScaleCallbackStruct  *  call_value  = 

(XmScaleCallbackStruct  * )  call_data ; 


value  =  call_value  ->  value; 


mdl3_t  [5  -  (*n)]  =0.1*  (float) value ; 

mdl3  =  0; 
new_file  =  TRUE; 

}  /*  end  model3CB()  */ 

/********************************************************** ************* 

*  VOID  spect_optcb' 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name :  spect_optCB 

*  Type:  C  void 

*  Filename :  visual . c 

*  Parent:  create_spectlmenu 

*<Description> 

*  Selects  the  various  Spectral  Range  Options  for  BLIRB 
*<Called  routines> 
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create_rowcol 

spectlCB 

create_separator 

create_scale 

spectCB 

<Parameters> 

Formal  declaration : 

void  spect_optCB ( 
Input : 


call  data 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*<History> 

*  09/12/94  AMSRL-BE-S 


-  creates  a  Rowcol  Widget 

-  removes  the  rowcol  widget 

-  creates  a  Separator  Widget 

-  creates  a  Scale  Widget 

-  Gets  the  input  parameters  of  the  WAVN  card 


Widget  w,  XtPointer  c,  XtPointer  call_data) 

-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


(505)  678-1570  Elton  P.  Avara 
*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

roid  spect_optCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *indx  =  (int  *)c; 

Widget  rowcol,  label  [3]  [7] ,  scale  [3] ; 

Arg  wargs[10]  ; 

int  n,  i,  j,  k,  ii,  ind,  v[3]  ; 

static  int  index [6],  hv,  sd,  wid,  inc,  dec [3],  val[3],  swid; 

static  char  scale_label  [6]  [33]  = 

{  "Lowest  Wavenumber  (per  cm)", 

"Highest  Wavenumber  (per  cm) " , 

"Number  of  Wavenumber  Intervals", 

"Lowest  Wavelength  (micrometers)", 

"Highest  Wavelength  (micrometers)", 

"Number  of  Wavelength  Intervals" 

} ; 

static  char  num[10] [6] [6]  =  {  {"  8000",  "12000",  "16000",  "20000", 

"24000",  "28000"  }, 

{"  3000",  "  5000",  "  7000",  "  9000", 

"11000",  "13000"  }, 

{"1200",  "2000",  "2800",  "3600",  "4400", 
"5200"  }, 

{"  500",  "  700",  "900",  "1100",  "1300", 

"1500"  }, 

{"  600",  "1200",  "1800",  "2400",  "3000", 
"3600"  }, 

{ " 0  3 "  "0  5 "  "0.7",  "0.9",  "1.1", 

"  1 . 3  "  *  }  , 

{ " 0  7 "  "1  2 " ,  "1.7",  "2.2",  "2.7", 

"3.2"'  }  , 

{ "  2  0 "  "3  0 "  "4.0",  "5.0",  "6.0", 
"7.0"'}, 

{"  6.0",  "  8.0",  "10.0",  "12.0",  "14.0", 

"16.0"  }, 

{"  3.0",  "  5.0",  "  7.0",  "  9.0",  "11.0", 

"13.0"  } 
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f  }; 

static  char  intr[7][3]  =  {  M  0";  "  5",  "10",  "15",  "20"f  "25",  n30n  }/ 

static  int  minw[10]  =  {  8000,  3000,  1200,  500,  600,  3000,  7000,  20000, 

60000,  30000  }/ 

static  int  maxw[10]  =  {  28000,  13000,  5200,  1500,  3600,  13000,  32000, 

70000,  160000,  130000  }; 
static  char  numb  [3]  [6]  [6]  ; 
static  int  min  [3],  max  [3]; 

ind  =  *indx; 

for ( j  =  0 ;  j <6;  j++) 

{  strcpy  (numb  [0]  [j],  num[ind]  [j]); 
strcpy  (numb  [1]  [j],  num[ind]  [j]); 

min[0]  =  min[l]  =  minwfind]; 
max[0]  =  max[l]  =  maxw[ind]; 

for ( j  =  0 ;  j  <7 ;  j++) 

strcpy  (numb  [2]  [j],  intr[j]); 
min [2]  =  0; 
max [2]  =  30; 


if (ind  <  5) 
ii  =  0; 
else 

ii  =  3; 


if  (wavn 
{  if (ind 
{  v[0] 
v[l] 
v  [2] 

} 

else 
{  v[0] 
v[l] 
v  [2] 


else 
{  v  [0]  = 
v[l]  = 
v  [2  ]  = 

} 


=  =  0) 

<  5) 

=  wavn_vl; 
=  wavn__v2 ; 
=  wavn_dv; 


-  100000000.0 
=  100000000.0 
=  wavn_dv; 


min  [  0  ]  ; 
min[l]  ; 
min  [2]  ; 


/  wavn_v2; 
/  wavn_vl ; 


/* - 

*  -  Create  a  RowColumn  Widget 


*/ 

rowcol  =  create__rowcol  (menu,  MSpectral_Options" ,  spectlCB)  ,* 

/* - - - 

*  -  Create  the  Scale 


*/ 

hv  =  0; 
sd  =  2  ; 

for  ( i = 0 ;  i<3;  i++) 

{  create_separator (rowcol ,  &hv,  &sd) ; 
index [i]  =  10*ind  +  i; 
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wid  =  460; 
inc  =  0 ; 

if(ind  >=  5  &&  i  <  2) 
dec[i]  =  4; 
else 

dec[i]  =  0; 

swid  =  438;  v 

if (wavn  ==  0) 

{  if  (v  [i]  <  min  [i]  ) 
val  [i]  =  min [i]  ; 
else  if (v [i]  >  max[i]) 
val  [i]  =  max [i]  ; 
else 

val  [i]  =  v  [i]  ; 

} 

else 

val  [i]  =  min[i]  ; 

scale  [i]  =  create_scale (rowcol,  scale_label [ii+i] ,  &wid,  &min[i], 
&max[i],  Seine,  &dec [i] ,  &val  [i] ,  &  swid,  &index[i], 
spectCB) ; 

if  (i  <  2) 
k  =  6; 
else 
k  =  7; 


for  ( j  =0 ;  j  <k;  j++) 

{  n  =  0; 

XtSetArg  (wargs [n] ,  XmNwidth,  90);  n++; 

label [i] [ j ]  =  XmCreateLabel (scale [i] ,  numb[i][j],  wargs,  n) ; 
XtManageChildren (label [i] ,  k) ; 

}  /*  end  spect_optCB ( )  */ 


^ *  VOID  SPECTCB 


*<Begin> 

*<Identif ication> 


Name : 
Type: 
Filename : 
Parent : 


spectCB 
C  void 
visual . c 
spect_optCB 


* <Descr ipt ion> 

*  Gets  the  input  parameters  for  the  WAVN  card 
*<Called  routines> 


*<Parameters> 

*  Formal  declaration: 

*  void  spectCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  pointer  to  the  data  passed  to  the  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  ~  contains  information  on  why  the  callback 

*  occurred 
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Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  spectCB  (Widget  w,  XtPointer  c,  XtPointer  call  data) 

{ 

int  *n  =  (int  *)c; 
static  float  interval; 
int  i,  j,  value; 

XmScaleCallbackStruct  *  call_value  = 

(XmScaleCallbackSt ruct  * )  call_data ; 

value  =  call_value  ->  value; 
i  =  (*n)  /  10; 
j  =  (*n)  %  10; 

if(wavn  <  0) 

{  wavn  =  0; 

wavn_vl  =  0.0; 
wavn_v2  =  0.0; 
wavn  dv  =  0.0; 

} 

if ( j  ==  0) 

{  if  (i  <  5) 

wavn_vl  =  value; 
else 

wavn  v2  =  100000000.0  /  (float) value ; 

} 

else  if(j  ==  1) 

{  if (i  <  5) 

wavn_v2  =  value ; 
else 

wavn  vl  =  100000000.0  /  (float) value ; 

} 

else  if ( j  ==  2) 

{  if (value  ==  0) 
value++; 

wavn  dv  =  value; 

} 

wavn_indx  =i%5; 

interval  =  (wavn_v2  -  wavn_vl )  /  wavn_dv; 
new_f ile  =  TRUE; 

}  /*  end  spectCB ()  */ 

/*********************************************************************** 

*  VOID  SPECT1CB 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  spectlCB 

*  Type :  C  void 

*  Filename :  visual . c 

*  Parent :  spect__optCB 
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*<Description>  ,  ,  _ 

*  Removes  the  calling  widget  after  checking  the  wavenumber  inputs , 


*<Called  routines> 
*  draws cene 


-  Plots  the  3-D  BLIRB  grid  points,  albedo 
areaS/  aerosol  regions,  and  the  output 
flux. 


*<Parameters> 

*  Formal  declaration: 

*  void  spectlCB (  Widget  w,  XtPointer  c,  XtPointer  call data) 

*  Input:  _  ,  .  ,  _ 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  ~  the  widget  to  be  removed 

*  call  data  -  a  pointer  to  the  callback  structure  which 

*  -  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  spectlCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

float  temp; 

if  (wavn__v2  <  wavn_vl) 

{  temp  =  wavn_v2; 
wavn_v2  =  wavn_vl; 
wavn_vl  =  temp ; 


XtUnmanageChild ( (Widget) c)  ; 
draws  cene  (); 

}  /*  end  spectlCB ()  */ 

/**********★**************★********************************************* 
*  VOID  AREA_OPTCB 

*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  area_optCB 


Name : 
Type : 
Filename : 
Parent : 


area_optCB 
C  void 
visual . c 

create  arealmenu 


*<Description> 

*  Sets  up  the  scales  for  selecting  the  area  dimensions 


*<Called  routines> 

*  create_rowcol 

*  cancelaCB 

*  create_separator 

*  create_scale 

*  areaCB 


-  creates  a  Rowcol  Widget 

-  removes  the  rowcol  widget 

-  creates  a  Separator  Widget 

-  creates  a  Scale  Widget 

-  Gets  the  dimensions  for  an  area 
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*<Parameters> 


Formal  declaration: 

void  area_optCB ( 
Input : 
w 


call  data 


Widget  w,  XtPointer  c,  XtPointer  call_data) 

-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94 


AMSRL-BE-S  (505)  678-1570  Elton  P. 
Developed  the  original  source  code . 


Avar  a 


*<End> 

*********************************************************************** 


*/ 

void  area__optCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 
int  *indx  =  (int  *)c; 

Widget  rowcol,  label [6] [7] ,  scale [2]; 

Arg  wargs [10]  ; 

int  n,  i#  j,  k,  ind,  maxx; 

static  int  index [2],  hv,  sd,  wid,  inc,  dec,  val  [2]  ,  swid; 
static  char  scale_label [2]  [27] ={  "Length  in  X  Direction  (km)", 

"Length  in  Y  Direction  (km)"  }; 

static  char  numb [2]  [6]  [6]  ; 
static  int  min [2]  =  {  0,  0  }; 
static  int  max [2]  ; 


for  ( j  =  0 ;  j  <2 ;  j++) 

{  maxx  =  regn_rh[j]  [0]  -  regn_rl[j]  [0]  +  0.1; 
max[j]  =  10  *  maxx; 
for  ( i = 0 ;  i<6 ;  i++) 

sprint f (numb  [j ]  [i] ,  "%5.2f",  0.2  *  (float)  (i  *  maxx) )  ; 


ind  =  * indx ; 


if (mdl2  <  0) 

{  mdl2  =  0; 

mdl2_sn  =  0.8; 
mdl2__t  bound  =  288.2; 
mdl2_ialb  =  -1 ; 
mdl2_ip  =  0; 
cur_ialb  =  mdl2_ialb; 


/* - - 

*  Create  a  RowColumn  Widget 

*  _ _  _ _ _ 

*/ 

rowcol  =  create_rowcol (menu,  "Area_Dimensions" ,  cancelaCB) ; 

/* - - - 

*  Create  the  Scales 

*  - __________ 

*/ 

hv  =  0; 
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sd  =  2; 


for  ( i=0 ;  i<2 ;  i++) 

{  create_separator (rowcol ,  &hv,  &sd)  ; 
index [i]  =  10*ind  +  i; 

wid  =560;  \ 

inc  =  1; 
dec  =  1; 
swid  =538; 

if (i  ==  0) 

{  if(ind  <=  area) 

val  [i]  =  10.0  *  (area_ahx [ind]  -  area_alx [ind] ) ; 
else 

val  [i]  =  min [0] ; 

} 

else  if (i  ==  1) 

{  if (ind  <=  area) 

val [i]  =  10.0  *  (area_ahy [ind]  -  area_aly [ind] ) ; 

else 

val  [i]  =  min [1]  ; 


scale [i] 


create_scale (rowcol ,  scale_label [i] ,  &wid,  &min[i], 

&max [iT/  &inc,  &dec,  &val  [i] ,  &swid,  &index[i],  areaCB); 


for  ( j  =  0  ;  j  <6 ;  j++) 

{  n  =  0  ; 

XtSetArg  (wargs [n] ,  XmNwidth,  90);  n++; 

label [i]  [j]  =  XmCreateLabel (scale [i] ,  numb[i][j],  wargs,  n) ; 
XtManageChildren (label [i]  ,  6)  ; 

}  /*  end  area_optCB()  */ 


^ *  VOID  AREACB 


*<Begin> 

*<Identif ication>  Name:  areaCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  area_optCB 

*<Description> 

*  Gets  the  albedo  area  dimensions 
*<Called  routines> 

*  area_fix  -  rectifies  the  Albedo  Area  location 

*  create__menubar  -  creates  the  menubar  for  selecting  the 

*  various  options 


*  <  Parameters  > 

*  Formal  declaration: 

*  void  areaCB (  Widget  w,  XtPointer  c;  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  pointer  to  the  data  passed  to  the  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 
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occurred 


* 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*************************************************************** 

*/ 

voi'd  areaCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

int  *n  =  (int  *)c; 
int  i,  j,  value; 
static  Boolean  pass  =  FALSE; 
static  Boolean  mask [2],  go; 

XmScaleCallbackStruct  *  call_value  = 

(XmScaleCallbackStruct  * )  call_data 

value  =  call_value  ->  value; 
i  =  (*n) /10 ; 
j  =  (*n)  %  10; 

if((i  >  area)  &&  Ipass) 

{  area_alx[i]  =  area_ahx[i]  =  area_aly[i]  =  area_ahy[i]  = 
area_iamtl [i]  =  0.0; 
pass  =  TRUE; 

mask[0]  =  mask[l]  =  FALSE; 

} 

if ( j  ==  0) 

{  area_ahx[i]  =  area_alx[i]  +  0.1  *  value; 
if (area_ahx [i]  >  regn_rh [0] [0] ) 
area  ahx[i]  =  regn  rh[0]  [0]; 

} 

else  if ( j  ==  1) 

{  area_ahy[i]  =  area_aly[i]  +  0.1  *  value; 
if (area_ahy [i]  >  regn_rh[l] [0]) 

area  ahy[i]  =  regn  rh[l]  [0]  ; 

} 

cur_area  =  i ; 
area_f ix ( ) ; 

if(i  >  area) 

mask[j]  =  TRUE; 
go  =  mask[0]  &&  mask[l]; 

if (go) 

{  area++; 

pass  =  FALSE; 

mask[0]  =  mask[l]  =  FALSE; 
in_changea  =  TRUE; 

if (mdl2_ialb  <  0) 

{  albd++ ; 

area_iamtl [area]  =  albd_lalb [albd]  =  area+1; 
albd  f alb [albd]  =  background  albedo; 

} 

else 

area_iamtl [area]  =  0.0; 
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XtUnmanageChild  (menu) ; 
menu  =  create  menubar (form); 


new_file  =  TRUE; 

}  /*  end  areaCBO  */ 

/*********************************************************************** 
*  VOID  AREA__FIX 

*********************************************************************** 

*<Begin> 

*<  Identification  Name:  area  fix 


*<  Identification  Name:  area_fix 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  inputCB,  areaCB,  cancelmeCB,  regnCB 

*<Description> 

*  Rectifies  the  location  of  an  Albedo  Area. 

*<Called  routines> 

*  none 

*  Parameters  > 

*  Formal  declaration: 

*  void  area_f ix (void) ; 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 


void  area  fix  (void) 

{ 

int  j  ,  k,  kk; 
float  dif,  del; 

del  =  area_ahx [cur_area]  -  area_alx [cur^area]  ; 

for  (dif  =  100000.0,  kk  =  -1,  k=0;  k<=num_grid_pts [0] ;  k++) 

{  if  (  fabs  (area_alx  [cur_areaj  -  axis_jpts  [0]  [k]  )  <  dif  ) 

{  dif  =  fabs  (area_alx  [cur_area]  -  axis_jpts  [0]  [k]  )  ; 
kk  =  k; 


area_alx [cur_area]  =  axis_pts [0] [kk]  ; 
area_ahx [cur_area]  =  area_alx [cur_area]  +  del; 

for  (dif  =  100000.0,  kk  =  -1,  k=0;  k<=num_grid_pts [0] ;  k+  +  ) 
{  if (  fabs (area_ahx [cur_area]  -  axis_pts[0] [k] )  <  dif  ) 

{  dif  =  fabs  (area_ahx  [cur__area]  -  axisjpts  [0]  [k] )  ; 
kk  =  k; 


area_ahx [cur_area]  =  axis_pts [0] [kk] ; 

del  =  area_ahy [cur_area]  -  area_aly [cur_area] ; 

for  (dif  =  100000.0,  kk  =  -1,  k=0;  ko=num_grid_j>ts [1] ;  k++) 
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{  if (  fabs (area_aly [cur_area]  -  axisjpts [1]  [k]  )  <  dif  ) 
{  dif  =  fabs  (area__aly  [cur^area]  -  axis_pts  [1]  [k]  )  ; 
kk  =  k; 


area_aly [cur_area]  =  axisjpts [1] [kk] ; . 
area_ahy [cur_area]  =  area_aly [cur_area]  +  del;  , 

for  (dif  =  100000.0,  kk  =  -1,  k=0;  k<=num_grid_pts [1] ;  k+  +  ) 
{  if (  fabs (area_ahy [cur_area]  -  axisjpts [1] [k] )  <  dif  ) 

{  dif  =  fabs (area_ahy [cur_area]  -  axisjpts [1] [k]  )  ; 
kk  =  k  ; 


area_ahy [cur_area]  =  axisjpts [1] [kk]  ; 
}  /*  end  area__fix()  */ 


/*********************************************************************** 
*  VOID  ME S HXMENU C B 


*<Begin> 

*<Identif ication> 
★ 

* 

* 


Name : 
Type: 
Filename : 
Parent : 


meshxmenuCB 
C  void 
visual . c 
create  meshmenu 


*<Description> 

*  Sets  up  the  scales  for  selecting  the  X  Mesh  dimensions 
_ _ _ _ _ _ _ _ _ _ _ _______________ 


*<Called  routines> 

*  create_bboard 

*  cancelmeCB 

*  create_separator 

*  create__scale 

*  meshCB 


-  creates  a  BulletinBoard  Widget 

-  removes  the  BulletinBoard  Widget 

-  creates  a  Separator  Widget 

-  creates  a  Scale  Widget 

-  gets  the  dimensions  for  a  mesh 


*  Parameters  > 


Formal  declaration: 

void  meshxmenuCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 

-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


w 


call  data 


Output : 
None 


*<History> 

*  09/12/94 

* 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 


*<End> 

***1rieie  +  ieie1e*Jcicicie1r1r&ic1eieieieieie1e1c1r1cie1e*1e1e1e1eie4eieieit1eieie1tie**  +  4eie  +  ie1cieit*ie'kii:'kirie'k'kic'k'k"k'k'k 
*/ 

void  meshxmenuCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

Widget  rowcol,  rowcoll,  rowcol2,  bboard,  button,  label [2*ISM] [6] , 
scale [2*ISM] ; 

Arg  wargs [10]  ; 

int  n,  i,  j,  k,  ind,  maxx; 
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static  int  index [2*ISM] ,  hv,  sd,  wid,  inc,  dec,  val[2*ISM],  swid; 

static  char  scale_label [2*ISM]  [38]  ; 

static  char  numb[2*ISM]  [6]  [6]  ; 

static  int  min[2*ISM],  max[2*ISM]; 

static  char  but__label  [15]  ; 

sprintf (but_label,  "  (Total  <=  %d) ”,  MAXMX) ;  v 
ind  =  0 ; 

if(mes[ind]  <  (ISM  -  1)) 
k  =  mes[ind]  +  1; 
else 

k  =  .mes [ind] ; 

for  ( j  =  0 ;  j <=k;  j++) 

{  min[j]  =  min[j+k+l]  =  0; 

maxx  =  mes_ms [ind] [mes [ind] ]  +  0.1; 
max[j]  =  10  *  maxx; 
max[j+k+l]  =  40; 

for  (i=0;  i<6;  i++) 

{  sprintf (numb [j]  [i] ,  "%5.2fn,  0.2  *  (float)  (i  *  maxx)); 
sprintf (numb [j+k+1] [i] ,  M%dn ,  8*i) ; 

} 

if ( j  <=  mes [ind] ) 

sprintf (scale_label [j ] ,  "End  of  X  Mesh  %d  Interval  (km)", 

j+1)  ; 

else 

sprintf  (scale_label  [j]  ,  "End  of  New  X  Mesh  Interval  (km)"); 
sprintf (scale  label  [j +k+l] ,  "Num  Subintervals"); 

} 


/* - - - 

*  -  Create  a  Bulletin  Board  Widget 

*  _ 

*/ 

bboard  =  create_bboard (menu,  "X  Mesh  Options") ; 


/* - 

*  -  Create  a  RowColumn  Widget 


*/ 

n  =  0; 

XtSetArg (wargs [n] ,  XmNorientation,  XmHORI ZONTAL ) ;  n++; 
rowcol  =  XtCreateManagedWidget ( "X_Mesh_Options " , 

xmRowColumnWidgetClass,  bboard,  wargs,  n) ; 


/* - - - - - 

*  -  Create  a  RowColumn  Widget  within  the  other  RowColumn  Widget 


*/ 

n  =  0; 

XtSetArg (wargs [n] ,  XmNorientation,  XmVERTICAL) ;  n++; 
rowcoll  =  XtCreateManagedWidget ( "X_Mesh_Options " , 

xmRowColumnWidgetClass,  rowcol,  wargs,  n) ; 


Create  a  f inishbutton,  attach  it  to  "rowcoll",  and  realize  it. 
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n  =  0; 

button  =  XmCreatePushButton (rowcoll, "Finished  with  Selections",  wargs, 
n)  ; 

Xt AddCal lback  (button,  XmNactivateCallback,  cancelmeCB,  bboard) ; 
XtManageChild  (button) ; 


/* - - - -r - 

*  -  Create  the  Mesh  End  Point  Scales 

*  - 

*/ 

hv  =  0; 
sd  =  2; 

for  ( i=0 ;  i<=k;  i++) 

{  create_separator (rowcoll,  &hv,  &sd) ; 

index [i]  =  100*ind  +  i; 

wid  =  460; 

dec  =  1; 

swid  =  43  8; 

inc  =  1; 

if (i  <=  mes [ind] ) 

val[i]  =  10.0  *  mes_ms [ind]  [i]  ; 
else 

val  [i]  =  min [i] ; 

scale  [i]  =  create__scale  (rowcoll ,  scale__label  [i]  ,  &wid,  &min[i], 

ScmaxCi],  &inc,  6tdec,  &val  [i]  ,  &swid,  £cindex[i],  meshCB)  ; 

for  (j  =  0;  j  <6 ;  j++) 

{  n  =  0; 

XtSetArg  (wargs [n] ,  XmNwidth,  90);  n++; 

label [i][j]  =  XmCreateLabel (scale [i]  ,  numb[i][j],  wargs,  n) ; 

} 

XtManageChildren (label [i] ,  6)  ; 

} 


z* - 

*  -  Create  another  RowColumn  Widget  within  the  first 


*/ 

hv=l; 

create_separator (rowcol,  &hv,  &sd); 
n=0; 

XtSetArg (wargs [n] ,  XmNorientation,  XmVERTICAL) ;  n++; 
rowcol2  =  XtCreateManagedWidget ( MX_Mesh_Options_ (continued) " , 
xmRowColumnWidgetClass,  rowcol,  wargs,  n) ; 


/* - - 

*  -  Create  a  info_button,  attach  it  to  nrowcol2" ,  and  realize  it. 


*/ 

n  =  0  ; 

button  =  XmCreatePushButton (rowcol2,  but_label,  wargs,  n) ; 
XtManageChild  (button) ; 


/* 

* 

* 

* 


/ 


-  Create  the  Subinterval  Count  Scales 


372 


hv  =  0 ; 

for  (i=k+l;  i<=2*k+l;  i++) 

{  create_separator (rowcol2 ,  &hv,  &sd) ; 

index [i]  =  100*ind  +  i  +  50-k-l; 

wid  =  160; 

dec  =  0; 

swid  =  138; 

inc  =  1; 


if (i-k-1  <=  mes [ind] ) 

{  val  [i]  =  mes_mh[ind]  [i-k-1]; 

if  (val  [i]  >  max[i]) 
val  [i]  =  max [i] ; 

} 

else 

val  [i]  =  min [i] ; 

scale  [i]  =  create__scale  (rowcol2  ,  scale_label  [i]  ,  &wid,  &min[i]  , 

&max [il,  &inc,  &dec,  &val [i] ,  ^swid,  &index[i],  meshCB) ; 


for  ( j  =  0 ;  j <2 ;  j++) 

{  n  =  0; 

XtSetArg  (wargs [n] #  XmNwidth#  90);  n++; 

label  [i]  [ j ]  =  XmCreateLabel (scale [i] ,  numb [i]  [5* j ]  ,  wargs,  n) ; 
XtManageChildren (label [i]  ,  2)  ; 

}  /*  end  meshxmenuCB  */ 


/ *  V0ID  MESHYMENUCB 


*<Begin> 

*<Identification>  Name:  meshymenuCB 

★  Type :  C  void 

★  Filename:  visual. c 

★  Parent :  create_meshmenu 


*<Description> 

*  Sets  up  the  scales  for  selecting  the  Y  Mesh  dimensions 


*<Called  routines> 

*  create_bboard 

*  cancelmeCB 

*  create__separator 

*  create_scale 

*  meshCB 


creates  a  BulletinBoard  Widget 
removes  the  BulletinBoard  Widget 
creates  a  Separator  Widget 
creates  a  Scale  Widget 
gets  the  dimensions  for  a  mesh 


*<Parameters> 

*  Formal  declaration: 

*  void  meshymenuCB 

*  Input : 

*  w 

* 

*  c 

*  call_data 

* 


(Widget  w,  XtPointer  c,  XtPointer  call_data) 

-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 


★ 


occurred 


*  Output : 

*  None 
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*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

***************************************************  ******************** 
*/ 

void  meshymenuCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

Widget  rowcol,  rowcoll,  rowcol2,  bboard,  button,  label [2*ISM]  [6]  , 
scale [2*ISM] ; 

Arg  wargs [10]  ; 

int  n,  i,  j,  k,  ind,  maxx; 

static  int  index  [2*ISM] ,  hv,  sd,  wid,  inc,  dec,  val [2*ISM]  ,  swid; 

static  char  scale_label [2*ISM] [38] ; 

static  char  numb[2*ISM] [6] [6] ; 

static  int  min[2*ISM],  max [2 * ISM]; 

static  char  but_label [15] ; 

sprintf (but_label,  ’'(Total  <=  %d)  " ,  MAXMY)  ; 
ind  =  1 ; 

if(mes[ind]  <  (ISM  -  1)) 
k  =  mes[ind]  +  1; 
else 

k  =  mes [ind]  ; 

for  ( j  =  0 ;  j  <=k ;  j++) 

{  min[j]  -  min[j+k+l]  =  0; 

maxx  =  mes_ms[ind]  [mes  [ind]  ]  +  0.1; 
max[j]  =  10  *  maxx; 
max [ j+k+1]  =  40 ; 

for  (i=0 ;  i<6 ;  i++) 

{  sprintf (numb [ j ] [i] ,  n%5.2f",  0.2  *  (float) (i  *  maxx)); 
sprintf  (numb  [j+k+lj  [i]  ,  ’^d",  8*i)  ; 


if  ( j  <=  mes [ind]  ) 

sprintf (scale_label [j ] ,  "End  of  Y  Mesh  %d  Interval  (km)M, 

j+D  ; 

else 

sprintf (scale_label  [j ] ,  "End  of  New  Y  Mesh  Interval  (km)"); 
sprintf  (scale__label  [j+k+1]  ,  "Num  Subintervals")  ; 


/* - 

*  -  Create  a  Bulletin  Board  Widget 

*  - - - 

*/ 

bboard  =  create_bboard (menu,  "Y  Mesh  Options"); 


/* - 

*  -  Create  a  RowColumn  Widget 


*/ 

n  =  0  ; 

XtSetArg (wargs [n] ,  XmNorientation,  XmHORIZONTAL) ;  n++; 
rowcol  =  XtCreateManagedWidget ( "Y_Mesh_Options" , 

xmRowColumnWidgetClass ,  bboard,  wargs,  n) ; 
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*  -  Create  a  RowColumn  Widget  within  the  other  RowColumn  Widget 


*/ 

n  =  0 ; 

XtSetArg  (wargs  [n]  ,  XmNorientation,  XmVERTICAL) ;  n++; 
rowcoll  =  XtCreateManagedWidget ( "Y_Mesh_OptionsU , 

xmRowColumnWidgetClass,  rowcol,  wargs,  n) ; 


*  -  Create  a  f inishbutton,  attach  it  to  "rowcoll",  and  realize  it. 


*/ 

n  =  0  ; 

button  =  XmCreatePushButton (rowcoll, "Finished  with  Selections",  wargs, 
n)  ; 

Xt AddCal lback  (button,  XmNactivateCallback,  cancelmeCB,  bboard) ; 
XtManageChild  (button) / 

/* - : - 

*  -  Create  the  Mesh  End  Point  Scales 


*/ 

hv  =  0 ; 
sd  =  2; 

for  ( i  =  0 ;  i<=k;  i++) 

{  create_separator (rowcoll,  &hv,  &sd) ; 

index [i]  =  100*ind  +  i; 

wid  =  460; 

dec  =  1; 

swid  =  438; 

inc  =  1 ; 

if (i  <=  mes [ind]  ) 

val  [i]  -  10.0  *  mes__ms  [ind]  [i]  ; 
else 

val  [i]  =  min [i]  ; 

scale  [i]  =  create_scale  (rowcoll ,  scale__label  [i]  ,  &wid,  &min[i], 

&max [ i ] ,  &inc,  &dec,  &val [i] ,  &swid,  &index[i],  meshCB) ; 

for  ( j  =  0 ;  j <6 ;  j++) 

{  n  =  0; 

XtSetArg  (wargs [n] ,  XmNwidth,  90);  n++; 

label [i] [ j ]  =  XmCreateLabel (scale [i] ,  numb[i][j],  wargs,  n) ; 
XtManageChildren (label [i]  ,  6)  ; 

} 


/* - - - 

*  -  Create  another  RowColumn  Widget  within  the  first 


*/ 

hv  =  1; 

create_separator (rowcol,  &hv(  &sd) ; 
n  =  0; 

XtSetArg (wargs [n] ,  XmNorientation,  XmVERTICAL);  n++; 
rowcol 2  =  xtCreateManagedWidget ("Y_Mesh_Options_ (continued) ", 
xmRowColumnWidgetClass,  rowcol,  wargs,  n) ; 
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/* . . . . . . . - . . 

*  -  Create  a  info  button,  attach  it  to  "rowcol2M,  and  realize  it. 


*/ 

n  =  0  ; 

button  =  XmCreatePushButton (rowcol2 ,  but_label,  wargs,  n)  ; 
XtManageChild  (button) ; 


*  -  Create  the  Subinterval  Count  Scales 


*/ 

hv  =  0; 

for  (i=k+l;  i<=2*k+l;  i++) 

{  create_separator (rowcol2 ,  &hv,  &sd)  ; 

index[i]  =  100*ind  +  i  +  50-k-l; 

wid  =  160; 

dec  =  0; 

swid  =  138; 

inc  =  1 ; 


if(i-k-l  <=  mes [ind] ) 

{  val  [i]  =  mes_mh[ind]  [i-k-1]  ; 
if  (val  [i]  >  max[i]) 
val  [i]  =  max [i] ; 

} 

else 

val  [i]  =  min [i] ; 

scale  [i]  =  create_scale (rowcol2 ,  scale_label [i] ,  &wid,  &min[i], 

&max[i],  &inc,  &dec,  &val [i] ,  &swid,  &index[i],  meshCB) ; 

for  ( j  =  0 ;  j <2 ;  j++) 

{  n  =  0; 

XtSetArg  (wargs [n] ,  XmNwidth,  90);  n++; 

label  [i]  [j]  =  XmCreateLabel (scale [i]  ,  numb[i]  [5*j] ,  wargs,  n) ; 
XtManageChildren (label [i]  ,  2)  ; 

}  /*  end  meshymenuCB  */ 


VOID  MESHZMENUCB 


*<Begin> 

*<Identif ication> 


* 
* 
* 
*  = 


Name : 
Type: 
Filename : 
Parent : 


meshzmenuCB 
C  void 
visual . c 
create  meshmenu 


*<Description> 

*  Sets  up  the  scales  for  selecting  the  Z  Mesh  dimensions 

-s;-  =  _  ==  --  =  =  —  —  —  —  —  -  =  _  ________ 


*<Called  routines> 

*  create_bboard 

*  cancelmeCB 

*  create_separator 

*  create__scale 

*  meshCB 


-  creates  a  BulletinBoard  Widget 

-  removes  the  BulletinBoard  Widget 

-  creates  a  Separator  Widget 

-  creates  a  Scale  Widget 

-  gets  the  dimensions  for  a  mesh 
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*<Parameters> 

*  Formal  declaration: 

*  void  meshzmenuCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 


*  Input : 

*  w 

* 

*  c 

*  call_data 

* 

* 

*  Output : 

*  None 


the  ID  of  the  widget  for  which  the 

callback  is  registered 

the  data  passed  to  the  routine 

a  pointer  to  the  callback  structure  which 

contains  information  on  why  the  callback 

occurred 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 

*************** 


void  meshzmenuCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

^  Widget  rowcol,  rowcoll,  rowcol2,  bboard,  button,  label [2*ISM] [6] , 
scale  [2* ISM]  ,- 
Arg  wargs [10]  ; 
int  n,  i,  j,  k,  ind,  maxx; 

static  int  index [2*ISM] ,  hv,  sd,  wid,  inc,  dec,  val [2*ISM] ,  swid; 

static  char  scale_label [2*ISM] [38] ; 

static  char  numb[2*ISM]  [6]  [6]  ; 

static  int  min[2*ISM],  max[2*ISM]; 

static  char  but  label  [15] ; 


sprintf  (but_label ,  "(Total  <=  %d)  "  ,  MAXMZ)  ; 


ind  =  2; 


if (mes [ind]  <  (ISM  -  1) ) 
k  =  mes [ind]  +  1; 
else 

k  =  mes  [ind]  ; 


for  (j=0;  j  <=k;  j++) 

{  min[j]  =  min[j+k+l]  =  0; 

maxx  =  mes_ms [ind] [mes [ind] ]  +0.1; 
max[j]  =  10  *  maxx; 
max[j+k+l]  =  40; 

for  ( i=0 ;  i<6;  i++) 

{  sprintf (numb [j] [i] ,  "%5.2f"f  0.2  *  (float) (i  *  maxx)); 

sprintf  (numb  [j+k+1]  [i]  ,  Hd",  8*i)  ; 

} 

if ( j  <=  mes [ind]  ) 

sprintf ( scale_label [j ] ,  "End  of  Z  Mesh  %d  Interval  (km) ", 

j+D 

else 

sprintf  (scale_label  [j]  ,  "End  of  New  Z  Mesh  Interval  (km)"); 
sprintf (scale_label [j+k+1] ,  "Num  Subintervals") ; 

} 


/* 

* 


--  Create  a  Bulletin  Board  Widget 


*/ 

bboard  =  create_bboard (menu,  "Z  Mesh  Options"); 


/* - 

*  -  Create  a  RowColumn  Widget 


*/ 

n  =  0  ; 

XtSetArg (wargs [n] ,  XmNorientation,  XmHORI ZONTAL ) ;  n++; 
rowcol  =  XtCreateManagedWidget ( " Z_J4esh_Opt  ions  n , 

xmRowColumnWidget Class ,  bboard,  wargs,  n) ; 


/*-- - 

*  -  Create  a  RowColumn  Widget  within  the  other  RowColumn  Widget 


*/ 

n  =  0; 

XtSetArg (wargs [n] ,  XmNorientation,  XmVERTICAL) ;  n++; 
rowcoll  =  XtCreateManagedWidget ( "Z_Mesh_Opt ions" , 

xmRowColumnWidgetClass,  rowcol,  wargs,  n) ; 


/* - 

*  -  Create  a  f inishbutton,  attach  it  to  "rowcoll",  and  realize  it. 


*/ 

n  =  0  ; 

button  =  XmCreatePushButton (rowcoll, "Finished  with  Selections",  wargs, 
n)  ; 

XtAddCallback  (button,  XmNactivateCallback,  cancelmeCB,  bboard) ; 
XtManageChild  (button) ; 


/* — - - 

*  -  Create  the  Mesh  End  Point  Scales 


*/ 

hv  =  0; 
sd  =  2  ; 

for  ( i=0 ;  i<=k;  i++) 

{  create_separator (rowcoll ,  &hv,  &sd) ; 

index [i]  =  100*ind  +  i; 

wid  =  460; 

dec  =  1; 

swid  =  438; 

inc  =  1 ; 

if (i  <=  mes [ind]  ) 

val [i]  =  10.0  *  mes_ms [ind] [i] ; 
else 

val [i]  =  min [i] ; 

scale[i]  =  create_scale (rowcoll ,  scale_label [i] ,  &wid,  &min[i], 

&max[i],  &inc,  &dec,  aval [i] ,  &swid,  &index[i],  meshCB) ; 

for  ( j  =0 ;  j <6;  j++) 

{  n  =  0; 

XtSetArg  (wargs [n] ,  XmNwidth,  90);  n++; 

label  [i]  [j]  =  XmCreateLabel (scale [i] ,  numb[i]  [j] ,  wargs,  n); 
XtManageChildren (label [i]  ,  6)  ; 
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} 


*  -  Create  another  RowColumn  Widget  within  the  first 


*/ 

hv  =  1  ; 

create_separator (rowcol ,  &hv ,  &sd) ; 


XtSetArg (wargs [n] ,  XmNorientation,  XmVERTICAL) ;  n++; 

'rowcol2  =  XtCreateManagedWidget ( ” Z_Mesh_Options_ (continued) n , 
xmRowColumnWidgetClass,  rowcol,  wargs,  n) ; 


★  _  Create  a  info  button,  attach  it  to  nrowcol2",  and  realize  it. 


*/ 

n  =  0; 

button  =  XmCreatePushButton (rowcol2 ,  but_label,  wargs,  n)  ; 
XtManageChild  (button) ; 


*  -  Create  the  Subinterval  Count  Scales 


*/ 

hv  =  0 ; 

for  (i=k+l;  i<=2*k+l;  i++) 

{  create_separator (rowcol2,  &hv,  &sd) ; 

index [i]  =  100*ind  +  i  +  50-k-l; 

wid  =  160; 

dec  =  0; 

swid  =  138; 

inc  =  1 ; 


if (i-k-1  <=  mes [ind] ) 

{  val [i]  =  mes_mh[ind] [i-k-1] ; 

if  (val  [i]  >  max [ i ]  )  -- 

val [i]  =  max [i] ; 

} 

else 

val [i]  =  min [i] ; 

scale [i]  =  create_scale (rowcol2 ,  scale_label [i] ,  &wid,  &min[i], 

&max [i] ,  &inc,  &dec,  &val [i] ,  &swid,  &index[i] ,  meshCB) ; 

for  ( j  =  0 ;  j  <2 ;  j++) 

{  n  =  0; 

XtSetArg  (wargs [n] ,  XmNwidth,  90);  n++; 

label [i][j]  =  XmCreateLabel (scale [i] ,  numb [i] [5* j ] ,  wargs,  n)  ; 

XtManageChildren (label [i]  ,  2)  ; 

}  /*  end  meshzmenuCB  */ 

/*********************************************************************** 
*  VOID  MESHCB 

*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  meshCB 
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Type:  C  void 

Filename :  visual . c 

Parent :  meshxmenuCB ,  meshymenuCB , 

meshzmenuCB 


* 

* 

* 

* 

*<Description> 

*  Gets  the  grid  mesh  dimensions 

*<Called  routines> 

*  none 

*  Parameters  > 

*  Formal  declaration: 

*  void  meshCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 


w 


call  data 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  pointer  to  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  meshCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *n  =  (int  *)c; 

int  i ,  j,  k,  m,  mm,  value; 

float  sum; 

Boolean  flag; 

XmScaleCallbackStruct  *  call_value  = 

(XmScaleCallbackStruct  * )  call_data ; 

value  =  call__value  - >  value; 
i  =  (*n)  /  100; 
j  =  (*n)  %  100; 

if  ( j  <  50) 

{  sum  =0.1*  value ; 

if ( j  <  mes [i] ) 

{  k  =  -1; 
if  ( j  ==  0) 

{  if (sum  >  0.0  &&  sum  <  mes_ms [i] [1]) 

}  k  =  ]; 

else 

{  if  (sum  >  mes_ms[i]  [j-1]  &&  sum  <  mes_ms[i]  [j+1]  ) 

i  k  =  3'' 

if (k  >=  0) 

{  mes_ms [i] [k]  =  sum; 
if (mes  del  cnt[i]  >  0) 
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{  for  (m=0 ;  m<mes_del_cnt [i] ;  m++) 

{  if(j  ==  mes_del[i]  [m]  ) 

{  mes_del_cnt [i] ; 

if ( (mes_del_cnt [i]  !=  0)  &&  (m  !=  mes_del_cnt [i] ) ) 

{  for  (mm=m;  mni<mes_del_cnt  [i]  ;  mm++) 
mes  del [i] [mm]  =  mes_del [ij  [mm+1] ; 


new_file  =  TRUE; 
in  change  =  TRUE; 

}•  " 
else 

{  mes_del  [i]  [mes_del_cnt [i] ]  =  j ; 
mes_del_cnt [i] ++ ; 
new_file  =  TRUE; 
in_change  =  TRUE; 


else  if ( j  >  mes  [i] ) 

{  k  =  -1; 

if  (sum  >  0.0  &&  sum  <  mes__ms  [i]  [0]) 
k  =  0; 
else 

{  if (mes [i]  >  0) 

{  for  (m=l;  m<=mes [i] ;  m++) 

{  if (sum  >  mes_ms [i]  [m-1]  &&  sum  <  mes_ms  [i]  [m] ) 
k  =  m; 


if (k  >=  0) 

{  mes_add[i] [0]  =  sum; 
new_f ile  =  TRUE; 
in_change  =  TRUE; 


else 

{  j  -=  50; 

if ( j  <=  mes [i] ) 

{  if (value  <  1) 

{  k  =  -1; 

if (mes_del_cnt [i]  >  0) 

{  for  (m=0;  m<mes__del__cnt  [i]  ;  m++) 
{  if  ( j  ==  mes_del[i]  [m]  ) 
k  -  m; 


if (k  <  0  &&  j  i =  mes [i] ) 

{  mes_del [i]  [mes_del_cnt [i]  ]  =  j; 
mes  del  cnt[i]++; 


381 


{  for  (sum=0.0,  m=0;  m<=mes [i] ;  m++) 

{  if (m  i=  j) 

{  sum  +=  mes_mh[i]  [m]  ; 

if (mes_del_cnt [i]  >  0) 

{  for  (flag-FALSE,  k=0;  k<mes_del_cntf i]  ;  k++) 
{  if ( (m  ==  mes_del [i] [k] )  &&  !flag) 

{  sum  -=s  mes_mh[i]  [m]  ; 
flag  =  TRUE; 


if (value  +  sum  >  MAXXYZ) 
value  =  MAXXYZ  -  sum; 
mes_mh[i]  tj]  =  value; 


else 

mes  add[i] [1]  =  value; 


new_file  =  TRUE; 
in_change  =  TRUE; 

}  /*  end  meshCBO  */ 

/*********************************************************************** 

*  VOID  ARE A_ALB CB 

*<Begin>  . 

*<Identif ication>  Name:  area_albCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  create  arealmenu,  cancelaCB 


*<Description> 

*  Calls  the  appropriate  function  for  selecting  the  area  albedo 


*<Called  routines> 

*  albedolCB 

* 

*  albedo2CB 

* 

*  albedo3CB 


-  Sets  the  scale  for  the  albedo  when 
umdl2_ialb  <  0". 

-  Sets  the  menu  for  the  albedo  when 
Mmdl2_ialb  =0". 

-  Sets  the  menu  for  the  albedo  when 
Mmdl2  ialb  >  0". 


*<Parameters> 

*  Formal  declaration: 

*  void  area_albCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  the  data  passed  to  the  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 
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*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 


void  area_albCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 


int  *indx  =  (int  *)c; 


if (mdl2  <  0) 

{  mdl2  =  0; 

mdl2_sn  =  0.8; 
mdl2_tbound  =  288.2; 
mdl2_ialb  =  -1; 
mdl2_ip  =  0; 
cur  ialb  =  mdl2_ialb; 

}  " 


if (mdl2_ialb  <  0) 

albedolCB (menu,  indx,  NULL); 
else  if (mdl2_ialb  ==  0) 

albedo2CB (menu,  indx,  NULL); 
else  if  (mdl2__ialb  >  0) 

albedo3CB (menu,  indx,  NULL) ; 
}  /*  end  area_albCB()  */ 


^ *  VOID  ALBED01CB 


*<Begin> 

*<Identif ication> 
* 

* 

* 


Name :  albedolCB 

Type :  C  void 

Filename :  visual . c 

Parent:  area  albCB,  albedo_chg 


*<Description> 

*  Sets  up  the  scale  for  the  Albedo  value  when  nmdl2_ialb  =  -1", 

*  Wave  Independent  -  User  Defined  Albedo. 


*<Called  routines> 

*  create_rowcol 

*  cancelbCB 

*  create_separator 

*  create_scale 

*  albedlCB 


-  creates  a  Rowcol  Widget 

-  removes  the  rowcol  widget 

-  creates  a  Separator  Widget 

-  creates  a  Scale  Widget 

-  Gets  the  albedo  value  from  the  scale 


*< Parameters > 


Formal  declaration: 

void  albedolCB (  Widget  w,  XtPointer  c 
Input : 


XtPointer  call  data) 


w 


call  data 


Output : 
None 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


*<History> 
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09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  albedolCB  (Widget  w,  XtPointer  c,  XtPointer  call  data) 

{ 

int  *indx  =  (int  *)c; 

Widget  rowcol,  label  [6] ,  scale; 

Arg  wargs [10]  ; 
int  n ,  i ; 

static  int  hv,  sd,  wid,  inc,  dec,  val,  swid; 
static  char  scale_label  [27] ; 

static  char  numb  [6]  [4]  =  {  "0.0",  "0.2",  "0.4",  "0.6",  "0.8",  "1.0”  }; 

static  int  min  =  0; 
static  int  max  =  1000; 

sprintf (scale_label ,  "Albedo  Value  for  Area  -  %d",  (*indx)+l); 


/* - 

*  -  Create  a  RowColumn  Widget 

*  - . - 

*/ 

rowcol  =  create_rowcol (menu,  "User_Def ined_Albedo" ,  cancelbCB) ; 

/* - 

*  -  Create  the  Scale 

*  _ 

*/ 

hv  =  0; 

sd  =  2 ; 

create^separator (rowcol ,  &hv,  &sd)  ; 

wid  =  560; 
inc  =  0; 
dec  =  3 ; 
swid  =  538; 

if (area  >  albd) 
val  =  min; 
else 

val  =  1000.0  *  albd_falb [ (*indx) ] ; 

scale  =  create_scale  (rowcol,  scale__label ,  &wid,  &min,  &max,  &inc, 

&dec,  &val,  &swid,  indx,  albedlCB) ; 

for  (i=0 ;  i<6;  i++) 

{  n  =  0; 

XtSetArg  (wargs [n] ,  XmNwidth,  90);  n++; 

label  [i]  =  XmCreateLabel (scale,  numb [i] , '  wargs ,  n) ; 

XtManageChildren ( label ,  6 ) ; 

}  /*  end  albedolCB ()  */ 

/*********************************************************************** 

*  VOID  ALBED1CB 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  albedlCB 

*  Type :  C  void 

*  Filename:  visual. c 
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*  Parent :  albedolCB 
*<Description> 

*  Gets  the  albedo  value  when  nmdl2_ialb  -  -1". 

*<Called  routines> 

*  None 


* 

* 

* 

* 

* 

* 

* 

* 

* 


<Parameters> 

Formal  declaration: 

void  albedlCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 

W  -  the  ID  of  the  widget  for  which  the 

callback  is  registered 

c  -  pointer  to  the  data  passed  to  the  routine 

call_data  -  a  pointer  to  the  callback  structure  which 

contains  information  on  why  the  callback 


* 


occurred 


* 

* 

* 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 


*<End>  ****************** 


void  albedlCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *n  =  (int  *)c; 
int  i,  value; 

XmScaleCallbackStruct  *  call_value  = 

(XmScaleCallbackStruct  *)  call_data; 


value  =  call__value  ->  value; 
i  =  *n; 

cur_area  =  i ; 

area_iamtl [i]  =  albd_lalb[i]  =  i+1; 
albd_falb[i]  =  0.001  *  (float) value; 

new_file  =  TRUE; 
in_change  =  TRUE; 

}  /*  end  albedlCB ()  */ 

/*********************************************************************** 

*  VOID  ALBED02  CB 
*********************************************************************** 
*<Begin> 

*<Identification>  Name:  albedo2CB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  area_albCB,  albedo_chg 

*<Description> 

*  Sets  up  menus  for  the  various  Albedo  values  when  nmdl2__ialb  =  0", 

*  Wave  Independent  -  Tabulated  Albedo. 

*<Called  routines> 

*  create_rowcol  -  creates  a  Rowcol  Widget 

*  cancelbCB  -  removes  the  rowcol  widget 
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create_radiobox  -  creates  a  Radiobox  Widget 

create_togglebutton  -  creates  a  Togglebutton  Widget 
albed2CB  -  Gets  the  albedo  value 


*  Parameters  > 

*  Formal  declaration: 

*  void  albedo2CB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  the  data  passed  to  the  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 


*/ 

void  albedo2CB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *indx  =  (int  *)c; 

Widget  rowcol,  radio,  toggle [31]; 

int  n,  j,  ind; 

static  int  index [31],  nc; 

static  int  sub [16]  =  {  1,  2,  3,  4,  5,  6,  7,  16,  17,  18,  19,  20,  21, 

22,  29,  30  } ; 

static  char  cat_label [41] ; 
static  char  tog_label [31]  [17]  ; 


for  ( j  =  0 ;  j < 3 1 ;  j++) 

{  strcpy  (tog_label [ j ] ,  broad__type  [  j  ]  )  ; 
for  (n=0;  n<16;  n++) 

{  if ( j  ==  sub [n] ) 

strcat  (tog_label [j]  ,  "  >" )  ; 


ind  =  *indx; 

sprintf (cat_label , "Broad-Band  Albedo  Surfaces  for  Area  -  %d" , 
(*indx) +1) ; 


/* - 

*  -  Create  a  RowColumn  Widget 

*  _ 

*/ 

rowcol  =  create_rowcol (menu,  " Broad - Band_Albedo " ,  cancelbCB) ; 


/* - 

*  -  Create  the  radiobox  and  toggles 

*  _ 

*/ 

nc  =  2  ; 

radio  =  create_radiobox (rowcol ,  &nc,  cat_label) ; 

for  ( j  =  0 ;  j  < 3 1 ;  j++) 

{  index [j]  =  100  *  ind  +  j; 
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} 


toggle [j]  =  create_togglebut ton (radio,  tog_label [ j ] ,  &index[j], 

albed2CB) ; 


if (area  >=  0) 

{  if (area_iamtl [ind]  ==  0) 
j  =  0  ; 

else  if (area_iamtl [ind]  >  0  &&  area_iamtl [ind]  <  3) 
j  =  1  ; 

else  if (area_iamtl [ind]  >2  &&  area_iamtl [ind]  <  5) 
j  =  2; 

else  if (area_iamtl [ind]  >4  &&  area_iamtl [ind]  <  7) 
j  =  3  ; 

else  if (area_iamtl [ind]  >  6  &&  area_iamtl [ind]  <  9) 
j  =  4  ; 

else  if (area_iamtl [ind]  >8  &&  area_iamtl [ind]  <  11) 
j  =  5; 

else  if (area_iamtl [ind]  >  10  &&  area_iamtl [ind]  <  13) 
j  =  6; 

else  if (area_iamtl [ind]  >  12  &&  area_iamtl [ind]  <  15) 
j  =  7; 

else  if (area_iamtl [ind]  <  22) 
j  =  area_iamtl [ind]  -  7.0; 

else  if (area_iamtl [ind]  >  22  &&  area_iamtl [ind]  <  25) 
j  =  i6; 

else  if (area_iamtl [ind]  >  24  &&  area^iamtl [ind]  <  27) 
j  =  17; 

else  if (area_iamtl [ind]  >  26  &&  area_iamtl [ind]  <  29) 
j  =  18; 

else  if (area_iamtl [ind]  >  28  &&  area_iamtl [ind]  <  32) 
j  =  19; 

else  if  (area__iamtl  [ind]  >  31  &&  area_iamtl  [ind]  <  35) 
j  =  20; 

else  if  (area__iamtl  [ind]  >  34  &&  area_iamtl  [ind]  <  38) 
j  =  21; 

else  if  (area__iamtl  [ind]  >  37  &&  area_iamtl  [ind]  <  41) 
j  =  22; 

else  if (area_iamtl [ind]  <  47) 
j  =  area_iamtl [ind]  -  18.0; 

else  if (area_iamtl [ind]  >  46  &&  area_iamtl [ind]  <  52) 
j  =29; 

else  if (area_iamtl [ind]  >  51  &&  area_iamtl [ind]  <  56) 
j  =  30 

else 

j  =  -1 

if  (j  >=  0  ScSc  j  <=  30) 

XmToggleButtonSetState (toggle  [j]  ,  TRUE,  FALSE); 


/*  end  albedo2CB() 


/*********************************************************************** 

*  VOID  ALBED2CB 

*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  albed2CB 

*  Type:  C  void 

*  Filename :  visual . c 

*  Parent:  albedo2CB 

*<Description> 

*  Gets  the  albedo  value  when  nmdl2_ialb  =  0". 
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*================= 

*<Called  routines> 


* 

albeO 

-  Presents 

Soils  and  Roads  choices 

* 

albel 

-  Presents 

Grass  and  Tree  choices 

* 

albe2 

-  Presents 

Snow  choices 

* 

*  =  = 

albe3 

-  Presents 

Ice  choices 

*  Parameters  > 


w 


call  data 


Formal  declaration: 

void  albed2CB(  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 

-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  pointer  to  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 

*<History> 

*  09/12/94 


AMSRL-BE -S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  albed2CB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *n  =  ( int  * )  c ; 

int  i,  j; 

static  int  index; 


i  =  (*n)  /  100; 
j  =  (*n)  %  100; 

index  =  -1 ; 
cur_area  =  i; 

if ( j  ==  0) 

area_iamtl [i]  =  j ; 
else  if ( j  <  8) 

{  index  =  10* j  +  j  -  1; 
albeO (&index) ; 

} 

else  if ( j  <  16) 

area_iamtl [i]  =  j  +  7; 
else  if(j  <  19) 

{  index  =  10* j  +  j  -  9; 
albeO (&index) ; 

} 

else  if(j  <  23) 

{  index  =  10* j  +  j  -  19; 
albel (&index) ; 

} 

else  if ( j  <  29) 

area_iamtl [i]  =  j  +18; 
else  if  ( j  ==  29) 
albe2  ( )  ; 

else  if(j  ==  30) 
albe3  ( ) ; 
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new_f ile  =  TRUE; 
in_change  =  TRUE; 

}  /*  end  albed2CB ( )  */ 


^ *  VOID  ALBE0  ******** 


*<Begin> 

*<Identif ication> 
* 

* 

*' 


Name:  albeO 

Type :  C  void 

Filename :  visual . c 

Parent:  albed2CB 


*<Description> 

*  Presents  Soils  and  Roads  choices  of  the  broad-band  albedo  groups 


*<Called  routines> 

*  create_rowcol 

*  cancelbCB 

*  create__radiobox 

*  create_togglebutton 

*  albeOCB 


creates  a  Rowcol  Widget 
removes  the  Rowcol  Widget 
creates  a  Radiobox  Widget 
creates  a  Togglebutton  Widget 
Sets  the  broad-band  albedo 


*<Parameters> 

*  Formal  declaration: 

*  void  albeO(int  *indx) 

*  Input : 

*  *indx  -  index  to  indicate  desired  albedo  group 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  albeO (int  *indx) 

Widget  radio,  toggle  [2],  rowcol; 

int  j,  ind,  grp; 

static  int  index[2],  nc; 

static  char  tog_label [2] [4]  =  {  "dry",  "wet"  }; 


grp  =  (*indx)  /  10; 
ind  =  (*indx)  %  10; 


/* - 

*  -  Create  a  RowColumn  Widget 


rowcol  =  create  rowcol (menu,  "Soils_&_Roads_State" ,  cancelbCB) ; 


/* - 

*  -  Create  the  radiobox  and  toggles 


*/ 

nc  as  1  ; 

radio  =  create_radiobox  (rowcol ,  &nc,  broad__type  [grp]  )  ; 
for  ( j  =0 ;  j  <2 ;  j++) 
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{  index  [j]  =  10  *  grp  +  j; 

toggle  [j]  =  create_togglebut ton (radio,  tog_label [ j ] ,  &index[j], 
albeOCB) ; 

} 

if (ind  ==  0) 

{  if (area_iamtl [cur_area]  >  0  &&  area_iamtl [cur_area]  <  3) 
j  =  area_iamtl [cur_area]  -  1; 

else  if (ind  ==  1) 

{  if (area_iamtl [cur_area]  >2  &&  area_iamtl [cur_area]  <  5) 
j  =  area  iamtl [cur  area]  -  3 ; 

} 

else  if (ind  ==  2) 

{  if (area_iamtl [cur^area]  >  4  &&  area_iamtl [cur_area]  <  7) 
j  =  area_iamtl [cur_area]  -  5; 

else  if (ind  ==  3) 

{  if (area_iamtl [cur_area]  >  6  &&  area_iamtl [cur_area]  <  9) 
j  =  area_iamtl [cur_area]  -  7; 

else  if (ind  ==  4) 

{  if  (area_iamtl  [cur__area]  >  8  &&  area_iamtl  [cur_area]  <  11) 
j  =  area  iamtl [cur  area]  -  9; 

} 

else  if (ind  ==  5) 

{  if (area_iamtl [cur_area]  >  10  &&  area_iamtl [cur_area]  <  13) 
j  =  area  iamtl [cur  area]  -  11; 

}  " 
else  if (ind  ==  6) 

{  if  (area__iamtl  [cur__area]  >  12  &&  area_iamtl  [cur^area]  <  15) 
j  =  area_iamtl [cur_area]  -  13; 

else  if (ind  ==  7) 

{  if (area_iamtl [cur_area]  >  22  &&  area_iamtl [cur_area]  <  25) 
j  =  area  iamtl [cur  area]  -  23; 

} 

else  if (ind  ==  8) 

{  if (area_iamtl [cur_area]  >  24  &&  area_iamtl [cur_area]  <  27) 
j  =  area  iamtl [cur  area]  -  25; 

} 

else  if (ind  ==  9) 

{  if  (area_iamtl  [cur_area]  >  26  &&  area__iamtl  [cur_area]  <  29) 
j  =  area_iamtl [cur_area]  -  27; 

else 
j  =  -i; 

if  ( j  >=  0  ScSc  j  <=  l) 

XmToggleButtonSetState (toggle [j] ,  TRUE,  FALSE) ; 

}  /*  end  albeOO  */ 

/*********************************************************************** 

*  VOID  ALBEOCB 
***********■****************■****************************************  +  *** 
*<Begin> 

*<Identif ication>  Name:  albeOCB 

*  Type :  C  void 

*  Filename:  visual . c 

*  Parent:  albeO,  albel,  albe2,  albe3 

*<Description> 
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*  Sets  the  broad-band  albedo 

*<Called  routines> 

*  none 

*<Parameters> 

*  Formal  declaration: 

*  void  albeOCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  pointer  to  the  data  passed  to  the  routine 

*  call  data  -  a  pointer  to  the  callback  structure  which 

*  ”  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 

**************** 


void  albeOCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *n  =  ( int  * )  c ; 
int  grp,  i; 


grp  =  (*n)  /  10; 
i  =  (*n)  %  10; 


if (grp  ==  1) 

area_iamtl [cur_area]  =  i  +  1; 
else  if (grp  ==  2) 

area_iamtl  [cur__area]  =  i  +  3; 
else  if (grp  ==  3) 

area_iamtl [cur_area]  =  i  +  5; 
else  if (grp  ==  4) 

area__iamtl  [cur_area]  «  i  +  7; 
else  if (grp  ==  5) 

area_iamtl [cur_area]  =  i  +  9; 
else  if (grp  ==  6) 

area_iamtl [cur_area]  =  i  +  11; 
else  if (grp  ==  7) 

area_iamtl [cur_area]  =  i  +  13; 
else  if (grp  ==  16) 

area_iamtl [cur_area]  =  i  +  23; 
else  if (grp  ==  17) 

area_iamtl [cur_area]  =  i  +  25; 
else  if (grp  ==  18) 

area_iamtl [cur_area]  =  i  +  27; 
else  if (grp  ==  19) 

area_iamtl [cur_area]  =  i  +  29; 
else  if (grp  ==  20) 

area__iamtl  [cur_area]  =  i  +  32; 
else  if (grp  ==  21) 

area_iamtl [cur_area]  =  i  +  35; 
else  if (grp  ==  22) 

area_iamtl tcur_area]  =  i  +  38; 
else  if (grp  ==  29) 
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area_ji.amtl  [cur_area]  =  i  +  47; 
else  if (grp  ==  30) 

area__iamtl  [cur_area]  =  i  +  52; 

new_file  =  TRUE; 
in_change  =  TRUE; 

}  /*  end  albeOCBO  */ 


/*********************************************************^************* 
*  VOID  ALBE1 

*********************************************************************** 


*<Begin> 

*<Identif ication> 
* 

* 

* 


Name : 
Type: 
Filename : 
Parent : 


albel 
C  void 
visual . c 
albed2CB 


*<Description> 

*  Presents  Grass  and  Tree  choices  of  the  broad-band  albedo  groups 
*=====================================  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  — —  —  -  —  -  —  - 


*<Called  routines> 

*  create_rowcol 

*  cancelbCB 

*  create_radiobox 

*  create_togglebutton 

*  albeOCB 


-  creates  a  Rowcol  Widget 

-  removes  the  Rowcol  Widget 

-  creates  a  Radiobox  Widget 

-  creates  a  Togglebutton  Widget 

-  Sets  the  broad-band  albedo 


*  Parameters  > 

*  Formal  declaration: 

*  void  albel (int  *indx) 

*  Input : 

*  *indx  -  index  to  indicate  desired  albedo  group 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*=---==--============- ====== _ — = _ ========== _ 


*<End> 

*********************************************************************** 

*/ 

void  albel (int  *indx) 

{ 

Widget  radio,  toggle [3],  rowcol; 

int  j,  ind,  grp; 

static  int  index[3],  nc; 

static  char  tog_label [3] [12]  =  {  "growing”,  "dormant" ,  "unspecified"}; 


grp  =  (*indx)  /  10; 
ind  =  (*indx)  %  10; 

/* - 

*  -  Create  a  RowColumn  Widget 


*/ 

rowcol  =  create^rowcol (menu,  "Grass_&_Tree_State" ,  cancelbCB); 


Create  the  radiobox  and  toggles 
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nc  =  1 ; 

radio  =  create__radiobox  (rowcol ,  &nc,  broad_type  [grp]  )  ; 

for  ( j  =0 ;  j <3 ;  j++) 

{  index [j]  =  10  *  grp  +  j; 

toggle [j]  =  create_togglebutton (radio,  tog_label [ j ] ,  &index[j], 
albeOCB) ; 

} 

if (ind  ==  0) 

{  if (area_iamtl [cur_area]  >  28  &&  area_iamtl [cur_area]  <  32) 
j  =  area_iamtl [cur^area]  -  29; 

else  if (ind  ==  1)  - 

{  if (area_iamtl [cur_area]  >  31  &&  area_iamtl [cur_area]  <  35) 
j  =  area  iamtl [cur_area]  -  32; 

} 

else  if (ind  ==  2) 

{  if (area_jLamtl [cur_area]  >  34  &&  area_iamtl [cur_area]  <  38) 
j  =  area_iamtl [cur_area]  -  35; 

} 

else  if (ind  ==  3) 

{  if (area_iamtl [cur_area]  >  37  &&  area_iamtl [cur_area]  <  41) 
j  =  area_iamtl [cur_area]  -  38; 

} 

else 
j  =  -i; 

if ( j  >=  0  &&  j  <=  2) 

XmToggleButtonSet State (toggle [j] ,  TRUE,  FALSE) ; 

}  /*  end  albelO  */ 

/*********************************************************************** 

*  VOID  ALBE2 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  albe2 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  albed2CB 

*<Description> 

*  Presents  Snow  choices  of  the  broad-band  albedo  groups 
*<Called  routines> 

*  create_rowcol  -  creates  a  Rowcol  Widget 

*  cancelbCB  -  removes  the  Rowcol  Widget 

*  create_radiobox  -  creates  a  Radiobox  Widget 

*  create_togglebutton  -  creates  a  Togglebutton  Widget 

*  albeOCB  -  Sets  the  broad-band  albedo 

*<Parameters> 

*  Formal  declaration: 

*  void  albe2 (void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 
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*<End> 

************  ********************************************  ******  ********* 
*/ 

void  albe2 (void) 

{ 

Widget  radio,  toggle  [5] ,  rowcol; 
int  j  ; 

static  int  index [5],  nc; 

static  char  tog_label [5] [8]  =  {  "fresh",  "dense",  "moist",  "old", 

"melting"  }; 

/* - - - 

*  -  Create  a  RowColumn  Widget 


*/ 

rowcol  =  create_rowcol (menu,  "Snow_State" ,  cancelbCB) ; 


/* - 

*  -  Create  the  radiobox  and  toggles 


*/ 

nc  =  1; 

radio  =  create__radiobox  (rowcol ,  &nc,  broad_type [29] ) ; 

for  ( j  —  0 ;  j <5 ;  j++) 

{  index [j]  =  j  +  290; 

toggle  [j]  =  create__togglebut  ton  (radio,  tog_label  [  j  ]  ,  &index[j], 


if (area_iamtl [cur_area]  >  46  &&  area_iamtl  [cur_area]  <  52) 
j  =  area_iamtl [cur_area]  -  47; 
else 
j  =  -1; 

if ( j  >=  0) 

XmToggleButtonSetState (toggle [j] ,  TRUE,  FALSE); 

}  /*  end  albe2()  */ 


*  VOID  ALBE3 


*<Begin> 

*<Identif ication>  Name:  albe3 

*  Type:  C  void 

*  Filename:  visual . c 

*  Parent:  albed2CB 

*<Description> 

*  Presents  Ice  choices  of  the  broad-band  albedo  groups 


*<Called  routines> 

*  create_rowcol 

*  cancelbCB 

*  create_radiobox 

*  create__togglebutton 

*  albeOCB 


creates  a  Rowcol  Widget 
removes  the  Rowcol  Widget 
creates  a  Radiobox  Widget 
creates  a  Togglebutton  Widget 
Sets  the  broad-band  albedo 


*  <Parameters  > 

*  Formal  declaration: 

*  void  albe3 (void) 
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*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  albe3 (void) 

Widget  radio,  toggle [4] ,  rowcol; 
int  j  ; 

t"  i  p  i  nt"  T4l 

static  char  tog_label [4] [13]  =  {  "white",  "grey",  "snow  and  ice", 

"dark  glass"  }; 


*  -  Create  a  RowColumn  Widget 


rowcol  =  create  rowcol (menu,  "Ice  State",  cancelbCB) ; 


*  -  Create  the  radiobox  and  toggles 


nc  -  1  ; 

radio  =  create  radiobox (rowcol ,  &nc,  broad_type [30] ) / 


for  ( j  =  0 ;  j  <4 ;  j++) 

{  index  [j]  =  j  +  300; 

toggle  [j]  =  create__togglebut ton  (radio,  tog_label  [  j  ]  ,  &index[j], 

albeOCB) ; 

} 

if  (area__iamtl  [cur^area]  >  51  &&  area_iamtl  [cur^area]  <  56) 
j  =  area_iamtl [cur_area]  -  52; 
else 
j  =  -1; 

if ( j  >=  0) 

XmToggleButtonSetState (toggle [j ] ,  TRUE,  FALSE); 

}  /*  end  albe3()  */ 

/*********************************************************************** 

*  VOID  ALBED03CB 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  albedo3CB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  area_albCB,  albedo_chg 


*<Description> 

*  Sets  up  menus  for  the  various  Albedo  values  when  "mdl2_ialb  >  0", 

*  Spectral  Albedos . 

*<Called  routines > 
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* 

* 

* 

* 

* 

* 


create__rowcol  -  creates  a  Rowcol  Widget 

cancelbCB  -  removes  the  rowcol  widget 

create_radiobox  -  creates  a  Radiobox  Widget 

create_jtogglebutton  -  creates  a  Togglebutton  Widget 
albed3CB  -  Gets  the  albedo  value  when  "mdl2  ialb  >  0” 


*<Parameters> 


Formal  declaration: 

void  albedo3CB(  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 

-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


w 


call  data 


Output : 
None 


*<History> 

*  09/12/94 


* - 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  albedo3CB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *indx  =  (int  *)c; 

Widget  radio,  toggle [7],  rowcol; 
int  j ,  ind ; 

static  int  index [7] ,  nc; 
static  char  cat_label [45]  ; 
static  char  spect_label [7] [20] ; 


for  ( j  =  0 ;  j  <7 ;  j++) 

sprintf  (spect_JLabel  [j]  ,  "Spectral  Model  -  %d",  j); 
ind  =  *indx; 

sprintf (cat_label ,  "Spectral  Surface  Albedo  Models  for  Area  -  %d", 
(*indx) +1) ; 


/* - 

*  -  Create  a  RowColumn  Widget 

*  _ 

*/ 

rowcol  =  create_rowcol (menu,  "Spectral_Albedo" ,  cancelbCB); 


/* - 

*  -  Create  the  radiobox  and  toggles 


*/ 

nc  =  1  ; 

radio  =  create_radiobox (rowcol,  &nc,  cat_label) ; 


for  ( j  =  0 ;  j 
{  index [j] 
toggle [j] 

} 


<7;  j++) 

=  100  *  ind  +  j; 

=  creat e_togglebutton ( radio , 
albed3CB) ; 


spect_label [j]  , 


&index [ j ] , 


if (area  >=  0) 
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{  if (area_iamtl [ind]  >=  0  &&  area_iamtl [ind]  <  7) 

XmToggleButtonSetState (toggle [ (int) area_iamtl [ind] ] ,  TRUE,  FALSE) ; 

}  /*  end  albedo3CB()  */ 

/*********************************************************************** 

*  VOID  ALBED3CB 
*********************************************.fr,fct,#r(]jk>i(,ij(r^^  +  +  ^  +  +  +  ^  +  ^^^  +  ^^^^^^ 
*<Begin> 

*< Identification  Name:  albed3CB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  albedo3CB 

*<Description> 

*  Gets  the  albedo  value  when  "mdl2_ialb  >  0". 

*<Called  routines> 

*  None 

*<Parameters> 

*  Formal  declaration: 

*  void  albed3CB (  Widget  w,  XtPointer  c,  XtPointer  call  data) 

*  Input :  — 

*  w  *  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  pointer  to  the  data  passed  to  the  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  albed3CB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *n  =  ( int  * ) c ; 
int  i,  j; 

i  =  (*n)  /  100; 
j  =  (*n)  %  100; 

area_iamtl [i]  =  j ; 
cur_area  =  i; 


new_file  =  TRUE; 
in_change  =  TRUE; 

}  /*  end  albed3CB ( )  */ 

/*************★*********************************** ********************** 
*  VOID  ALBEDO_CHG 

**********************************  ************  +  *****  +  ***^^  +  ^^^^^ 
*<Begin> 

*<Identification>  Name:  albedo  cha 


Type 

Filename 


albedo_chg 
C  void 
visual . c 


Parent :  modelCB 


*<Description>  _  ,  _ 

*  Sets  up  the  menu  for  selecting  the  Albedo  for  each  Area 


*<Called  routines> 

*  create_menubar 

* 

*  create__rowcol 

*  cancelbbCB 

*  create_radiobox 

*  create_togglebutton 

*  albedolCB 

* 

*  albedo2CB 

* 

*  albedo3CB 

* 


creates  the  pull-down  menus,  rollover 
menus,  and  menubar  to  control  them 
creates  a  Rowcol  Widget 
removes  the  rowcol  widget 
creates  a  Radiobox  Widget 
creates  a  Togglebutton  Widget 
Sets  the  scale  for  the  albedo  when 
"mdl2_ialb  <  0n. 

Sets  the  menu  for  the  albedo  when 
"mdl2_ialb  =0”. 

Sets  the  menu  for  the  albedo  when 
nmdl2  ialb  >  0". 


*  Parameters  > 

*  Formal  declaration: 

*  void  albedo^chg (  void  ) 

*  Input : 

*  none 


*  Output : 

*  None 

*<History> 

*  09/12/94 

* 


AMSRL-BE-S  (505)  678-1570  Elton  P. 

Developed  the  original  source  code. 


Avar  a 


*<End> 

****** 

*/ 

void  albedo  chg  (void) 


*/ 


{ 


Widget  rowcol,  radio,  toggle [IAM+1] ; 
int  j; 

static  int  index [IAM+1] ,  nc; 
static  char  tog  label [IAM+1] [10] ; 

static  char  cat_label [29]  =  "Select  Albedos  for  each  Area 


11  . 


for ( j  =  0 ;  j <=area;  j++)  . 

sprint f  (tog__label  [j ]  ,  "Area  -  %dn,  j+1)  ; 


cur_area  =  area  +  1 ; 

if (mdl2  <  0) 

{  mdl2  =  0; 

md!2_sn  =  0.8; 

mdl 2_tbound  =  288.2; 

mdl2_ialb  =  -1; 

mdl2_ip  =  0; 

cur  ialb  =  mdl2_ialb; 

} 

if(cur_ialb  <  0) 

{  albd  =  -Is 

for { j  =0 ;  j<=area;  j++) 
area_iamtl [j]  =  0; 

} 


/*  Default  input  values  */ 


/*  Wave  Indep,  User  Defined  */ 
/*  Initialize  albedos  */ 
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/*  Wave  Indep,  User  Defined  */ 

/*  Initialize  ALBD  cards  */ 

/*  to  Background_Albedo  */ 

/*  Tabulated  or  Spectral  */ 

/*  clear  IAMTL  values  */ 

area  iamtl[j]  =  0; 

} 

XtUnmanageChild  (menu) ; 
menu  -  create  menubar (form) ; 


if (mdl2_ialb  <  0) 

{  albd  =  area; 

for ( j  =  0 ;  j<=area;  j++) 

{  area_iamtl t j ]  =  albd_lalb[j]  =  j+1; 
albd_f alb [ j ]  =  background_albedo ; 


else 

{  for ( j  =  0 ;  j <=area;  j++) 


/* - 

*  -  Create  a  RowColumn  Widget 


rowcol  =  create  rowcol (menu,  nArea_Selection" ,  cancelbbCB) ; 


/* - 

*  -  Create  the  radiobox  and  toggles 

*  _ 

*/ 

nc  =  1 ; 

radio  =  create_radiobox (rowcol ,  &nc,  cat__label)  ; 

for  { j  =  0 ;  j<=area;  j++) 

{  index [ j ]  =  j  ; 


} 


if (mdl2_ialb 
{  toggle [j]  = 

} 

else  if (mdl2_ 
{  toggle [j]  = 

} 

else  if (mdl2_ 
{  toggle [j]  = 

} 


<  0) 

:  create_togglebutton (radio, 
albedolCB) ;  /* 

ialb  ==  0) 

•  create_togglebutton (radio , 
albedo2CB) ;  /* 

ialb  >  0) 

:  create__togglebutton (radio , 
albedo3CB) ;  /* 


tog_label [ j ] ,  &index [ j ] , 
Wave  Indep,  User  Defined 


tog_label [ j ] ,  &index [ j ] , 
Wave  Indep,  Tabulated 


tog_label [ j  ]  ,  kindex [ j ] , 
Spectral 


*/ 


*/ 


*/ 


if (cur_area  <=  area) 

XmToggleButtonSetState (toggle [cur_area]  ,  TRUE,  FALSE) ; 

}  /*  end  albedo_chg()  */ 

/*********************************************************************** 

*  VOID  AREA_LOCCB 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  area_locCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  create_arealmenu,  cancelaCB 

*  <Descript ion> 

*  Sets  a  flag  to  initiate  moving  the  point  where  the  Albedo  Area 

*  is  located  on  the  ground. 
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*<Called  routines> 

*  reset 

* 

*  draws cene 

* 

* 

★  _  _  _ = _  _ = = = _ = = _  _  _ = _  _ 
*< Parameters > 


-  resets  the  viewing  and  plot  parameters  to 
the  original  values 

-  Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 


Formal  declaration: 

void  area_locCB (  Widget  w,  XtPointer  c, 
Input : 


XtPointer  call  data) 


c 

call  data 


*  Output : 

*  None 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  input  data  from  the  calling  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


*<History> 

*  09/12/94 

* 

*<End> 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 


*********************************************************************** 

*/ 

void  area_locCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *indx  =  (int  *)c; 
int  i ; 


move_area  =  TRUE; 
new_file  =  TRUE; 

cur_area  =  *indx; 


cur_JLab_obsc  =  label_obsc; 
label_obsc  =  TRUE; 

/* - 

*  -  Save  the  current  viewing  axis  flags  and  choose  a  +Z  axis  option. 

*  _ 

*/ 

for  ( i-0 ;  i<3;  i++) 

temp_axis [i]  =  view_axis [i] ; 

view_axis[0]  =  view_axis [1]  =  FALSE; 
view__axis  [2]  =  TRUE; 


/* - - 

*  -  Save  the  current  "movH  parameters . 

*  - 

*/ 

fac  =  mov- >magf actor ; 
nndx  =  mov- >ndx; 
nndy  =  mov->ndy; 
ttdx  =  mov->tdx; 
ttdy  =  mov->tdy; 


/* - 

*  -  Reset  the  viewpoint  and  redraw  the  scene  in  the  window. 
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*/ 

reset  ()  ; 
draws  cene  ()  ; 

}  /*  end  area_locCB()  */ 


/ 


*  VOID  AREA__DELCB 


*<Begin> 

*<Identif ication>  Name:  area_delCB 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent:  create  arealmenu,  regnCB 


*<Description> 

*  Deletes  an  Albedo  Area 

*<Called  routines> 

*  set_albedo 

*  obsc 

* 

*  create_menubar 

* 

*  draws cene 

* 

* 


sets  the  Albedo  values 

sets  up  rowcolumn  widget  with  names  of 
materials . 

creates  the  pull-down  menus,  rollover 
menus,  and  menubar  to  control  them 
Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 


*  Parameters  > 


Formal  declaration: 

void  area_delCB{  Widget  w,  XtPointer  c 
Input : 


XtPointer  call  data) 


w 


call  data 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


* 

* 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 


void  area_delCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *indx  =  (int  *)c; 
int  i ; 


if (  (*indx)  1=0) 

{  if (  (*indx)  <  area  ) 

{  for  (i=(*indx);  i<area;  i++) 

{  area_alx[i]  =  area_alx [i+1] ; 
area_ahx[i]  =  area_ahx [i+1] ; 
area_aly [i]  =  area_aly [i+1] ; 
area_ahy[i]  =  area_ahy [i+1] ; 

if (mdl2  ialb  <  0) 


401 


{  area_iamtl [i]  -  area_iamtl [i+1]  -  1; 
albd_lalb [i]  =  albd_lalb [i+l]  -  1/ 
albd  falb  [i]  =  albd  f alb  [i+l] ; 

} 

else 

area  iamtl [i]  =  area  iamtl [i+l] ; 

} 

area- - ; 
albd--; 

} 

else  if (  (*indx)  ==  area  ) 

{  area_alx [area]  =  area_ahx [area]  =  area_aly [area]  =  area_ahy [area] = 
area_iamtl  [area]  =  albd_lalb  [area]  =  albd__f alb  [area]  =  0.0; 
area-- ; 
albd--; 

} 

new_file  =  TRUE; 
set_albedo()  ; 
obsc  ()  ; 

XtUnmanageChild  (menu) ; 
menu  =  create  menubar (form) ; 

} 

draws cene ( ) ; 

}  /*  end  area_delCB()  */ 


VOID  REGN_OPTCB 

*********************************************************************** 


*<Begin> 

*<Identif ication> 


Name 

Type 

Filename 

Parent 


regn_optCB 
C  void 
visual . c 

create_regionlmenu 


*<Description> 

*  Sets  up  the  scales  for  selecting  the  region  dimensions 


*<Called  routines> 

*  create_rowcol 

*  cancelrCB 

*  create_separator 

*  create_scale 

*  regnCB 


-  creates  a  Rowcol  Widget 

-  removes  the  rowcol  widget 

-  creates  a  Separator  Widget 

-  creates  a  Scale  Widget 

-  Gets  the  dimensions  for  a  region 


*< Parameters > 

*  Formal  declaration: 

*  void  regn_optCB (  Widget  w,  XtPointer  c#  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  the  data  passed  to  the  routine 

*  call__data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 
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*<End> 

***************************************** 


void  regn  optCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 
int  *indx  =  (int  *)c; 

Widget  rowcol,  label[3][7],  scale [3]; 

Arg  wargs [10] ; 

int  n,  i ,  j ,  k#  ind,  maxx; 

float  v [3] ; 

static  int  index[3],  hv,  sd,  wid,  inc,  dec,  val [3] ,  swid; 
static  char  scale^label  [3]  [27] ={  "Length  in  X  Direction  (km)", 

"Length  in  Y  Direction  (km) " , 
"Length  in  Z  Direction  (km) "  } ; 

static  char  numb [3]  [6]  [6]  ; 
static  int  min [3]  =  {  0,  0,  0  }; 
static  int  max [3] ; 


for  ( j  =  0 ;  j  <3 ;  j++) 

{  maxx  -  regn_max_dim [ j ] ; 
max [ j ]  =  10  *  maxx; 
for  (i=0 ;  i<6;  i++) 

sprintf (numb [ j ] [i] ,  "%5.2f",  0.2  *  (float) (i  *  maxx) ) ; 

} 


ind  =  *indx; 


/* - 

*  -  Create  a  RowColumn  Widget 


rowcol  =  create_rowcol (menu,  "BLIRB_Regions" ,  cancelrCB) ; 

/* - 

*  -  Create  the  Scale 


*/ 

hv  =  0  ; 
sd  =  2; 

for  ( i— 0 ;  i<3;  i++) 

{  create_separator (rowcol,  &hv,  &sd) ; 

index [i]  =  10*ind  +  i; 

wid  =  560; 

inc  =  1; 

dec  =  1 ; 

swid  =  538; 

if (ind  <=  regn) 

val  [i]  =  10.0  *  (regn_rh[i]  [ind]  -  regn_rl [i]  [ind] ) ; 

else 

val  [i]  =  min [i] ; 

scale  [i]  =  create_scale  (rowcol,  scale__label  [i]  ,  &wid,  &min[i], 

&max [i] ,  ainc,  &dec,  &val [i] ,  &swid,  &index[i],  regnCB) ; 

for  ( j  =0 ;  j <6 ;  j++) 

{  n  =  0; 

Xt Set Arg  (wargs [n] ,  XmNwidth,  90);  n++; 

label  [i]  [ j ]  =  XmCreateLabel (scale [i] ,  numb[i][j],  wargs,  n)  ; 

} 
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XtManageChildren (label [i]  ,  6)  ; 


h 


end  regn_optCB ( ) 


7 


V0ID  REGNCB 

*<Begin> 

*<  Identification 
* 


* 

* 

*=====^=======-===== 

*<Description> 

*  Gets  the  BLIRB 

★  =  =  =  =  =  =  =  =  =  =  =:  =  =  =  =  =  =  =  = 
*<Called  routines> 


Name : 
Type: 
Filename : 
Parent : 


regnCB 
C  void 
visual . c 
regn_optCB 


region  dimensions 


* 

create_message 

-  draws  a  message  in  a  dialog  message  box 

* 

area_delCB 

-  deletes  an  Albedo  Area 

* 

regn_delCB 

-  deletes  a  BLIRB  Region 

* 

* 

set_axis_pts 

-  sets  up  the  grid  points  for  the  X,  Y,  and 
Z  axes . 

* 

* 

reset 

-  resets  the  viewing  and  plot  parameters  to 
the  original  values 

* 

regn__f  ix 

-  rectifies  the  BLIRB  Region  location 

* 

area_f ix 

-  rectifies  the  Albedo  Area  location 

* 

* 

*  = 

create_menubar 

-  creates  the  menubar  for  selecting  the 
various  options 

*  Parameters  > 

*  Formal  declaration: 

void  regnCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 


w 


call  data 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  pointer  to  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


* 

* 

* 

* 

* 

* 

* 

* 

★ 

* 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  regnCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *n  =  (int  *)c; 
int  i ,  j ,  value ; 
float  difl,  dif2,  maxd; 
static  int  k; 

static  char  axis [3] [2]  =  {  "X" ,  "Y",  "Z"  }; 

static  Boolean  pass  =  FALSE; 
static  Boolean  mask [3],  go; 
static  char  *msg[]  =  { 


"  \n"  , 
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"You  may  wish  to  use  the  [Grid  Mesh  Selection] \n" , 
"suboption  under  the  [Modify]  option  on  the  menubar\n", 
"to  modify  the  Number  of  Subintervals  to  correct  the\n" 


"problem. \n" , 

""  }  ; 

XmScaleCallbackStruct  *  call_value  = 

(XmScaleCallbackStruct  *)  call_data; 


value  =  call_value  ->  value; 
i  =  (*n)/10; 
j  =  (*n)  %  10; 

if ( (i  >  regn)  &&  !pass)  /*  Initialize  new  region  */ 

{  regn__izmtl  [i]  =  i+1; 

for  (k=0 ;  k<3;  k++) 

regn__rl  [k] [i]  =  regn_rh [k] [i]  =  0.0; 

for  ( k=  0 ;  k<MXMTR;  k++) 

{  mtrl_lmtl [i] [k]  =  3.0; 
mtrl  wmtl [i] [k]  =  0.0; 

} 

pass  =  TRUE; 

mask[0]  =  mask[l]  =  mask [2]  =  FALSE; 

} 


if (i  >  regn) 

mask[j]  =  TRUE; 

go  =  mask  [0]  &&  mask[l]  &&  mask  [2]; 


/*  Dim  "j”  of  new  regn  input*/ 


regn_rh[j]  [i]  =  regn_rl[j]  [i]  +  0.1  *  value; 

if (i  __  o)  /*  Primary  BLIRB  Region  */ 

{  k  =  regn_rh[j]  [0]  +  0.5; 

if(mes[j]  ==  0)  /*  Get  resulting  mesh  size  */ 

{  difl  =  mes_ms[j]  [mes[j]]  /  mes_mhtj]  [mes[j]]; 
dif 2  =  (float)  k  /  mes__mh  [ j  ]  [mes  [ j  ]  ]  ; 

} 

else  ■  . 

{  difl  =  (mes_ms[j]  [mes  [  j  ]  ]  -mes__ms  [  j  ]  [mes  [  j  ] -1]  )  /mes_mh  [  j  ]  [mes[jJJ; 
dif 2  =  ( (float) k  -  mes_ms [ j ] [mes [ j ] -1] )  /  mes_mh [ j ] [mes [ j ] ] ; 

} 

if  (  k  !  =  (int)mes_ms  [j]  [mes  [ j]  ]  ) 

{  sprintf (msg[0] ,  "%s  Grid  Mesh-%d  Endpoint  has  been  moved  and\n" , 

axis  [ j  ]  ,  mes[j]+l); 

sprintf (msg [1] ,  "the  Grid  Spacing  changed  from  %4.1f  to  %4.1f.\n" , 
difl,  dif 2 ) ; 

create_message (  menu,  msg,  XmDIALOG_WARNING) ; 
mes_ms[j]  [mes[j]]  =  k; 

maxd  =  regn_rh [0] [0];  /*  Get  the  Max  dimension  */ 

if (maxd  <  regn_rh[l] [0]) 
maxd  =  regn_rh[l] [0] ; 
if (maxd  <  regn_rh[2] [0]) 
maxd  =  regn_rh[2] [0] ; 
if (maxd  >5.0) 

org_magf actor  =  5.0  /  maxd;  /*  Set  display  scale  factor  */ 

else 

org_magf actor  =  1.0; 

set_axis_pts () ;  /*  Get  the  new  axis  grid  pts*/ 
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/*  For  all  but  primary  regn  */ 


if(regn  >  0) 

{  for  (k=l;  k<=regn;  k++) 

{  cur_regn  =  k; 

regn_fix();  /*  Adjust  regn  edges  to  grid*/ 


if (regn_rh [ j ] [k]  >  regn_rh[j] [0])  /*  Truncate  regn  if  required*/ 
regn_rh[j]  [k]  =  regn_rh[j]  [0]  ; 
if  (regn_rl  [j]  [k]  >=  regn_rh[j]  [0]) 
regn_delCB (NULL,  & k,  NULL) ; 


if ( j  ==  0)  /*  For  X  direction  */ 

{  area_ahx[0]  =  regn_rh[0] [0];  /*  Update  primary  alb  area  */ 

if (area  >  0)  /*  For  other  albedo  areas  */ 

{  for(k=l;  k<=area;  k++) 

{  cur__area  =  k; 

area_fix();  /*  Adjust  their  edges  */ 


if  (area_ahx  [k]  >  regn__rh[0]  [0])  /*  Truncate  area  if  required*/ 
area_ahx  [k]  =  regn_rh[0]  [0]  ; 
if  (area_alx  [k]  >=  regn__rh[0]  [0]) 
area_delCB (NULL,  &k,  NULL) ; 


else  if  ( j  ==  l) 

/* 

For  Y  direction 

*/ 

{  area_ahy[0]  =  regn_ 

rh[l]  [0]  ; 

/* 

Update  primary  alb  area 

*/ 

if (area  >0) 

{  for (k=l ;  k<=area; 

k++) 

/* 

For  other  albedo  areas 

*/ 

{  cur_area  =  k; 

area_f ix ( ) ; 

/* 

Adjust  their  edges 

*/ 

if  (area__ahy  [k] 

>  regn_rh [1] [0] ) 

/* 

Truncate  area  if  required*/ 

area_ahy[k]  =  regn_rh [1]  [0]  ; 
if (area_aly [k]  >=  regn_rh[0] [0] ) 
area_delCB (NULL,  &k,  NULL) ; 


reset ( ) ; 

} 

else  if (i  <-  regn) 

{  if  (regn_rh[j]  [i]  >  regn_rh[j]  [0]  ) 
regn_rh[j]  [i]  =  regn_rh[j]  [0]  ; 
cur_regn  =  i ; 
regn_f  ix  ()  ; 


if (go) 

{  regn++; 
mtrl++; 
pass  =  FALSE; 

mask[0]  =  mask[l]  =  mask  [2]  =  FALSE; 
in_change  =  TRUE; 

cur_regn  =  regn; 
regn_f ix ( ) ; 


/*  Update  the  display  */ 

/*  Not  primary  BLIRB  regn  */ 
/*  Truncate  regn  if  required*/ 

/*  Adjust  edges  of  region  */ 

/*  If  all  3  dimensions  given*/ 
/*  Inc  region  count  */ 

/*  Inc  MTRL  card  count  */ 

/*  Indicate  regn  cnt  change  */ 

/*  Adjust  new  region  edges  */ 


XtUnmanageChild  (menu) ; 
menu  =  create^menubar (form) ; 
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/*  Input  change 


new__file  =  TRUE; 

}  /*  end  regnCB ( )  */ 


*/ 


/*********************************************************************** 

*  VOID  REGN_FIX 
*********************************************************************** 

*<Begin> 

*<  Identification  Name:  regn_fix 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent:  inputCB,  regnCB,  cancelmeCB 

*  description 

*  Rectifies  the  location  of  a  BLIRB  Region. 

*<Called  routines> 

*  none 


*<Parameters> 

*  Formal  declaration: 

*  void  regn_f ix (void) ; 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  regn  fix  (void) 

{ 

int  j ,  k ,  kk ; 
float  dif,  del; 


for  ( j  =  0 ;  j  <3 ;  j++) 

{  del  =  regn_rh[j] [cur_regn]  -  regn_rl[j] [cur_regn] ; 

for  (dif  =  100000.0,  kk  =  -1,  k=0;  k<=num_grid_pts [ j ] ;  k++) 
{  if (  fabs (regn_rl  [ j]  [cur_regn]  -  axis_pts f j ]  [k] )  <  dif  ) 

{  dif  =  fabs (regn_rl [j ]  [cur_regn]  -  axis_pts[j]  [k] ) ; 
kk  =  k; 


regn_rl[j]  [cur_regn]  =  axis_pts[j]  [kk]  ; 

regn_rh [ j ] [cur_regn]  =  regn_rl[j] [cur_regn]  +  del; 

for  (dif  =  100000.0,  kk  =  -1,  k=0;  k<=num__grid_pts  [ j ]  ;  k++) 
{  if (  fabs (regn_rh[j] [cur_regn]  -  axis_pts [ j] [k] )  <  dif  ) 

{  dif  =  fabs (regn_rh[j] [cur_regn]  -  axis_pts [ j ] [k] ) ; 
kk  =  k; 


regn_rh  [ j  ]  [cur__regn]  =  axis_pts[j]  [kk]  ; 

}  /*  end  regn_fix()  */ 

/*********************************************************************** 
*  VOID  FLAR  LOCCB 
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*<Begin> 

*<Identif ication> 
* 

* 

* 

*______=======_;_=, 


Name : 
Type: 
Filename : 
Parent : 


f lar_locCB 
C  void 
visual . c 

create_flarlmenu/  cancelfCB 


*<Description> 

*  Sets  flags  to  initiate  moving  the  point  where  the  Flare  is 

*  located. 


* 


*<Called  routines> 

*  reset  -  resets  the  viewing  and  plot  parameters  to 

*  the  original  values 

*  drawscene  -  Plots  the  3-D  BLIRB  grid  points,  albedo 

*  areas,  aerosol  regions,  and  the  output 

*  flux. 


*  <Parameters  > 


*  Formal  declaration: 

*  void  f lar_locCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  the  input  data  from  the  calling  routine 

*  call__data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  f lar__locCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  * indx  =  ( int  * ) c ; 
int  i ; 


m°ve_flarh  =  TRUE; 
move_flarv  =  TRUE; 
new_f ile  =  TRUE; 

cur_flar  =  *indx; 

cur_lab_obsc  =  label_obsc; 
label_obsc  =  TRUE; 

cur_minor_grid  =  minor_grid; 
minor_grid  =  TRUE; 


/* - 

*  -  Save  the  current  viewing  axis  flags  and  choose  a  +Z  axis  option. 


*/ 

for (i=0 ;  i<3;  i++) 

temp_axis [i]  =  view_axis [i] ; 
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view_axis[0]  =  view_axis [1]  =  FALSE; 

view  axis [2]  =  TRUE; 


/* - 

*  -  Save  the  current  "mov"  parameters. 

★  - 

*/ 

fac  =  mov- >magf actor; 
nndx  =  mov- >ndx; 
nndy  =  mov->ndy; 
ttdx  =  mov- >tdx; 
ttdy  =  mov->tdy; 


*  -  Reset  the  viewpoint  and  redraw  the  scene  in  the  window. 


*/ 

reset  ()  ; 
draws cene  () ; 

}  /*  end  f lar_locCB ( )  */ 


/*********************************************************************** 
*  VOID  FLAR_DELCB 

************************************* 

f lar_delCB 
C  void 
visual. c 

create  flarlmenu 


********************************** 
*<Begin> 

*  < Ident i f icat ion> 

* 

* 

* 


Name : 
Type: 
Filename : 
Parent : 


*<Description> 

*  Deletes  a  BLIRB  Flare 

*<Called  routines> 

*  create_menubar 

* 

*  draws cene 

* 

* 


creates  the  pull-down  menus,  rollover 
menus,  and  menubar  to  control  them 
Plots  the  3-D  BLIRB  grid  points,  albedo 
areas ,  aerosol  regions ,  and  the  output 
flux. 


* 

* 

* 

* 

* 

* 

* 

* 

* 


<Parameters> 

Formal  declaration: 

void  flar_delCB(  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 

w  -  the  ID  of  the  widget  for  which  the 

callback  is  registered 

c  -  the  data  passed  to  the  routine 

call_data  -  a  pointer  to  the  callback  structure  which 

contains  information  on  why  the  callback 


* 


occurred 


*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 


*<End>  ********************** 


void  flar  delCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 
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int *  *indx  =  (int  *)c; 
int  i,  j ; 

if (  (*indx)  <  flar  ) 

{  for  (i=  (*indx)  ;  i<flar;  i++) 

{  f lar_idf lr  [i]  =  f  larjldf  Ir  [i+1]  -  1; 
f lar_itf lr [i]  =  f  lar__itf  lr  [i+1]  ; 
f lar_xflar  [ij  =  f lar_xflar [i+1] ; 
flar_yflar [i]  =  f lar_yf lar [i+1]  ; 
flar_zflar  [i]  =  f lar_zf lar [i+1]  ; 
flar_qflar [i]  =  f lar_qf lar [i+1] ; 
f  lar__tf  lar  [i]  =  f  lar_tf  lar  [i+1]  ; 
for  ( j  =  0 ;  j  <4 ;  j++) 

{  flar_frrfup [i] [ j ]  =  flar_frrfup[i+l][j]; 
flar_frrfdn  [i]  [j]  =  f lar_f rrfdn [i+1]  [ j ] ; 


flar- - ; 

} 

else  if (  (*indx)  ==  flar  ) 

{  flar_idflr [f lar]  =  0.0; 
f lar_itf lr [f lar]  =  0.0; 
flar_xf lar [flar]  =  0.0; 
flar_yf lar [flar]  =  0.0; 
flar_zf lar [flar]  =  0.0; 
flar_qf lar [flar]  =  0.0; 
flar__tf  lar  [flar]  =  0.0; 
for  ( j  =  0 ;  j  <4 ;  j++) 

{  f lar_f rrfup [f lar] [j]  =  0.0; 
flar_f rrfdn [flar] [j]  -  0.0; 

flar- - ; 

} 

new_file  =  TRUE; 

XtUnmanageChild  (menu) ; 
menu  =  create_menubar(form); 

drawscene  O  ; 

}  /*  end  flar_delCB()  */ 

/*********************************************************************** 

*  VOID  SRCH_LOCCB 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  srch_locCB 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent:  create_srqhmenu,  cancelslCB 

*<Description> 

*  Sets  flags  to  initiate  moving  the  point  where  the  Slite  is 

*  located. 


*<Called  routines> 

*  reset  -  resets  the  viewing  and  plot  parameters  to 

*  the  original  values 

*  drawscene  -  Plots  the  3-D  BLIRB  grid  points,  albedo 

*  areas,  aerosol  regions,  and  the  output 

*  flux. 
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*<Parameters> 

*  Formal  declaration: 

*  void  srch_locCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  the  input  data  from -the  calling  routine 

*  call__data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

***************************************************  ******************** 
*/ 

void  srch  locCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

int  i; 

move_srchh  =  TRUE; 
movers rchv  =  TRUE; 
new_file  =  TRUE; 

cur_lab_obsc  =  label_obsc; 
label_obsc  =  TRUE; 

cur_minor_grid  =  minor_grid; 
minor_grid  =  TRUE; 

/* — - - - : - : - : — 

*  -  Save  the  current  viewing  axis  flags  and  choose  a  +Z  axis  option. 

*  - - - 

*/ 

for(i=0;  i<3;  i++) 

temp__axis  [i]  =  view_axis  [i]  ; 

view_axis [0]  =  view_axis [1]  =  FALSE; 
view_axis[2]  =  TRUE; 

/* - - - 

*  -  Save  the  current  "mov"  parameters. 

*  _ 

*/ 

fac  =  mov- >magf actor ; 
nndx  =  mov- >ndx; 
nndy  -  mov->ndy; 
ttdx  =  mov->tdx; 
ttdy  =  mov- >tdy ; 

/* - - - 7 - 7 - - 

*  -  Reset  the  viewpoint  and  redraw  the  scene  in  the  window. 

*  _ 

*/ 

reset ( ) ; 
drawscene ( ) ; 

}  /*  end  srch_locCB()  */ 
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*  VOID  SRCH_DELCB 

**********************************  **********************  *************** 


*<Begin> 

*<Identif ication> 
* 

* 

* 

*================: 


Name 

Type 

Filename 

Parent 


srch_delCB 
C  void 

visual. c  v 

create  srchmenu 


*<Description> 

*  Deletes  a  BLIRB  SearchLight 
*=  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =:  =  =  =  : 


*<Called  routines> 

*  create^menubar 

* 

*  draws cene 

* 


* 


* 


-  creates  the  pull-down  menus ,  rollover 
menus ,  and  menubar  to  control  them 

-  Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 

'  flux. 


*<Parameters> 


Formal  declaration: 

void  srch_delCB {  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 

w  -  the  ID  of  the  widget  for  which  the 

callback  is  registered 

c  -  the  data  passed  to  the  routine 

call_data  -  a  pointer  to  the  callback  structure  which 

contains  information  on  why  the  callback 
occurred 

Output : 

None 


*<History> 

*  09/12/94 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  srch_delCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 
int  i ,  j ; 


srch_xsrch  =  srch_ysrch  =  srch_zsrch  =  srch_thsrch  =  srch__azsrch  = 
srch_psrch  =  srch_tmsrch  =  srch_sdiam  =  0.0; 
srch  =  -1 ; 

new_file  =  TRUE; 

XtUnmanageChild  (menu) ; 
menu  =  create_menubar (form) ; 

drawsceneO; 

}  /*  end  srch_delCB()  */ 

/*********************************************************************** 

*  VOID  REGN_LOCCB 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  regn_locCB 

*  Type:  C  void 

*  Filename:  visual. c 
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*  Parent:  create_regionlmenu,  cancelrCB 
*<Description> 

*  Sets  flags  to  initiate  moving  the  point  where  the  Region  is 

*  located. 


*<Called  routines> 

*  reset 

* 

*  draws cene 

★ 

* 


-  resets  the  viewing  and  plot  parameters  to 
the  original  values 

-  Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 


*<Parameters> 

*  Formal  declaration: 

*  void  regn_locCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  the  input  data  from  the  calling  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  —  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 


void  regn  locCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

int  *indx  =  (int  *)c; 
int  i ; 


move_regnh  =  TRUE; 
move_regnv  =  TRUE; 
new_f ile  =  TRUE; 

cur_regn  =  *indx; 

cur_lab_obsc  =  label__obsc; 
label^obsc  =  TRUE; 

cur__minor_grid  =  minor_grid; 
minor_grid  =  TRUE; 

/* - - - : - : 

*  -  Save  the  current  viewing  axis  flags  and  choose  a  +Z  axis  option. 


*/ 

for (i=0 ;  i<3 ;  i++) 

temp_axis[i]  =  view_axis[i]; 

view_axis[0]  =  view_axis [1]  =  FALSE; 
view  axis [2]  =  TRUE; 


/* - 

*  -  Save  the  current  "mov"  parameters. 
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*/ 

fac  =  mov- >magf actor; 
nndx  =  mov->ndx; 
nndy  =  mov->ndy; 
ttdx  =  mov- >tdx; 
ttdy  =  mov->tdy; 


/* - 

★  -  Reset  the  viewpoint  and  redraw  the  scene  in  the  window. 


*/ 

reset  ()  ; 
draws cene ( ) ; 

}  /*  end  regn_locCB()  */ 


/*********************************************************************** 
*  VOID  REGN_DELCB 


*<Begin> 

*<Identif ication>  Name: 

*  Type : 

*  Filename: 

*  Parent : 

*<Description> 

*  Deletes  a  BLIRB  Region 
*_==___======;=;_==s=====_==_=__;==_:_; 


regn_delCB 
C  void 
visual . c 

create_regionlmenu,  regnCB 


*<Called  routines> 

*  set_aerosol 

*  obsc 

* 

*  create_menubar 

* 

*  draws cene 

•k 

* 


sets  the  Aerosol  Material  values 
sets  up  rowcolumn  widget  with  names  of 
materials . 

creates  the  pull-down  menus,  rollover 
menus,  and  menubar  to  control  them 
Plots  the  3-D  BLIRB  grid  points,  albedo 
areas,  aerosol  regions,  and  the  output 
flux. 


*<Parameters> 


Formal  declaration : 

void  regn_delCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 

-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


w 


call  data 


*  Output : 

*  None 
*____===_==  =  ___ 
*<History> 

*  09/12/94 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  regn_delCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *indx  =  (int  *)c; 
int  i ,  j ; 
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if (  (*indx)  ! =  0  ) 

{  iff  (*indx)  <  regn  ) 

{  for  (i=(*indx);  icregn;  i++) 

{  regn_izmtl [i]  =  regn_izmtl [i+1]  -  1; 
for  ( j  =0 ;  j <3 ;  j++) 

{  regn_rl[j]  [i]  =  regn_rl[j]  [i+1]  ; 
regn_rh[j]  [i]  =  regn_rh[j]  [i+1]  ; 

for  ( j  =  0  ;  j  <MXMTR ;  j++) 

{  mtrl_lmtl[i]  [j]  =  mtrl_lmtl  [i+1]  [j]; 
mtrl_wmtl [i] [j]  =  mtrl_wmtl [i+1] [j] ; 


regn-- ; 
mtrl- - ; 

} 

else  iff  (*indx)  ==  regn  ) 

{  regn_izmtl [regn]  =  0.0; 
for  ( j  =  0 ;  j  <3 ;  j++) 

regn_rl [ j ] [regn]  =  regn_rh[j] [regn]  =  0.0; 
for  { j  =  0 ;  j  <MXMTR;  j++) 

{  mtrl__lmtl [regn]  [j]  =  3.0; 
mtrl  wmtl [regn] [j]  =0.0; 

} 

regn- - ; 
mtrl-- ; 

} 

new_file  =  TRUE; 
set_aerosol () ; 
obsc  ()  ; 

XtUnmanageChild  (menu)  ; 
menu  =  create  menubar (form) ; 

} 

draws cene ( ) ; 

}  /*  end  regn_delCB()  */ 


^ *  VOID  REGN_MTLCB 


*<Begin> 

*<Identif ication>  Name:  regn_mtlCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  create_regionlmenu,  regn_mtll 


*<Description> 

*  Selects  the  various  Material  Options  for  a  BLIRB  Region 


*<Called  routines> 

*  create_rowcol 

*  cancelmCB 

*  create_radiobox 

*  create_togglebutton 

*  mtrlCB 


-  creates  a  Rowcol  Widget 

-  removes  the  rowcol  widget 

-  creates  a  Radiobox  Widget 

-  creates  a  Togglebutton  Widget 

-  Sets  one  of  the  input  parameters  of  the 
MTRL  card  (LMTL) . 


*<Parameters> 

*  Formal  declaration: 

*  void  regn_mtlCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 
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* 

* 


w 

c 

call_data 

* 

* 

*  Output : 

*  None 

*  =  =  =  =  =  =:  =  =  =  =  =  =  =  =  =  =  = 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End>  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^ 


*/ 

void  regn  mtlCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

int  *indx  =  (int  *)c; 

Widget  radio,  toggle [16],  rowcol; 

int  i,  j,  aerosl; 

int  reg,  mtl; 

static  int  index [16],  nc; 

static  char  cat  label [27] ; 


static  char  tog  label [16] [24]  = 

{  "LOWTRAN  Default  Cloud" 

/ 

"No  Cloud", 

"Rural  Aerosol 

"Maritime  Aerosol 

"Urban  Aerosol 

"Tropospheric  Aerosol 

"Stratospheric  Aerosol 

ii 

# 

"Volcanic 

"Meteoric  Dust", 

"Fog 

"Clouds 

"  Rain 

"Snow" , 

"Desert  Aerosol 

"Dust  and  Dirt 

"Combat  Dust  and  Smoke  >"  }; 

reg  =  (*indx)  /  10; 
mtl  =  (*indx)  %  10; 


sprintf (cat_JLabel ,  "Material  %d  for  Region  %d",  mtl+1,  reg+1) ; 


/* - 

*  -  Create  a  RowColumn  Widget 


*/ 

rowcol  =  create_rowcol (menu,  "Material_Options " ,  cancelmCB) ; 

/* - - - 

*  -  Create  the  radiobox  and  toggles 


*/ 

nc  =  2; 

radio  =  create_radiobox (rowcol ,  &nc,  cat_label) ; 
for  ( j  =0 ;  j <16 ;  j++) 

{  index[j]  =  100  *  (100  *  (*indx)  +  j); 

toggle  [j]  =  create_togglebutton (radio,  tog_label [ j ] ,  &index[j], 
mtrlCB) ; 

} 

if (mtrl  >=  0) 

{  i  =  mtrl_lmtl [reg] [mtl] ; 
if (i  ==  0) 

j  =  14; 
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else  if(i  ==  1) 
j  =  10; 

else  if (i  ==  2) 
j  =  0; 

else  if(i  ==  3) 

j  «  1; 

else  if((i  >=  4  &&  i  <=  7)  | |  (i  >=  60  &&  i  <=  67)) 

j  =  2; 

else  if((i  >=  8  &&  i  <=  11)  | |  (i  >=  44  &&  i  <=  51)) 

j  =  3; 

else  if ( (i  >=  12  &&  i  <=  15)  ]  j  (i  >=  52  &&  i  <=  59)  ) 

j  =  4; 

else  if(i  >=  20  &&  i  <=  23) 
j  =  5; 

else  if(i  ==  24) 
j  =  6; 

else  if (i  >=  25  &&  i  <=  26) 
j  =  7; 

else  if (i  ==  29) 
j  =  8  ; 

else  if  (  (i  >=  27  ScSc  i  <=  28)  |j  (i  >=  68  &&  i  <=  69)) 
j  =  9  ; 

else  if ( (i  ==  1)  ]  j  (i  >=  30  &&  i  <=  36)  j  ]  (i  >=  83  &&  i  <=  84) ) 

j  =  10; 

else  if(i  >=  70  &&  i  <=  72) 
j  =  il; 

else  if (i  ==  73) 

j  =  12; 

else  if(i  >=  37  &&  i  <=  40) 
j  =  13; 

else  if (  (i  ==  0)  |  |  {i  >-  93  &&  i  <=  94) ) 

j  =  14; 

else  if(i  >=  95  &&  i  <=  100) 
j  =  15; 

XmToggleButtonSetState (toggle [j ] ,  TRUE ;  FALSE) ; 

}  /*  end  regn_mtlCB()  */ 


/*********************************************************************** 

*  VOID  MTRLCB 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  mtrlCB 

*  Type:  C  void 

*  Filename :  visual . c 

*  Parent :  regn_mtlCB 

*<Description> 

*  Sets  the  input  parameter  LMTL  of  the  MTRL  card. 


*<Called  routines> 

*  mtrlO 

* 

*  mtrll 

* 

*  mtrl2 

* 

*  mtrl3 

* 

*  mtrl4 

* 


Presents  Rural  and  Urban  Aerosol  Material 
Group  Options. 

Presents  Maritime  Aerosol  Material  Group 
Options . 

Presents  Tropospheric  Aerosol  Material 
Group  Options . 

Presents  Volcanic  Aerosol  Material  Group 
Options . 

Presents  Fog  Aerosol  Material  Group 
Options . 
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mtrlS 

mtrl6 

mtrl7 

mtrl8 

mtrl9 


Presents  Clouds  Material  Group  Options . 
Presents  Rain  Material  Group  Options.’ 
Presents  Desert  Aerosol  Material  Group 
Options . 

Presents  Dust  and  Dirt  Material  Group 
Options . 

Presents  Combat  Dust  and  Smoke  Material 
Group  Options . 


*< Parameters > 

*  Formal  declaration: 

*  void  mtrlCB (  Widgets 

*  Input : 


call  data 


w,  XtPointer  c,  XtPointer  call_data) 

the  ID  of  the  widget  for  which  the 
callback  is  registered 

pointer  to  the  data  passed  to  the  routine 
a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S 

*  Developed  the 

*  =  =  =  =  =  =  =  =:  =  =  =  =  =  =  =:  =  =  =  =  =:  =  =:  =  :=  =  =  =  : 
*<End> 


(505)  678-1570  Elton  P.  Avara 
original  source  code. 


*************************************************  ********************** 
*/ 

void  mtrlCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *n  =  (int  *)c; 
int  reg,  mtl,  indx; 
static  int  index; 


index  =  (*n)  /  100; 

indx  =  index  %  100; 

mtl  =  (  index  %  1000  )  /  100; 

reg  =  index  /  1000; 


cur_regn  =  reg; 
cur__mtl  =  mtl; 


if (indx  ==  0) 

mtrl_lmtl  [reg]  [mtl] 
else  if (indx  ==  1) 
mtrl_lmtl [reg] [mtl] 
else  if (indx  ==  2) 
mtrlO (&index) ; 
else  if (indx  ==  3) 
mtrll (&index) ; 
else  if (indx  ==  4) 
mtrlO (&index) ; 
else  if (indx  ==  5) 
mtrl2 (&index) ; 
else  if (indx  ==  6) 
mtrl_lmtl [reg] [mtl] 
else  if (indx  ==  7) 
mtrl3 (&index) ; 
else  if (indx  ==  8) 
mtrl_lmtl [reg] [mtl] 
else  if (indx  ==  9) 


2; 

3; 

24; 

29; 


418 


mtrl4 (fcindex) ; 
else  if(indx  ==  10) 
mtrlS (fcindex) ; 
else  if(indx  ==  11) 
mtrl6 (&index) ; 
else  if(indx  ==  12) 

mtrl_lmtl [reg] [mtl]  =  73; 
else  if(indx  ==  13) 
mtrl7 (&index) ; 
else  if(indx  ==  14) 
mtrl8 (&index) ; 
else  if(indx  ==  15) 
mtrl9 (fcindex) ; 


in_change  =  TRUE; 
new_file  =  TRUE; 

}  /*  end  mtrlCBO  */ 


^ *  VOID  MTRLO 


*<Begin> 

*<Identif ication> 
★ 

* 

* 


Name:  mtrlO 

Type :  C  void 

Filename :  visual . c 

Parent :  mtrlCB 


*<Description> 

*  Presents  Rural  and  Urban  Aerosol  Material  Group  Options. 


*<Called  routines> 

*  create_rowcol 

*  cancelCB 

*  create_radiobox 

*  create_togglebutton 

*  mtrlOCB 


-  creates  a  Rowcol  Widget 

-  removes  the  Rowcol  Widget 

-  creates  a  Radiobox  Widget 

-  creates  a  Togglebutton  Widget 

-  Sets  the  Material  Option 


*<Parameters> 

*  Formal  declaration: 

*  void  mtrlO (int  *indx) 

*  Input : 

*  *indx  -  index  to  indicate  desired  material  group 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 


*/ 

void  mtrlO (int  *indx) 

Widget  radio,  toggle [12] ,  rowcol; 
int  i,  j,  ind,  id; 
static  int  index [12],  nc; 

static  char  cat_label [2] [22]  =  {  "Rural  Aerosol  Options", 

"Urban  Aerosol  Options"  }; 

static  char  tog_label [12] [15]  =  {  "LOWTRAN  0%  RH" ,  "LOWTRAN  70%  RH", 
"LOWTRAN  80%  RH" ,  "LOWTRAN  99%  RH" ,  "EOSAEL  0%  RH" , 
"EOSAEL  50%  RH",  "EOSAEL  70%  RH" ,  "EOSAEL  80%  RH" , 
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"EOSAEL  90%  RH",  "EOSAEL  95%  RH" ,  "EOSAEL  98%  RH" , 
"EOSAEL  99%  RH"  }  ; 

id  =  (*indx)  %  100; 
if (id  ==  2) 
ind  =  0 ; 
else 

ind  =  1; 


/* - - 

*  -  Create  a  RowColumn  Widget 

*  _ 

*/ 

rowcol  =  create_rowcol (menu,  "Rural_&_Urban_Aerosols" ,  cancelCB) ; 


/* - 

*  -  Create  the  radiobox  and  toggles 


*/ 

nc  =  1; 

radio  =  create_radiobox (rowcol,  &nc,  cat_label [ind] ) ; 


for  ( j  =0 ;  j 
{  index[j] 
toggle  [j] 

} 


<12;  j++) 

=  100  *  (*indx)  +  j; 

=  creat e_t ogglebut ton ( radio , 
mtrlOCB) ; 


tog_label [ j ] ,  &index [ j ] , 


i  =  mtrl_lmtl [cur^regn] [cur_mtl] ; 
if (id  ==  2) 

{  if(i  >=  4  ScSc  i  <=  7) 
j  =  i  -  4; 

else  if(i  >=  60  &&  i  <=  67) 
j  j  =  i  -  56; 

else  if (id  ==  4) 

{  if  (i  >=  12  ScSc  i  <=  15) 

j  «  i  -  12; 

else  if(i  >=  52  &&  i  <=  59) 
j  =  i  -  48; 

} 

else 
j  =  -1; 


if ( j  >=  0) 

XmToggleButtonSetState (toggle [j] #  TRUE,  FALSE) ; 

}  /*  end  mtrlO ()  */ 

/*********************************************************************** 

*  VOID  MTRL1 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  mtrll 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  mtrlCB 

*<Description> 

*  Presents  Maritime  Aerosol  Material  Group  Options. 

*<Called  routines> 

*  create_rowcol  -  creates  a  Rowcol  Widget 
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* 

★ 

* 


cancelCB  -  removes  the  Rowcol  Widget 

create  radiobox  -  creates  a  Radiobox  Widget 

create“togglebutton  -  creates  a  Togglebutton  Widget 
*  mtrlOCB  -  Sets  the  Material  Option 


*<Parameters> 

*  Formal  declaration: 

*  void  mtrll(int  *indx) 

*  Input : 

*  *indx  -  index  to  indicate  desired  material  group 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End>  ********************************** 


*/ 

void  mtrll (int  *indx) 

Widget  radio,  toggle [12] ,  rowcol; 

int  i ,  j  ,  id ; 

static  int  index [12],  nc; 

static  char  cat_label [25]  =  "Maritime  Aerosol  Options"; 
static  char  tog  label  [12]  [15]  =  {  "LOWTRAN  0%  RH",  "LOWTRAN  70-s  RH" , 
— "LOWTRAN  90%  RH" ,  "LOWTRAN  99%  RH",  "EOSAEL  0%  RH", 
"EOSAEL  50%  RH",  "EOSAEL  70%  RH" ,  "EOSAEL  80%  RH" , 
"EOSAEL  90%  RH",  "EOSAEL  95%  RH",  "EOSAEL  98%  RH", 
"EOSAEL  99%  RH"  }; 


id  =  (*indx)  %  100; 


/* - - - - 

*  -  Create  a  RowColumn  Widget 

*  _ 

*/ 

rowcol  =  create_rowcol (menu,  "Maritime_Aerosols" ,  cancelCB); 

/* - 

*  -  Create  the  radiobox  and  toggles 

*  - 

*/ 

nc  =  1; 

radio  =  create_radiobox (rowcol ,  &nc,  cat_label) ; 

for  ( j  =  0 ;  j  < 1 2 ;  j++) 

{  index [j]  =  100  *  (*indx)  +  j; 

toggle  [j]  =  create_togglebutton (radio,  tpg_label [ j ] ,  &index[j], 
mtrlOCB) ; 

} 

i  =  mtrl_lmtl [cur_regn] [cur_mtl] ; 
if (id  ==  3) 

{  if(i  >=  8  &&  i  <=  11) 
j  =  i  -  8; 

else  if (i  >=  44  &&  i  <=  51) 
j  =  i  -  40; 

} 

else 

j  =  -l; 
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if ( j  >=  0) 

XmToggleButtonSetState (toggle [ j ] ,  TRUE,  FALSE) ; 
}  /*  end  mtrll ( )  */ 


V°ID  MTRL2 

*<Begin> 

*<  Identification 


Name  : 
Type: 
Filename : 
Parent : 


mtrl2 
C  void 
visual . c 
mtrlCB 


* 

* 

* 

*<Description> 

*  Presents  Tropospheric  Aerosol  Material  Group  Options . 


*<Called  routines> 

*  create_rowcol 

*  cancelCB 

*  create__radiobox 

*  create_togglebutton 

*  mtrlOCB 


creates  a  Rowcol  Widget 
removes  the  Rowcol  Widget 
creates  a  Radiobox  Widget 
creates  a  Togglebutton  Widget 
Sets  the  Material  Option 


*< Parameters > 

*  Formal  declaration: 

*  void  mtrl2 (int  *indx) 

*  Input : 

*  *indx  -  index  to  indicate  desired  material  group 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 


*/ 

void  mtrl2(int  *indx) 

{ 

Widget  radio,  toggle [4],  rowcol; 

int  i,  j,  id; 

static  int  index[4],  nc; 

static  char  cat_label [29]  =  "Tropospheric  Aerosol  Options"; 
static  char  tog_label [4] [15]  =  {  "LOWTRAN  0%  RH" ,  "LOWTRAN  70%  RH" , 

"LOWTRAN  90%  RH",  "LOWTRAN  99%  RH"  }; 


id  =  (*indx)  %  100; 


/* - 

*  -  Create  a  RowColumn  Widget 


*/ 

rowcol  =  create_rowcol (menu,  "Tropospheric_Aerosols " ,  cancelCB); 

/* - 

*  -  Create  the  radiobox  and  toggles 


*/ 

nc  =  1; 

radio  =  create_radiobox (rowcol ,  &nc,  cat_label) ; 
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for  (j=0;  j<4;  j++) 

{  index [j]  =  100  *  (*indx)  +  j; 

toggle  [j]  =  create_togglebut ton (radio,  tog_label [ j ] ,  &index[j], 
mtrlOCB) ; 

} 

i  =  mtrl_lmtl [cur_regn] [cur_mtl] ; 
if (id  ==  5) 

{  if(i  >=  20  &&  i  <=  23) 
j  =  i  -  20; 

} 

else 
j  =  -1; 

if { j  >=  0) 

XmToggleButtonSetState (toggle [j] ,  TRUE,  FALSE); 

}  /*  end  mtr!2 ()  */ 

/*********************************************************************** 

*  VOID  MTRL3 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  mtrl3 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent :  mtrlCB 

*<Description> 

*  Presents  Volcanic  Aerosol  Material  Group  Options. 

*<Called  routines > 

*  create_rowcol  -  creates  a  Rowcol  Widget 

*  cancelCB  -  removes  the  Rowcol  Widget 

*  create_radiobox  -  creates  a  Radiobox  Widget 

*  create~togglebutton  -  creates  a  Togglebutton  Widget 

*  mtrlOCB  -  Sets  the  Material  Option 

*  Parameters  > 

*  Formal  declaration: 

*  void  mtrl3 (int  *indx) 

*  Input : 

*  *indx  -  index  to  indicate  desired  material  group 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  mtrl3 (int  *indx) 

Widget  radio,  toggle [2],  rowcol; 

int  i ,  j ,  id ; 

static  int  index[2],  nc; 

static  char  cat_label  [25]  =  "Volcanic  Aerosol  Options"; 

static  char  tog_label [2] [14]  =  {  "LOWTRAN  Aged",  "LOWTRAN  Fresh"  }; 

id  =  (*indx)  %  100; 
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/* - - - 

*  -  Create  a  RowColumn  Widget 


*/ 

rowcol  =  create_rowcol (menu,  "Volcanic_Aerosols" ,  cancelCB); 

/* - - - 

*  -  Create  the  radiobox  and  toggles 


*/ 

nc  =  1; 

radio  =  create_radiobox (rowcol ,  &nc,  cat_label) / 

for  ( j  =  0 ;  j <2 ;  j++) 

{  index [j]  =  100  *  (*indx)  +  j; 

toggle tj]  =  create_togglebut ton (radio ,  tog_label  [ j ] ,  &index[jj, 
mtrlOCB) ; 

} 

i  =  mtrl_lmtl [cur_regn] [cur_mtl] ; 
if (id  ==  7) 

{  if  (i  >=  25  ScSc  i  <=  26) 

^  j  =  i  -  25; 

else 

j  =  -1; 
if ( j  >=  0) 

XmToggleButtonSetState (toggle [j ] ,  TRUE,  FALSE); 

}  /*  end  mtrl3 ()  */ 


/*********************************************************************** 

*  VOID  MTRL4 
****************************************************************************** 

*<Begin> 

*<Identif ication>  Name:  mtrl4 

*  Type :  C  void 

*  Filename :  visual . c 

*  Parent :  mtrlCB 


*<Description> 

*  Presents  Fog  Aerosol  Material  Group  Options. 


*<Called  routines> 

*  create_rowcol 

*  cancelCB 

*  create_radiobox 

*  create_togglebutton 

*  mtrlOCB 


-  creates  a  Rowcol  Widget 

-  removes  the  Rowcol  Widget 

-  creates  a  Radiobox  Widget 

-  creates  a  Togglebutton  Widget 

-  Sets  the  Material  Option 


*  <  Parameters  > 

*  Formal  declaration: 

*  void  mtrl4(int  *indx) 

*  Input : 

*  *indx  -  index  to  indicate  desired  material  group 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 
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*<End> 

*********************************************************************** 

*/ 

void  mtrl4 (int  *indx) 

Widget  radio,  toggle [4],  rowcol; 

int  i,  j,  id; 

static  int  index[4],  nc; 

static  char  cat_label [20]  =  "Fog  Aerosol  Options"; 
static  char  tog_label [4] [26]  =  {  "LOWTRAN  Radiative", 

"LOWTRAN  Advective", 

"EOSAEL  Heavy  Advection", 

"EOSAEL  Moderate  Radiation"  } ; 


id  =  (*indx)  %  100; 

/* - 

*  -  Creae  a  RowColumn  Widget 


rowcol  =  create  rowcol (menu,  "Fog_Aerosols" ,  cancelCB) ; 


/* - - - - - - - 

*  -  Create  the  radiobox  and  toggles 

*  - 

*/ 

nc  =  1; 

radio  =  create_radiobox (rowcol ,  &nc,  cat_label) ; 

for  ( j  =0 ;  j <4 ;  j++) 

{  index [j]  =  100  *  (*indx)  +  j; 

toggle [j]  =  create_togglebutton (radio,  tog_label [ j] ,  &index[j], 

mtrlOCB) ; 

} 

i  =  mtrl_lmtl [cur_regn] [cur_mtl] ; 
if (id  ==  9) 

{  if (i  >=  27  &&  i  <=  28) 
j  =  i  -  27; 

else  if(i  >=  68  &&  i  <=  69) 
j  =  i  -  66; 

} 

else 

j  =  -i; 
if  ( j  >=  0) 

XmToggleButtonSetState (toggle [j ] ,  TRUE,  FALSE) ; 

}  /*  end  mtrl4 ( )  */ 

/*********************************************************************** 

*  VOID  MTRL5 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  mtrlS 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  mtrlCB 

*<Description> 

*  Presents  Clouds  Material  Group  Options. 

*<Called  routines > 
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★ 

create  rowcol 

-  creates 

a  Rowcol  Widget 

* 

cancelCB 

-  removes 

the  Rowcol  Widget 

* 

create  radiobox 

-  creates 

a  Radiobox  Widget 

* 

create  togglebutton 

-  creates 

a  Togglebutton  Widget 

* 

*  = 

mtrlOCB 

-  Sets  the 

i  Material  Option 

*<Parameters> 

*  Formal  declaration: 

*  void  mtrl5(int  *indx) 

*  Input : 

*  *indx  -  index  to  indicate  desired  material  group 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

******************************^**************************************** 

*/ 

void  mtrl5{int  *indx) 

{ 

Widget  radio,  toggle  (10] ,  rowcol; 

int  i,  j,  id; 

static  int  index [10],  nc; 

static  char  cat_label [14]  =  "Cloud  Options"; 

static  char  tog_label [10] [27]  =  {  "Deirmendj ian  Model  C", 

"LOWTRAN  Cumulus",  "LOWTRAN  Altostratus " , 

"LOWTRAN  Stratus",  "LOWTRAN  Stratus/Strato" , 

"LOWTRAN  Nimbostratus",  "LOWTRAN  Standard  Cirrus", 

"LOWTRAN  Subvisual  Cirrus",  "EOSAEL  Fairweather  Cumulus", 

"EOSAEL  Cumulus  Congestus"  }; 

id  =  (*indx)  %  100; 


/* - 

*  -  Create  a  RowColumn  Widget 

*  _ 

*/ 

rowcol  =  create_rowcol (menu,  "Cloud_Options" ,  cancelCB); 


Create  the  radiobox  and  toggles 


nc  =  1  ; 

radio  =  create_radiobox (rowcol ,  &nc,  cat_label) ; 

for  ( j  =  0  ;  j < 1 0 ;  j++) 

{  index [j]  =  100  *  (*indx)  +  j; 

toggle [ j ]  =  create_togglebutton (radio ,  tog_label 
mtrlOCB) ; 


} 


[j] 


&index [ j ] , 


i  =  mtrl_lmtl [cur_regn] [cur_mtl] ; 
if (id  ==  10) 

{  ifd  ==  i) 
j  =  0; 

else  if (i  >=  30  &&  i  <=  36) 
j  =  i  -  29; 

else  if (i  >=  83  &&  i  <=  84) 
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j  =  i  -  75; 

} 

else 
j  =  -i; 


if ( j  >=  0) 

XmToggleButtonSetState (toggle [j] ,  TRUE,  FALSE); 
}  /*  end  mtrl5()  */ 


/ *  VOID  MTRL6 


*<Begin> 

*<Identif ication> 
* 

* 

* 


Name:  mtrl6 

Type :  C  void 

Filename :  visual . c 

Parent :  mtrlCB 


*<Description> 

*  Presents  Rain  Material 

*<Called  routines> 

*  create_rowcol 

*  cancelCB 

*  create_radiobox 

*  create_togglebutton 

*  mtrlOCB 


Group  Options . 


-  creates  a  Rowcol  Widget 

-  removes  the  Rowcol  Widget 

-  creates  a  Radiobox  Widget 

-  creates  a  Togglebutton  Widget 

-  Sets  the  Material  Option 


*<Parameters> 

*  Formal  declaration: 

*  void  mtrl6 (int  *indx) 

*  Input : 

*  *indx  -  index  to  indicate  desired  material  group 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  mtrl6 (int  *indx) 

Widget  radio,  toggle [3],  rowcol; 

int  i,  j ,  id; 

static  int  index[3],  nc; 

static  char  cat_label  [13]  =  "Rain  Options"; 
static  char  tog_label[3] [20]  =  {  "EOSAEL  Drizzle", 

"EOSAEL  Widespread", 

"EOSAEL  Thunderstorm"  } ; 


id  =  (*indx)  %  100; 

/* - 

*  -  Create  a  RowColumn  Widget 

★  - 

*/ 

rowcol  =  create_rowcol (menu,  ”Rain_Options" ,  cancelCB); 
/* - - 
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*  -  Create  the  radiobox  and  toggles 


*/ 

no  =  1; 

radio  -  create__radiobox  (rowcol ,  &nc,  cat_label)  ; 

for  { j  =  0 ;  j  <3 ;  j++) 

{  index [j]  =  100  *  (*indx)  +  j; 

toggle [j]  =  create_togglebut ton (radio,  tog_label [ j ] ,  &index[j], 
mtrlOCB) ; 

} 

i  =  mtrl_lmtl [cur_regn] [cur_mtl] ; 
if (id  ==  11) 

{  if (i  >=  70  &&  i  <=  72) 
j  =  i  -  70; 

} 

else 
j  =  -l; 


if ( j  >=  o) 

XmToggleBut t onsets tat e (toggle [j ] ,  TRUE,  FALSE) ; 
}  /*  end  mtr!6()  */ 


^  *  VOID  MTRL7 


*<Begin> 

*<  Identification 
* 

* 


* 


*==_==_=__=;;_ - 


Name : 
Type: 
Filename : 
Parent : 


mtrl7 
C  void 
visual . c 
mtrlCB 


*<Description> 

*  Presents  Desert  Aerosol  Material  Group  Options . 


*<Called  routines> 

*  create_rowcol 

*  cancelCB 

*  create_radiobox 

*  create_togglebutton 

*  mtrlOCB 


creates  a  Rowcol  Widget 
removes  the  Rowcol  Widget 
creates  a  Radiobox  Widget 
creates  a  Togglebutton  Widget 
Sets  the  Material  Option 


*<Parameters> 

*  Formal  declaration: 

*  void  mtrl7(int  *indx) 

*  Input : 

*  *indx  -  index  to  indicate  desired  material  group 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  mtrl7(int  *indx) 

{ 

Widget  radio,  toggle [4],  rowcol; 
int  i,  j,  id; 
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static  int  index [4],  nc; 

static  char  catJLabel [23]  =  "Desert  Aerosol  Options"; 
static  char  togJLabel  [4] [20]  =  {  "LOWTRAN  Wind  0  mps", 

"LOWTRAN  Wind  10  mps", 
"LOWTRAN  Wind  20  mps", 
"LOWTRAN  Wind  30  mps"  }; 


id  =  (*indx)  %  100; 


/* - 

*  -  Create  a  RowColumn  Widget 


rowcol  =  create  rowcol (menu,  "Desert_Aerosols" ,  cancelCB); 


/* - 

*  -  Create  the  radiobox  and  toggles 


*/ 

nc  =  1 ; 

radio  =  create  radiobox (rowcol ,  &nc,  cat_label) ; 


for  ( j  =  0 ;  j  <4 ;  j++) 

{  index [j]  =  100  *  (*indx)  +  j; 

toggle  [  j  ]  =  create__togglebutton  (radio, 
mtrlOCB) ; 


} 


tog_label [j]  , 


Sindex  [j]  , 


i  =  mtrl_lmtl [cur_regn] [cur_mtl] ; 
if (id  ==  13) 

{  if  (i  >=  37  ScSc  i  <=  40) 
j  =  i  -  37; 

} 

else 

j  =  -1; 


if ( j  >=  0) 

XmToggleButtonSet State (toggle [ j ] ,  TRUE,  FALSE) ; 

}  /*  end  mtrl7()  */ 

/******************★**************************************************** 

*  VOID  MTRL8 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  mtrl8 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent:  mtrlCB 

*<Description> 

*  Presents  Dust  and  Dirt  Material  Group  Options. 

*<Called  routines> 

*  create_rowcol  -  creates  a  Rowcol  Widget 

*  cancelCB  -  removes  the  Rowcol  Widget 

*  create_radiobox  -  creates  a  Radiobox  Widget 

*  create_togglebutton  -  creates  a  Togglebutton  Widget 

*  mtrlOCB  -  Sets  the  Material  Option 

*<Parameters> 

*  Formal  declaration: 

*  void  mtrl8 (int  *indx) 
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*  Input : 

*  *indx  -  index  to  indicate  desired  material  group 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*/ 

void  mtrl8(int  *indx) 

{ 

Widget  radio,  toggle  [3],  rowcol;.  . 

int  i,  j,  id; 

static  int  index[3],  nc; 

static  char  cat_label [22]  =  "Dust  and. Dirt  Options"; 
static  char  tog_label[3] [26]  =  {  "Dirt", 

"EOSAEL  Dust  Light  Loading", 

"EOSAEL  Dust  Heavy  Loading"  }; 


id  =  (*indx)  %  100; 

/* - - - 

*  -  Create  a  RowColumn  Widget 

*  _ _ _ 

*/ 

rowcol  =  create__rowcol (menu,  " Dus t_&_Dirt_0pt ions " ,  cancelCB) ; 


/* - — - 

*  -  Create  the  radiobox  and  toggles 

*  _ 

*/ 

nc  =  1  ; 

radio  -  create_radiobox (rowcol ,  &nc,  cat_label) ; 

for  ( j  =  0 ;  j  <3 ;  j++) 

{  index [j]  =  100  *  (*indx)  +  j; 

toggle [j]  =  create_togglebutton (radio,  tog_label [ j ] ,  &index[j], 
mtrlOCB) ; 


i  -  mtrl_lmtl [cur_regn] [cur_mtl] ; 
if (id  ==  14) 

{  if (i  ==  0) 
j  =  0; 

else  if(i  >=  93  &&  i  <=  94) 

^  j  =  i  -  92; 

else 
j  =  -i; 

if ( j  >=  0) 

XmToggleButtonSetState (toggle [j] ,  TRUE,  FALSE) ; 

}  /*  end  mtrl8 ()  */ 

/*********************************************************************** 
*  VOID  MTRL9 

*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  mtrl9 
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*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  mtrlCB 


*<Description> 

*  Presents  Combat  Dust 

*<Called  routines> 

*  create_rowcol 

*  cancelCB 

*  create_radiobox 

*  create_togglebutton 

*  mtrlOCB 


and  Smoke  Material  Group  Options 


-  creates  a  Rowcol  Widget 

-  removes  the  Rowcol  Widget 

-  creates  a  Radiobox  Widget 

-  creates  a  Togglebutton  Widget 

-  Sets  the  Material  Option 


*<Parameters> 

*  Formal  declaration: 

*  void  mtrl9(int  *indx) 

*  Input : 

*  *indx  -  index  to  indicate  desired  material  group 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 


*/ 

void  mtrl9(int  *indx) 


Widget  radio,  toggle [6],  rowcol; 

int  i,  j,  id; 

static  int  index[6],  nc; 

static  char  cat_label  [30]  =  ’’Combat  Dust 
static  char  tog_label  [6]  [27]  =  {  ’’EOSAEL 

"EOSAEL 

"EOSAEL 

"EOSAEL 

"EOSAEL 

"EOSAEL 


and  Smoke  Options"; 
High  Explosive  Dust", 
WP  Smoke  17%  RH", 

WP  Smoke  50%  RH", 

WP  Smoke  90%  RH", 

Fog  Oil", 

HC  Smoke  85%  RH"  }; 


id  =  (*indx)  %  100; 


/* - 

*  -  Create  a  RowColumn  Widget 


rowcol  =  create_rowcol (menu,  "Combat_pust_&__Smoke_Options" ,  cancelCB); 

/* -  - 

*  -  Create  the  radiobox  and  toggles 


*/ 

nc  =  1  ; 

radio  =  create_radiobox (rowcol ,  &nc,  cat_label) ; 

for  ( j  =  0 ;  j <6 ;  j++) 

{  index [j]  =  100  *  (*indx)  +  j; 

toggle  [j]  =  create_togglebut ton (radio,  tog_label [ j ] ,  &index[j], 

mtrlOCB) ; 

} 


431 


i  =  mtrl_lmtl [cur_regn]  [cur_mtl] ; 
if (id  ==  15) 

{  if (i  >=  95  &&  i  <=  100) 
j  =  i  -  95; 

} 

else 

j  =  -1; 


if ( j  >=  0) 

XmToggleButtonSetState (toggle [j] ,  TRUE,  FALSE) ; 
}  /*  end  mtrl9()  */ 


V0ID  MTRL0CB 


*<Begin> 

Name 
Type 
Filename 
Parent 


*<Description> 

*  Sets  the  Material  Option 

*<Called  routines> 

*  none 


*< Identification 
* 

* 

* 

* 


mtrlOCB 
C  void 
visual . c 
mtrlO,  mtrll 
mtrl5,  mtrl6 


mtrl2 

mtrl7 


mtrl3,  mtrl4, 
mtrl8,  mtrl9 


*<Parameters> 

*  Formal  declaration: 

*  void  mtrlOCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  pointer  to  the  data  passed  to  the  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 


*********************************************************************** 

*/ 

void  mtrlOCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *n  =  (int  *)c; 
int  grp,  i; 


grp  =  (*n)  %  10000; 
grp  =  grp  /  100; 
i  =  ( *n)  %  100; 


if (grp  ==  2) 

{  if(i  <  4) 

mtrl_lmtl [cur_regn] [cur_mtl]  =  i  +  4; 
else 

mtrl_lmtl [cur_regn] [cur_mtl]  =  i  +  56; 


432 


else  if (grp  ==  3) 

{  if (i  <  4) 

mtrl_lmtl  [cur_regn]  [cur_mtl] 
else 

mtrl  lmtl  [cur_regn]  [cur_mtl] 

} 

else  if (grp  ==  4) 

{  if(i  <  4) 

mtrl_lmtl [cur_regn] [cur_mtl] 
else 

mtrl  lmtl [cur_regn] [cur_mtl] 

} 

else  if  (grp  ==  5) 

mtrl_lmtl  [cur_regn]  [cur__mtl]  = 
else  if (grp  -=  7) 

mtrl_lmtl  [curjregn]  [cur__mtl]  = 
else  if (grp  ==  9) 

{  if (i  <  2) 

mtrl_lmtl  [cur_regn]  [curjntl] 
else 

mtrl  lmtl [cur  regn] [cur_mtl] 

} 

else  if (grp  ==  10) 

{  if (i  ==  0) 

mtrl_lmtl  [cur__regn]  [cur_mtl] 
else  if(i  <  8) 

mtrl_lmtl  [cur_regn]  [cur_mtl] 
else 

mtrl  lmtl [cur  regn] [curjntl] 

} 

else  if (grp  =-  11) 

mtrl__lmtl  [curjregn]  [cur__mtl]  = 
else  if (grp  ==  13) 

mtrl_lmtl  [curjregn]  [curjntl]  = 
else  if (grp  ==  14) 

{  if (i  ==  0) 

mtrl_JLmtl [cur_regn] [cur_mtl] 
else 

mtrl  lmtl  [cur_regn]  [curjntl] 

} 

else  if (grp  ==  15) 

mtrl_lmtl [cur_regn]  [curjntl]  = 

in_change  =  TRUE; 
new_file  =  TRUE; 

/*  end  mtrlOCB ( )  */ 


=  i  +  8; 

=  i  +  40; 

=  i  +  12; 
=  i  +  48; 

i  4*  20; 
i  +  25; 

=  i  +  27; 
=  i  +  66; 

=  1; 

=  i  +  29; 
=  i  +  75; 

i  +  70; 
i  +  37; 

=  0; 

=  i  +  92; 
i  +  95; 


/ *  VOID  OBSC 


*<Begin> 

*<Identif ication> 
* 

* 

* 

* 

* 


Name: 
Type: 
Filename : 
Parent : 


obsc 
C  void 
visual . c 

getdata,  cancelobCB,  obscCB, 
cancelbCB,  areajielCB,  regnjielCB, 
resizeCB,  cancelbbCB 


*<Description> 

*  Sets  up  a  rowcolumn  widget  containing  the  names  of  the  materials 
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L 


*<Called  routines> 

*  plot__out_def  1  -  Creates  a  Widget  telling  the  user  what 

*  flux  info  he  is  viewing. 


*<Parameters> 

*  Formal  declaration: 

*  void  obsc  (  int  *regn_add,  int  *area_add,  int  *regn__del, 

*  int  *area  del  ) 


Input : 

regn_add 
area_add 
regn_del 
area_del 
Output : 

None 


the  added  region  number 
the  added  area  number 
the  deleted  region  number 
the  deleted  area  number 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 


*<End> 

*********************************************************************** 

*/ 

void  obsc  (  void  ) 

{ 

static  Widget  bboardl  =  (Widget) 0; 
static  Widget  bboard2  =  (Widget) 0; 
static  Widget  bboard3  =  (Widget) 0; 
static  Widget  listl,  list2,  rowcol,  button; 

Arg  wargs [20] ; 
int  n,  i,  j ; 

static  int  numitemsl  =  7*IRM; 
static  int  numitems2  =  3*IAM; 
static  int  visiteml  =  7; 
static  int  visitem2  =  3; 

static  XmString  materials [7*IRM] ,  albedos [3* IAM] ; 
static  char  button_label [40] ,  *fname; 
static  char  *slash  =  "/" ; 
char  *ptr; 


if ( !new_file) 

{  fname  =  ptr  =  file_name; 

for  ( i  =  0 ;  i<strlen (f ile_name) ;  i++,  ptr++) 
{  if (ptr [0]  ==  slash [0]) 

{  fname  =  ptr; 
fname++; 


if (bboardl  i=  (Widget) 0) 

{  XtUnmanageChild (listl)  ; 
XtDestroyWidget (listl)  ; 
XtUnmanageChild (bboardl) ; 
bboardl  =  (Widget) 0; 

} 

if (bboard2  I-  (Widget) 0) 

{  XtUnmanageChild (list2) ; 
XtDestroyWidget (list2)  ; 
XtUnmanageChild (bboard2 ) ; 
bboard2  =  (Widget) 0; 
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if (bboard3  !=  (Widget) 0) 

{  XtUnmanageChild (rowcol) ; 

XtDestroyWidget (rowcol) ; 

XtUnmanageChild (bboard3) ; 
bboard3  =  (Widget) 0; 

} 

if  (label__obsc) 

{  for  (i=0 ;  icIRM;  i++) 

{  if(i  <=  regn) 

{  sprintf (button_label,  "Region  -  %d"/  i+1); 

materials [7*i]  =  XmStringLtoRCreate (  button_label ,  charset); 

for  ( j  =  0 ;  j  <MXMTR ;  j++) 

{  sprint f (button_label,  "MTL  %d:  %s",  j+1, 
mtl_obsc [ (int) mtrl_lmtl [i] [ j ] 3 ) ; 
materials  [7*i  +  2*j  +1]  = 

XmStringLtoRCreate (  button_label,  charset); 

if (mtrl_wmtl [i] [j ]  >  0.0) 

sprintf (button_label ,  "VIS  %d:  %10.4f" ,  j+1, 

1 . 0/mtrl_wmtl [i]  [ j]  ) ; 

else 

sprintf (button_label ,  "VIS  %d:  %10.4f"/  j+1 ,  0.0); 

materials [7*i  +  2* j  +  2]  = 

XmStringLtoRCreate (  button_label ,  charset); 


else 

{  for  ( j  =  0 ;  j <7 ;  j++) 

materials [7*i  +  j]  =  .XmStringLtoRCreate (  "  ",  charset); 


for  (i=0;  i<IAM;  i++) 

{  if(i  <=  area) 

{  sprintf (button_label ,  "Area  -  %d" ,  i+1)  ; 

albedos [3*i]  =  XmStringLtoRCreate (  button_label ,  charset); 

if (mdl2_ialb  <  0) 

{  sprintf (button_label,  "User-Defined  Albedo") ; 

albedos [3*i  +  1]  =  XmStringLtoRCreate (  button_label ,  charset); 
sprintf (button_label,  "Value:  %10.4f",  albd_falb [i] ) ; 
albedos [3*i  +2]  =  XmStringLtoRCreate (  button_label ,  charset); 

else  if (mdl2_ialb  ==  0) 

{  sprintf (button_label ,  "Broad-Band  Albedo"); 

albedos [3*i  +  1]  =  XmStringLtoRCreate (  button_label ,  charset); 
sprintf (button_label ,  "%s " ,  broad_band [ (int) area_iamtl [i] ] ) ; 

albedos [3*i  +  2]  =  XmStringLtoRCreate (  button_label,  charset); 

} 

else 

{  sprintf (button_label,  "Spectral  Albedo") ; 

albedos [3*i  +  1]  =  XmStringLtoRCreate (  button_label ,  charset); 
sprintf (button_label ,  "Model  %d" ,  (int) area_iamtl [i] ) ; 
albedos [3*i  +  2]  =  XmStringLtoRCreate (  buttonJLabel,  charset); 


else 

{  for  ( j  =0 ;  j  <3 ;  j++) 

albedos [3*i  +  j]  =  XmStringLtoRCreate (  "  ",  charset); 

} 
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} 


if (mtrl_form  ==  (Widget) 0) 

{  n  =  0; 

XtSetArg (wargs [n] ,  XmNbottomAttachment,  XmATTACH_FORM) ;  n++; 
XtSetArg (wargs [n] ,  XmNright Attachment,  XmATTACH_FORM) ;  n++; 
XtSetArg (wargs [n] ,  XmNrightOf f set ,  250) ;  n++; 

XtSetArg (wargs [n] ,  XmNbottomOf fset ,  0);  n++; 
mtrl_form  =  XmCreateForm (form,  "mtrl_f orm" ,  wargs,  n) ; 
XtManageChild(mtrl_form) ; 


if (albd_form  ==  (Widget) 0) 

{  n  =  0; 

XtSetArg (wargs [n] ,  XmNbottomAttachment ,  XmATTACH__FORM) ;  n++; 
XtSetArg (wargs [n] ,  XmNlef tAttachment ,  XmATTACH_FORM) /  n++; 
XtSetArg (wargs [n] ,  XmNlef tOff set ,  0);  n++; 

XtSetArg (wargs [n] ,  XmNbottomOf fset ,  0);  n++; 
albd_form  =  XmCreateForm (form,  Malbd_f orm" ,  wargs,  n) ; 
XtManageChild (albd  form); 

} 

if(file_form  ==  (Widget) 0) 

{  n  =  0; 

XtSetArg  (wargs  [n]  ,  XmNbottomAttachment,  XmATTACH_FORM)  ;  n++; 
XtSetArg (wargs [n] ,  XmNlef tAttachment ,  XmATTACH_FORM) ;  n++; 
XtSetArg (wargs [n] ,  XmNlef tOf fset ,  410);  n++; 

XtSetArg (wargs [n] ,  XmNbottomOf fset ,  0);  n++; 
file_form  =  XmCreateForm (form,  "f ile_f orm" ,  wargs,  n); 
XtManageChild (file_f orm) ; 


n  =  0  ; 

XtSetArg (wargs [n] ,  XmNdialogStyle,  XmDIALOG_MODELESS ) ;  n++; 

XtSetArg (wargs [n] ,  XmNwidth,  215);  n++; 

XtSetArg (wargs [n] ,  XmNheight,  168);  n++; 

bboardl  =  XmCreateBulletinBoardDialog (mtrl_form,  "Region  Materials", 
wargs,  n) ; 

XtManageChild (bboardl) ; 
n  =  0  ; 

XtSetArg (wargs [n] ,  XmNdialogStyle,  XmDIALOG_MODELESS) ;  n++; 

XtSetArg (wargs [n] ,  XmNwidth,  215);  n++; 

XtSetArg (wargs [n] ,  XmNheight,  85);  n++; 

bboard2  =  XmCreateBulletinBoardDialog (albd_f orm,  "Area  Aerosols", 
wargs,  n) ; 

XtManageChild  (bt)oard2)  ; 
n  =  0; 

XtSetArg  (wargs  [n]  ,  XmNdialogStyle,  XmDIALOG__MODELESS )  ;  n++; 

XtSetArg (wargs [n] ,  XmNwidth,  215);  n++; 

XtSetArg (wargs [n] ,  XmNheight,  50);  n++; 

bboard3  =  XmCreateBulletinBoardDialog (file_f orm,  "Filename",  wargs, 
n)  ; 

XtManageChild (bboard3) ; 
n  =  0  ; 

XtSetArg (wargs [n] ,  XmNl is t Spacing,  0);  n++; 

XtSetArg (wargs [n] ,  XmNmarginHeight ,  0);  n++; 

XtSetArg (wargs [n] ,  XmNmarginWidth,  0);  n++; 

XtSetArg (wargs [n] ,  XmNlistSizePolicy,  XmVARIABLE ) ;  n++; 

XtSetArg  (wargs  [n]  ,  XmNitemCoxint ,  numitemsl)  ;  n++; 
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XtSetArg (wargs [n] ,  XmNvisibleltemCount ,  visiteml) ;  n++; 

XtSetArg (wargs [n] ,  XmNitems,  materials);  n++; 

XtSetArg (wargs [n] ,  XmNscrollBarPlacement,  XmBOTTOM_RIGHT) ;  n++; 
XtSetArg (wargs [n] ,  XmNscrollBarDisplayPolicy,  XmSTATIC) ;  n++; 
listl  =  XmCreateScrolledList (bboardl,  "listl" ,  wargs,  n) ; 
XtManageChild (listl) ; 


n  =  0; 

XtSetArg (wargs [n] , 
XtSetArg (wargs [n]  , 
XtSetArg (wargs [n] , 
XtSetArg (wargs [n]  , 
XtSetArg (wargs [n] , 
XtSetArg (wargs [n]  , 
XtSetArg (wargs [n] , 
XtSetArg (wargs [n] , 
XtSetArg (wargs [n] 


list2  =  XmCreateScrolledList (bboard2 , 
XtManageChild (list2) ; 


XmNl is t Spacing,  0) ;  n++; 
XmNmarginHeight ,  0 ) ;  n++ ; 

XmNmarg inWidth,  0) ;  n++; 
XmNlistSizePolicy,  XmVARIABLE ) 
XmNitemCount ,  numitems2) ;  n++; 

XmNvi s i b 1 e 1 1  emCoun t ,  visit  em2 ) 

XmNi terns,  albedos) ;  n++; 
XmNscrollBarPlacement,  XmBOTTOM_RIGHT) 
XmNscrollBarDisplayPolicy,  XmSTATIC) ; 

"list2",  wargs,  n) ; 


n++; 


n++ : 


;  n++; 
n++; 


n  =  0; 

XtSetArg (wargs [n] ,  XmNorientation,  XmVERTICAL) ;  n++; 
rowcol  =  XtCreat eManagedWidget ( " Filename M , 

xmRowColumnWidgetClass,  bboard3 ,  wargs,  n) ; 


sprintf  (button_label,  ,,%sH  ,  fname)  r 
n  =  0  ; 

button  =  XmCreateLabel (rowcol,  button_label ,  wargs,  n); 
XtManageChild  (button) ; 


plot_out_def 1 ( ) ; 

}  /*  end  obsc()  */ 


^ *  VOID  P LO T_OUT_JDE F 1 


*<Begin> 

*<Identif ication> 
* 

* 

* 

* 


Name :  plot_out_def 1 

Type:  C  void 

Filename:  visual. c 

Parent:  obsc,  fluxCB,  cross_sectionCB, 

planeCB,  waveCB 


*<Description> 

*  Creates  a  Widget  telling  the  user  what  flux  info  he  is  viewing. 


*<Called  routines> 

*  none 

*< Parameters > 

*  Formal  declaration: 

*  void  plot_out_def 1 (void) 

*  Input : 

*  None 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 
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*<End>  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^ 


*/ 


void  plot  out  def 1 (void) 

{  -  “  " 

static  Widget  bboardl  =  (Widget) 0; 
static  Widget  listl; 

Arg  wargs  [2  0]  ; 
int  n,  which_flux; 
static  XmString  fluxes [4] ; 
static  char  button_label  [4  0] ; 
static  double  ten  =  10.0; 

static  char  *label  []  =  {  ’’Solar  Direct  Flux", 

"Solar  Reflected  Flux" 
"Solar  Diffuse  Flux  - 
"Solar  Diffuse  Flux  - 
"Solar  Diffuse  Flux  - 
"Solar  Diffuse  Flux  - 
~  "Solar  Diffuse  Flux  - 
"Solar  Diffuse  Flux  - 
"Solar  Diffuse  Flux  - 
"Solar  Diffuse  Flux  - 


1"  / 
2", 
3", 
4", 
5", 
6", 
7", 
8" 


static  char  *axscale[] 


"on  a  Log  Scale", 
"multiplied  by  100,000", 
"multiplied  by  10,000", 
"multiplied  by  1000", 
"multiplied  by  100", 
"multiplied  by  10", 


static  int  pos_scale  = 
static  int  neg__scale  = 
int  idx ; 


m  ii 

t 

"divided  by 
"divided  by 
"divided  by 
"divided  by 
"divided  by 
"divided  by 

}; 

6; 

-5; 


10", 

100", 

1000", 

10,000", 

100,000", 

1,000,000" 

/*  LoglO  (Max 
/*  LoglO  (Max 


Flux  Divisor)  */ 
Flux  Multiplr) */ 


if (bboardl  ! =  (Widget) 0) 

{  XtUnmanageChild (listl)  ; 
XtDestroyWidget (listl) ; 
XtUnmanageChild (bboardl) ; 
bboardl  =  (Widget) 0; 

} 

if ( Inof lux) 

{  for(n=0;  n<10;  n++) 
if (f lux_f lag [n] ) 
which__flux  =  n; 


/* - 

*  -  Determine  the  range  of  the  log  of  the  flux  values  and  the  flux 

*  scale  label  index 

*  _ 

*/ 

if  (maxi_f  lux  [which_f  lux]  [cur^nwave]  >  0.0) 

{  idx  =  (int) floor (loglO ( (double) maxi_f lux [which_f lux] [cur_nwave] ) ) ; 
if (idx  <  neg_scale) 
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idx  =  neg_scale; 
if(idx  >  pos_scale) 
idx  =  pos_scale; 

log_range  =  (float)  pow(  ten,  (double)  idx) ; 
idx  +=  1  -  neg  scale; 

} 

else 

log_range  =  0.0; 


-  Get  the  flux  parameter  information  for  the  screen  and  determine 

the  minimum  and  maximum  flux  scale  indices  for  plotting  the  flux 
axis . 


if ( I f lux_zero [which_f lux] [cur_nwave] )  /*  Use  Log  Flux  values  */ 

{  idx  =  0; 

flux_index_low  =  minil_f lux [which_f lux] [cur_nwave]  ; 
if (f lux_index_low  <  0  |j  mini Influx [which_f lux] [cur_nwave]  <  0.0) 
f lux_index_low- - ; 
else 

f lux_index_low  =  0; 

flux_index_high  =  maxil  flux [which_f lux] [curjiwave] ; 
if (flux_index_high  >  0  J\  maxi Influx [which_f lux] [curjiwave]  >0.0) 
f lux_index_high++ ; 
else 

flux_index_high  =  0; 

/*  Scale  Flux  values  Down  */ 
else  if  (  (mini_f lux  [which_f lux]  [cur___nwave]  >=  0.0)  && 

(maxi_fl\ix  [which_flux]  [cur__nwave]  >  0.0)) 

{  flux_index_low  =  0; 

flux_index_high  =  (int)  (maxi__f lux [which_f lux]  [cur_nwave]  / 

log_range)  +  1; 

} 

else  /*  Scale  Flux  values  Up  */ 

{  idx  =1  -  neg_scale; 

flux  index  low  =  flux  index  high  =  0; 

}  “ 

if (label  obsc) 

{ 


-  Print  the  Type  of  Flux 


sprintf (button_label ,  "%s",  label [which_f lux] ) ; 

f luxes [0]  =  XmStringLtoRCreate (  button_label ,  charset); 


-  Print  the  Flux  Plot  Scale 


/ 

sprintf (button_label,  "%s",  axscale [idx] ) ; 

fluxes  [1]  =  XmStringLtoRCreate (  button_label ,  charset) ; 


-  Compose  and  print  the  Cross-section  orientation  and  value 


if (cross_axis [0] ) 

sprintf (button_label,  "X  Cross-section  =  %6.3f  km", 
out_m0 [0] [cross_value [0] ] ) ; 
else  if (cross_axis [1] ) 

sprintf (button_label ,  UY  Cross-section  =  %6.3f  km", 
out_m0 [1] [cross_value [1] ] ) ; 
else  if  (cross__axis  [2]  ) 

sprintf (button_label ,  "Z  Cross-section  =  %6.3f  km" , 
out_m0 [2] [cross_value [2] ] ) ; 

fluxes [2]  =  XmStringLtoRCreate (  button_label ,  charset); 

/* - 

*  -  Compose  and  print  the  Wavenumber  value 


*/ 

sprintf (button_label ,  "Wave  No.  =  %9.3f  per  cm", 
out__waveno  [cur_nwave]  )  ; 

fluxes [3]  =  XmStringLtoRCreate (  button_label ,  charset); 


*  -  Create  the  "form",  "BBoard",  and  "List"  Widgets  to  hold  the  info 


if(flux_form  ==  (Widget) 0) 

{  n  =  0; 

XtSetArg (wargs [n] ,  XmNbottomAttachment ,  XmATTACH_FORM) ;  n++; 
XtSetArg (wargs [n] ,  XmNright Attachment,  XmATTACH_JFORM) ;  n++; 
XtSetArg (wargs [n] ,  XmNrightOf f set ,  630);  n++; 

XtSetArg (wargs [n] ,  XmNbottomOf f set ,  0) ;  n++; 
flux_form  =  XmCreateForm(form,  "f lux__f orm" ,  wargs,  n); 
XtManageChild (f lux  form) ; 

} 


n  =  0  ; 

XtSetArg (wargs [n] ,  XmNdialogStyle,  XmDIALOG_MODELESS) ;  n++; 
XtSetArg (wargs [n] ,  XmNwidth,  200);  n++; 

XtSetArg (wargs [n] ,  XmNheight,  110);  n++; 
bboardl  =  XmCreateBulletinBoardDialog (f lux_form, 

"Flux  Information",  wargs,  n) ; 

XtManageChild (bboardl) ; 

n  =  0  ; 

XtSetArg (wargs {n] ,  XmNl is t Spacing,  0);  n++; 

XtSetArg (wargs [n] ,  XmNmarginHeight ,  0);  n++; 

XtSetArg (wargs [n] ,  XmNmarginWidth,  0);  n++; 

XtSetArg (wargs [n]  ,  XmNlistSizePolicy,  XmCONS TANT )  ;  n++; 
XtSetArg (wargs [n] ,  XmNitemCount ,  4);  n++; 

XtSetArg (wargs [n] ,  XmNvisibleltemCount ,  4);  n++; 

XtSetArg (wargs [n] ,  XmNitems,  fluxes);  n++; 
listl  =  XmCreateList (bboardl ,  "listl",  wargs,  n) ; 
XtManageChild (listl) ; 


}  /*  end  plot_out__def  1  ()  */ 

/*********************************************************************** 

*  VOID  MTRL1CB 

*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  mtrllCB 

*  Type :  C  void 
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* 

* 


* 


Filename :  visual . c 

Parent :  cancelmCB 


*<Description> 

*  Sets  up  the  scale  for  the  Region  Material  Density 


*<Called  routines> 

*  create_rowcol 

*  cancelobCB 

*  create_separator 

*  create_scale 

*  denmtlCB 


creates  a  Rowcol  Widget 
removes  the  Rowcol  Widget 
creates  a  Separator  Widget 
creates  a  Scale  Widget 
Gets  the  material  density 


*  Parameters  > 

*  Formal  declaration: 

*  void  mtrllCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 


*  Input : 

*  w 

* 

*  c 

*  call_data 

* 

* 


the  ID  of  the  widget  for  which  the 

callback  is  registered 

the  data  passed  to  the  routine 

a  pointer  to  the  callback  structure  which 

contains  information  on  why  the  callback 

occurred 


*  Output : 

*  None  _ _ 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 


void  mtrllCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *indx  =  (int  *)c; 

Widget  rowcol,  label [6] ,  scale; 

Arg  wargs [10] ; 
int  n,  i,  reg,  mtl; 

static  int  hv,  sd,  wid,  inc,  dec,  val,  swid; 
static  char  scale  label [55] ; 

static  char  numb  [6]  [4]  =  {  "  0",  ■'  20",  "  40",  "  60",  "  80",  "100"  }; 

static  int  min  =  0; 
static  int  max  =  1000; 


reg  =  (*indx)  /  10; 
mtl  =  (*indx)  %  10; 


sprint f (scale_label , 

"Aerosol  Component  Vis  (km)  -  Material  %d  Region  %d" ,  mtl+1, 
reg+1) ; 


*  -  Create  a  RowColumn  Widget 

*  _ 

*/ 

rowcol  =  create  rowcol (w,  "Mtrl_Density_Options" ,  cancelobCB); 


Create  the  Scale 
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hv  =  0 ; 
sd  =  2  ; 

create_separator (rowcol,  & hv,  &sd) ; 

wid  =  560; 
inc  =  0; 
dec  =  1; 
swid  =  538; 

if (mtrl_wmtl [reg] [mtl]  >  0.0) 

val  =  10.0  /  mtrl_wmtl [reg] [mtl] ; 
else 

val  =  0 ; 

scale  =  create_scale (rowcol,  scale_label,  &wid,  &  min,  &max,  Seine, 
&dec,  &val,  &swid,  indx,  denmtlCB)  ; 


for  ( i  =  0 ;  i<6;  i++) 

{  n  =  0; 

XtSetArg  (wargs [n] ,  XmNwidth,  90);  n++; 

label [i]  =  XmCreateLabel (scale,  numb[i],  wargs,  n) ; 

XtManageChildren (label ,  6) ; 

}  /*  end  mtrllCBO  */ 


/*********************************************************************** 

*  VOID  DENMTLCB 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  denmtlCB 

*  Type:  C  void 

*  Filename :  visual . c 

*  Parent:  mtrllCB 

*<Description> 

*  Gets  the  material  density 

*<Called  routines> 

*  none 


*  <Parameters > 


Formal  declaration: 

void  denmtlCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 


w 


call  data 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  pointer  to  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

Developed  the  original  source  code. 


iid> 


*.********************************************************************* 

*/ 

void  denmtlCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *indx  =  (int  *)c; 
int  value ,  i ,  j ; 
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call_data; 


XmScaleCallbackStruct  *  call_value  = 

(XmScaleCallbackStruct  *) 

i  =  (*indx)  /  10; 
j  =  (*indx)  %  10; 
value  =  call  value  ->  value; 


if (value  >  0) 

mtrl_wmtl [i] [j]  =  10.0  /  (float) value; 
else 

mtrl_wmtl [i]  [ j  ]  =  0.0; 
new_file  =  TRUE; 

}  /*  end  denmtlCBO  */ 


VOID  REGN_MTL1 


*<Begin> 

*<  Identification  Name:  regn__mtll 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent :  cancelrCB 


*<Description> 

*  Sets  up  the  menu  for  selecting  the  Materials  and  Densities 


*<Called  routines> 

*  create_rowcol 

*  cancelCB 

*  create_radiobox 

*  create_togglebutton 

*  regn_mtlCB 


creates  a  Rowcol  Widget 
removes  the  Rowcol  Widget 
creates  a  Radiobox  Widget 
creates  a  Togglebutton  Widget 
sets  the  region  material  density 


*<Parameters> 

*  Formal  declaration: 

*  void  regn_mtll (  void  ) 

*  Input : 

*  none 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 


*/ 

void  regn_mtll  (void) 

Widget  radio,  toggle [MXMTR] ,  rowcol; 
int  j  ; 

static  int  index [3],  nc; 
static  char  tog_label [MXMTR] [13] ; 
static  char  cat  label [24] ; 


sprintf (cat_label ,  "Material  for  Region  %d" ,  cur_regn+l) ; 
cur  mtl  =  MXMTR  +  1; 


for  ( j=0 ;  j <MXMTR ;  j++) 

sprintf (tog_label[j] ,  "Material  -  %d",  j+1)  ; 
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Create  a  RowColumn  Widget 


rowcol  =  create_rowcol (menu,  "Material_Options " ,  cancelCB); 


Create  the  radiobox  and  toggles 


*/ 

nc  =  1  ; 

radio  =  create__radiobox  (rowcol ,  &nc,  cat_label)  ; 

for  ( j  =  0  ;  j  <MXMTR;  j++) 

{  index [j]  =  10  *  cur_regn  +  j; 

toggle  [j]  =  create_togglebutton (radio,  tog_label [ j ] ,  &index[j], 
regn_mtlCB) ; 

if(cur_mtl  <  MXMTR) 

XmToggleButtonSetState (toggle [cur  mtl] ,  TRUE,  FALSE); 

}  /*  end  regn_mtll()  */ 

y*********************************************************************** 
*  VOID  METRNG_OPTCB 

*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  metrng  optCB 


Name 

Type 

Filename 

Parent 


metrng_optCB 
C  void 
visual . c 
modelCB 


*<Description> 

*  Selects  the  various  Meteorological  Range  Options  for  BLIRB 


*<Called  routines> 

*  create_rowcol 

*  cancelCB 

*  create_separator 

*  create_scale 

*  metrngCB 


-  creates  a  Rowcol  Widget 

-  removes  the  Rowcol  Widget 

-  creates  a  Separator  Widget 

-  creates  a  Scale  Widget 

-  Gets  some  of  the  input  parameters  of  the 
MDL1  and  MDL2  cards  (IVIS  and  SN) . 


*<Parameters> 

*  Formal  declaration: 

*  void  metrng_optCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  the  data  passed  to  the  routine 

*  call__data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 


*<End> 
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void  me t r ng_op t CB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

int  *indx  =  (int  *)c; 

Widget  rowcol,  label [6],  scale; 

Arg  wargs [10] ; 
int  n,  i,  k; 

static  int  hv,  sd,  inc,  wid,  val,  swid; 

static  char  scale  label [26] ={  "Meteorological  Range  (km)"  }; 

static  char  numb[2] [6] [3]  =  {  {  »  0",  "  1",  "  2",  "  3”,  "  4",  "  5"  }, 

{  "  0",  "10",  "20",  "30",  "40",  "50"  } 

}  ' 

static  int  min  =  0; 

static  int  max  =  500; 

static  int  dec [2]  =  {  2,  1  }; 

k  =  *indx  -  1; 


/* - 

*  -  Create  a  RowColumn  Widget 


rowcol  =  create  rowcol (menu,  "Met_Range_Options" ,  cancelCB) ; 


/* - 

*  -  Create  the  Scale 


*/ 

hv  =  0; 
sd  =  2  ; 

create_separator (rowcol ,  &hv,  &sd) ; 

wid  =  560 ; 
inc  =  1 ; 
swid  =  538; 

if ( (mdll  ==  0)  &&  (mdl2  ==  0)) 

{  if(mdll_ivis  ==  1) 

val  =  500.0  *  mdl2_sn; 
else  if (mdll_ivis  ==  2) 
val  =  230.0  *  mdl2_sn; 
else  if (mdll_ivis  ==  3) 
val  =  100.0  *  mdl2_sn; 
else  if (mdll_ivis  ==  4) 
val  =  50.0  *  mdl2_sn; 
else  if (mdll_ivis  ==  5) 
val  =  20.0  *  mdl2__sn; 
if (k  ==  0) 

val  =  10  *  val; 

} 

else 

val  =  min ; 
if (val  >  max) 
val  =  max; 

scale  -  create_scale  (rowcol ,  scale__label ,  &wid,  &min,  &max,  Seine, 
Sedec  [k]  ,  &val ,  &swid,  indx,  metrngCB)  ; 

for  ( i  =  0 ;  i<6;  i++) 

{  n  =  0; 

XtSetArg  (wargs [n] ,  XmNwidth,  90);  n++; 

label  [i]  =  XmCreateLabel (scale,  numb[k][i],  wargs,  n) ; 

} 
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XtManageChildren (label,  6) ; 

}  /*  end  metrng_optCB ( )  */ 


/*********************************************************************** 

*  VOID  METRNGCB 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  metrngCB 

*  Type :  C  void 

*  Filename :  visual . c 

*  Parent :  metrng_optCB 

*=„__===========___======____-___==:_=;::_===;;=;=:====_===  =  ==========_========= 


*<Description> 

*  Gets  the  I VIS  and  SN  input  parameters  for  the  MDL1  and  MDL2  cards 

*<Called  routines> 

*  none 


*  Parameters  > 


Formal  declaration : 

void  metrngCB (  Widget  w,  XtPointer  c, 
Input : 
w 


XtPointer  call  data) 


c 

call 


Output : 
None 


data 


the  ID  of  the  widget  for  which  the 
callback  is  registered 

pointer  to  the  data  passed  to  the  routine 
a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


*<History> 

*  09/12/94 

* 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  metrngCB  (Widget  w,  XtPointer  c,  XtPointer  call__data) 

int  *indx  =  (int  *)c; 
float  sn,  dum; 
int  value,  ivis; 

XmScaleCallbackStruct  *  call_value  = 

(XmScaleCallbackStruct  *)  call_data; 


value  =  call_value  ->  value; 


if (*indx  ==  0) 

dum  =  0.01  * (float) value; 

/* 

Met  Rng  <=  5  km 

*/ 

else 

dum  =  0.1  *  (float) value ; 

/* 

Met  Rng  <=  50  km 

*/ 

if (dum  <=  2.0) 

{  ivis  =  5; 

sn  =  dum  /  2.0; 

} 

else  if (dum  <=  5.0) 

{  ivis  =  4; 

sn  =  dum  /  5.0; 

} 

else  if (dum  <=  10.0) 
{  ivis  =  3 ; 
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sn  =  dum  /  10.0; 

else  if (dum  <=  23.0) 

{  ivis  =  2 ; 

sn  =  dum  /  2  3 . 0 ; 

} 

else 

{  ivis  =  1; 

sn  =  dum  /  50.0; 

} 

if (mdll  <  0) 

{  mdll  =0;  /*  Default  values  */ 

mdll_iaersl  =  0.0; 
mdll_model  =  6.0; 
mdll_iseasn  =  0.0; 
mdll  ivulcn  =  1.0; 

} 

mdll  ivis  =  ivis; 


if (mdl2  <  0) 

{  mdl2  =  0;  /*  Default  values  */ 

mdl2__t  bound  =  288.2; 
mdl2_ialb  =  -1.0; 
mdl2_ip  =  0.0; 
cur  ialb  =  mdl2_ialb; 

} 

mdl2  sn  =  sn; 


if (dum  <=  5.0) 
metrng_indx  =  1; 
else 

metrng_indx  =  2; 

new_f ile  =  TRUE;  /*  inputs  changed  */ 

}  /*  end  metrngCBO  */ 


VOID  SUNJDPTCB 


*<Begin> 

*<Identif ication>  Name:  sun_optCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  create_modifymenu 


*<Description> 

*  Selects  the  various  Sun  Input  Options  for  BLIRB 


*<Called  routines> 

*  create_rowcol 

*  cancelsCB 

*  create_separator 

*  create_radiobox 

*  create__togglebutton 

*  create_scale 

*  siininCB 


creates  a  Rowcol  Widget 
removes  the  Rowcol  Widget 
creates  a  Separator  Widget 
creates  a  Radiobox  Widget 
creates  a  Togglebutton  Widget 
creates  a  Scale  Widget 

Set  the  input  parameters  of  the  SUN  card 


*  Parameters  > 

*  Formal  declaration: 

*  void  sun_optCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 
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-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  sun_optCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

Widget  radio [3],  toggle  [6],  rowcol,  label [2]  [10] ,  scale  [2]  ; 

Arg  wargs [10] ; 
int  n,  i,  j ,  k; 

static  int  index  [8],  hv,  sd,  nc,  wid,  inc,  dec,  val[2],  swid; 
static  char  cat_label [3] [36]  =  {"Solar  Flux  and  Sky  Radiance  at  5  Km", 

"Sky  Radiance  Input", 

"Spectral  Molecular  Transmission"  }; 
static  char  tog_label  [6]  [14]  =  {  "Parameterized",  "LOWTRAN", 

"No",  "Yes", 

"No",  "Yes"  } ; 

static  char  scale_label [2]  [26] ={  "Solar  Zenith  Angle  (deg)", 

"Solar  Azimuth  Angle  (deg)"  }; 

static  int  min [2]  =  {  0,  0  }; 
static  int  max [2]  =  {  90,  360  } ; 
static  char  numb [2] [10] [4]  =  { 

'"0",  "10",  "20",  "30",  "40",  "50",  "60",  "70",  "80",  "90"}, 

"0",  "40",  "80",  "120",  "160",  "200",  "240",  "280",  "320",  "360"} 


* 

* 

* 

* 

* 

* 

* 

* 


w 


call  data 


Output : 
None 


/* - 

*  -  Create  a  RowColumn  Widget 

*  _ 

*/ 

rowcol  =  create_rowcol (w,  "Sun_Options" ,  cancel sCB); 


/* - 

*  -  Create  the  radioboxes  and  toggles 

*  _ 

*/ 

hv  =  0; 
sd  =  2  ; 
nc  =  1; 
k  =  0  ; 

for  ( i=0 ;  i<3;  i++) 

{  creat e_separa tor (rowcol ,  &hv,  &sd) ; 

radio [i]  =  create_radiobox (rowcol ,  &nc,  cat_label [i] ) ; 


for  (j  =  0;  j  <2 
{  index [k]  = 
toggle [k]  = 

} 


;  k++,  j++) 

10*i  +  j; 

create_togglebutton (radio 
suninCB) ; 


[i]  , 


tog_label [k] ,  &index [k] , 


if (sun  ==  0) 
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{  if (i  ==  0) 

XmToggleButtonSetState (toggle [ (int)  sun_ifsun] ,  TRUE,  FALSE); 
else  if (i  ==  1) 

XmToggleButtonSetState (toggle [2  +  (int)  sun_isky] ,  TRUE,  FALSE); 
else  if(i  ==  2) 

XmToggleButtonSetState (toggle  [4  +  (int)  sun_iftrn] ,  TRUE, FALSE); 


/* - 

*  -  Create  the  Scales 

*  - 

*/ 

for  (i=0;  i<2;  k++,  i++) 

{  create_separator (rowcol,  &hv,  &sd) ; 

index[k]  =  10*(i+3); 

wid  =  780; 

inc  -  1; 

dec  -  0 ; 

swid  =  758; 

if (sun  ==  0) 

{  if(i  ==  0) 

val [i]  =  sun_thsun ; 
else  if(i  ==  1) 

val[i]  =  sun_phsun; 

} 

else 

val [i]  =  min [i] ; 

scale[i]  =  create_scale (rowcol ,  scale_label [i] ,  fcwid,  &min[i], 

&max  [i]  ,  &inc,  ScdeC;  &val  [i]  ,  &swid,  &index  [k]  # 
s\ininCB)  ; 

for  ( j  =  0 ;  j  < 1 0 ;  j++) 

{  n  =  0; 

XtSetArg  (wargs [n] ,  XmNwidth,  45);  n++; 

label  [i]  [ j ]  *  XmCreateLabel (scale [i] ,  numb[i][j],  wargs,  n) ; 
XtManageChildren (label [i]  ,  10)  ; 

}  /*  end  sun_optCB()  */ 

/*********************************************************************** 

*  VOID  SUNINCB 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  suninCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  sun_optCB 

*<Description> 

*  Sets  the  input  parameters  of  the  SUN  card 

*<Called  routines> 

*  none 

*<Parameters> 

*  Formal  declaration: 

*  void  suninCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 
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*  Input : 

*  w 

* 

*  c 

*  call_data 

* 

* 

*  Output : 

*  None 

— =— — — — — =— — — =; 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  pointer  to  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*  —  — —  —  —  —  =  =  =  =  ==:  =  =  =  =  =  =:  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =:  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  : 


*<End> 

*********************************************************************** 

*/ 

void  suninCB (Widget  w,  XtPointer  c,  XtPointer  call  data) 

{ 

int  *n  =  (int  *)c; 
int  i ,  j ,  value ; 

XmScaleCallbackStruct  *  call_value  = 

(XmScaleCallbackStruct  * )  call_data; 


value  =  call_value  ->  value; 

i  =  (*n)/10;  -  /*  RadioBox  category  */ 

j  =  <*n)  %  10;  /*  Toggle  button  pushed  */ 

if (sun  <  0) 

{  sun  =  0; 

sun__thsun  =  0.0; 
sun_jphsun  =  0.0; 
sun_if sun  =1.0; 
sun_isky  =0.0; 
sun  iftrn  =0.0; 

} 


if (i  ==  0) 

sun__if  sun  =  j  ; 
else  if(i  ==  1) 
sun_isky  =  j ; 
else  if  (i  ==  2) 
sun_if trn  =  j ; 
else  if  (i  ==  3) 

{  sun_thsun  =  value; 
in_change  =  TRUE ; 

else  if  (i  ==  4) 

{  sun_jphsun  =  value; 

in  change  =  TRUE; 

}  “ 


new_f ile  =  TRUE; 

}  /*  end  suninCB ()  */ 

/*********************************************************************** 

*  VOID  FLARJ3PTCB 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  flar_optCB 

*  Type:  C  void 
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*  Fi 1 ename :  visual . c 

*  Parent:  create_f larlmenu 


*<Description> 

*  Selects  the  various  Flare  Input  Options  for  BLIRB 


*<Called  routines> 

*  create_rowcol 

*  cancelfCB 

*  create_separator 

*  create_radiobox 

*  create_togglebutton 

*  create_scale 

*  flarinCB 


creates  a  Rowcol  Widget 
removes  the  Rowcol  Widget 
creates  a  Separator  Widget 
creates  a  Radiobox  Widget 
creates  a  Togglebutton  Widget 
creates  a  Scale  Widget 

Set  the  input  parameters  of  the  Flare  card 


*<Parameters> 

*  Formal  declaration: 

*  void  f lar_optCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  the  data  passed  to  the  routine 

*  call__data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S 


(505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

raid  f lar__optCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 
int  *indx  =  (int  *)c; 

Widget  radio,  toggle[3],  rowcol,  label [2] [10] ,  scale[2]; 

Arg  wargs [10] ; 

int  n,  i,  j,  k,  kk,  ind; 

static  int  index[5],  hv,  sd,  nc,  wid,  inc,  dec,  val[2],  swid; 
static  char  cat_label [11]  =  "Flare  Type"; 

static  char  tog_label [3] [18]  «  {  "Isotropic",  "10%  Up  &  90%  Down", 

"User  Defined"  } ; 

static  char  scale_JLabel [2]  [24] = {  "Flare  Intensity  (watts)", 

"Flare  Temperature  (K) "  }; 

static  int  min [2]  =  j  0,  1500  }; 
static  int  max [2]  =  {  100000,  7500  }; 
static  char  numb [2] [7] [7]  =  { 

{"0",  "20000",  "40000",  "60000",  "80000",  "100000",  " 

"1500",  "2500",  "3500",  "4500",  "5500",  "6500",  "7500"} 


ind  =  * indx ; 


/* - 

*  -  Create  a  RowColumn  Widget 


rowcol  =  create_rowcol (menu,  "Flare_Options" ,  cancelfCB); 
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/* - - - 

*  -  Create  the  radioboxes  and  toggles 


*/ 

hv  =  0; 
sd  =  2  ; 
nc  =  l; 
kk  =  0 ; 

create_separator (rowcol,  &hv,  &sd) ; 

radio  =  create_radiobox (rowcol ,  &nc,  cat_label) ; 


for  ( j  =  0  ;  j 
{  index [kk] 
toggle [ j ] 

} 


<3;  kk++,  j++) 

=  10  *  ind  +  j ; 

=  create_togglebutton (radio, 
flarinCB) ; 


tog_label [ j  ]  , 


ficindex  [kk]  , 


if (f lar_itflr [ind]  >=  0.0  &&  f lar_itf lr [ind]  <  3.0) 

XmToggleButtonSetState (toggle [ (int)  flar_itflr [ind] ] ,  TRUE,  FALSE) ; 


/* - 

*  -  Create  the  Scales 


*/ 

for  ( i=0 ;  i<2;  kk++,  i++) 

{  create_separator (rowcol ,  &hv,  &sd) ; 

index [kk]  =  10  *  ind  +  (i  +  3) ; 
if (i  ==  0) 

{  wid  =  560; 
swid  =  538; 
k  =  6 ; 

} 

else 

{  wid  =  660; 
swid  -  638; 
k  =  7; 

} 

inc  =  0; 
dec  =  0; 

if  (i  ==  0) 

{  if (flar_qflar [ind]  >=  min[0]  &&  f lar_qf lar [ind]  <=  max[0]) 
val [i]  =  f lar_qf lar [ind] ; 
else 

val [i]  =  min [i] ; 

} 

else  if(i  ==  1) 

{  if  (f  lar__tflar  [ind]  >=  min[l]  &&  f  lar_tf  lar  [ind]  <=  max[l]  ) 
val [i]  -  f lar_tflar [ind] ; 
else 

val [i]  =  min [i] ; 

} 

scale  [i]  =  create_scale (rowcol,  scale_label [i] ,  &wid,  &min[i] , 
&max[i],  &inc,  &dec,  &val [i]  ,  &swid,  &index[kk], 
flarinCB) ; 

for  ( j  =  0 ;  j <k;  j++) 

{  n  =  0; 

XtSetArg  (wargs [n] ,  XmNwidth,  90);  n++; 

label[i][j]  =  XmCreateLabel (scale [i]  ,  numb[i][j],  wargs,  n) ; 
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XtManageChildren (label [i] ,  k) ; 

}  ^  /*  end  flar_optCB ()  */ 

^ *  VOID  FLARINCB 


*<Begin> 

*<  Identification 


Name : 
Type: 
Filename : 
Parent : 


f larinCB 
C  void 
visual . c 
flar_optCB 


*<Description> 

*  Sets  the  input  parameters  of  the  Flare  card 


*<Called  routines> 

*  flar2 

*  create  menubar 


-  sets  up  the  scales  for  FLUP  &  FLDN  values 

-  creates  the  pull-down  menus,  rollover 
menus ,  and  menubar  to  control  them 


*  Parameters  > 

*  Formal  declaration: 

*  void  f larinCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  pointer  to  the  data  passed  to  the  routine 

*  call  data  -  a  pointer  to  the  callback  structure  which 

*  —  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

********.**********************★**************************************■** 

*/ 

void  f larinCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *n  =  (int  *)c; 
int  i ,  j ,  value ; 
static  Boolean  pass  =  FALSE; 
static  Boolean  mask [3],  go; 

XmScaleCallbackStruct  *  call_value  = 

(XmScaleCallbackStruct  *)  call_data; 


value  =  call_value  ->  value; 

i  =  (*n)  /  10; 
j  =  (*n)  %  10; 


/*  Flare  number 
/*  Toggle  button  pushed 


if((i  >  flar)  &&  !pass) 

{  flar  idflr[i]  =  i+1; 

flar_itflr [i]  =  flar_xf lar [i]  =  flar_yf lar [i]  =  flar_zf lar [i]  = 

flar_qflar [i]  =  f lar_tflar [i]  =  0.0; 

pass  =  TRUE; 

mask[0]  =  mask[l]  =  mask [2]  =  FALSE; 
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} 


if ( j  <  3) 

{  flar_itf lr [i]  =  j ; 
if  ( j  ==  2) 
flar2  (i) ; 
mask[0]  =  TRUE; 

} 

else  if  ( j  =====  3 ) 

{  f lar_qf lar  [i]  =  value; 
mask[l]  =  TRUE; 

} 

else  if(j  ==  4) 

{  flar_tf lar [i]  =  value; 
mask [2]  =  TRUE; 

} 

cur__flar  =  i; 

go  =  mask[0]  &&  mask[l]  &&  mask  [2]  ; 

if (go) 

{  flar++; 

pass  =  FALSE; 

mask[0]  =  mask[l]  =  mask  [2]  =  FALSE; 
in_changef  =  TRUE; 

XtUnmanageChild  (menu) ; 
menu  =  create  menubar (form) ; 

} 

new_file  =  TRUE; 

}  /*  end  flarinCBO  */ 


/****************************************************  ******************* 
*  VOID  FLAR2 

*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  flar2 


Name 

Type 

Filename 

Parent 


f  lar2 
C  void 
visual . c 
f larinCB 


*<Description> 

*  Sets  the  scales  for  the  FLUP  and  FLDN  values 
*<Called  routines> 

*  create_rowcol  -  creates  a  Rowcol  Wide 

*  cancelCB  -  removes  the  Rowcol  Wj 

*  create_separator  -  creates  a  Separator  V 

*  create_scale  -  creates  a  Scale  Widge 

*  flar3CB  -  gets  the  input  parame 


-  creates  a  Rowcol  Widget 

-  removes  the  Rowcol  Widget 

-  creates  a  Separator  Widget 

-  creates  a  Scale  Widget 

-  gets  the  input  parameters  on  the  FLUP  & 
FLDN  cards 


*<Parameters> 

*  Formal  declaration : 

*  void  flar2 (  int  ind) 

*  Input : 

*  n 

*  Output : 

*  None 


the  Flare  number 


i'<History> 
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* 

* 


09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code. 

*<End> 

*********************************************************************** 


*/ 

void  f lar2 (  int  ind) 

Widget  scale  [8],  label [6],  rowcol; 

Arg  wargs [10]  ; 

int  n,  i,  j; 

static  int  index [8],  hv,  sd,  wid, 

static  char  frac_label [8] [39]  =  { 

"Fraction 

'"Fraction 

"Fraction 

"Fraction 

"Fraction 

"Fraction 

"Fraction 

"Fraction 

static  char  frac[6] [4]  =  {  "0.0", 


min,  max,  inc,  dec,  val[8],  swid; 

of  Energy  in  Up  Direction  1", 
of  Energy  in  Up  Direction  2", 
of  Energy  in  Up  Direction  3", 
of  Energy  in  Up  Direction  4", 
of  Energy  in  Down  Direction  1", 
of  Energy  in  Down  Direction  2", 
of  Energy  in  Down  Direction  3 " , 
of  Energy  in  Down  Direction  4 "  }; 
"0.2",  "0.4",  "0.6",  "0.8",  "1.0" 


}; 


/* - - - 

*  -  Create  a  RowColumn  Widget 


rowcol  =  create  rowcol (menu,  "Flare_Energy_Fractions " ,  cancelCB) ; 


/* - 

*  -  Create  the  Scales 

★  - - - 

*/ 

hv  =  0; 
sd  =  2; 

for  ( i  =  0 ;  i<8;  i++) 

{  create_separator (rowcol ,  &hv,  &sd) ; 


index [i]  =  10  *  ind  +  i; 

wid  =  560; 

min  =  0; 

max  =  1000; 

inc  =  0 ; 

dec  =  3 ; 

if (i  <  4) 

{  if (flar_frrfup [ind] [i]  >=  0.0  &&  flar_frrfup [ind] [i]  <= 
val [i]  =  1000 . 0*flar_frrfup [ind] [i] ; 
else 

val[i]  =  min; 

} 

else 

{  if (f lar_frrfdn [ind]  [i-4]  >=  0.0  &&  flar_frrfdn [ind]  [i-4] 

val[i]  =  1000 . 0*flar_frrfdn [ind] [i-4] ; 
else 

val  [i]  =  min; 

} 

swid  =  538; 


1.0) 


1.0) 


scale  [i]  =  create_scale (rowcol,  f rac_label [i] ,  &wid,  &min,  &max, 

&inc,  &dec,  &val[i],  &swid,  &index[i] ,  flar3CB) ; 


if (i  ==  0) 
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{  for  ( j  =  0 ;  j  <6 ;  j++) 

{  n  =  0; 

XtSetArg  (wargs [n] ,  XmNwidth,  45);  n++; 

label[j]  =  XmCreateLabel (scale [0] ,  frac[j],  wargs,  n) ; 

} 

XtManageChildren (label,  6) ; 

}  ^  /*  end  f lar2 ( )  */ 

/*********************************************************************** 

*  VOID  FLAR3CB 
***************************************************************'*:**  +  **** 

*<Begin> 

*<Identif ication> 

* 

* 

* 

____==____=__=__=__=;==== ______  _________ 

*<Description> 

*  Gets  the  input  parameters  on  the  FLUP  and  FLDN  cards 

*<Called  routines> 

*  none 

*  Parameters  > 

*  Formal  declaration: 

*  void  flar3CB(  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 


Name : 
Type: 
Filename : 
Parent : 


f lar3CB 
C  void 
visual . c 
f  lar2 


w 


call  data 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  pointer  to  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  flar3CB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *n  =  (int  *)c; 
int  i ,  j  ,  value ; 

XmScaleCallbackStruct  *  call^value  = 

(XmScaleCallbackStruct  * )  call_data ; 

value  =  call_value  ->  value; 
i  =  (*n)  /  10; 
j  =  (*n)  %  10; 

if ( j  <  4) 

f lar_f rrfup  [i]  [j]  =  0.001  *  (float) value; 
else 

f lar_f rrfdn [i]  [j-4]  =  0.001  *  (f loat) value; 


new_f ile  =  TRUE; 
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} 


/* 


end  flar3CB() 


7 


^ *  VOID  SRCH_OPTCB 


*********** 

*<Begin> 

*  < I dent ification> 

* 

* 

* 

*<Description> 

*  Selects  the  various  SearchLight  Input  Options  for  BLIRB 


Name : 
Type: 
Filename : 
Parent : 


srch_optCB 
C  void 
visual . c 
create  srchmenu 


-  creates  a  Rowcol  Widget 

-  removes  the  Rowcol  Widget 

-  creates  a  Separator  Widget 

-  creates  a  Scale  Widget 

-  Set  the  input  parameters  of  the  SRCH  card 


*<Called  routines> 

*  create_rowcol 

*  cancelslCB 

*  create_separator 

*  create_scale 

*  srchinCB 

*<Parameters> 

*  Formal  declaration: 

*  void  srch_optCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  the  data  passed  to  the  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  ”  contains  information  on  why  the  callback 

*  occurred 


Output : 
None 


* 

* 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  srch_optCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

Widget  rowcol,  label [5] [10],  scale[5]; 

Arg  wargs [10] ; 
int  n,  i,  j,  k,  kk; 

static  int  index[5],  hv,  sd,  wid,  inc,  dec,  val [5] ,  swid; 

static  char  scale_label [5] [31]  =  {  "SearchLight  Beam  Zenith  (deg)", 

"SearchLight  Beam  Azimuth  (deg)", 
"SearchLight  Intensity  (watts)", 
"SearchLight  Temperature  (K)", 
"SearchLight  Diameter  (m) "  } ; 
static  int  min[5]  =  {  0,  0,  0,  1500,  0  } ; 
static  int  max[5]  =  {  90,  360,  100000,  7500,  2500  }; 
static  char  numb [5] [7] [7]  =  { 

"0",  "30",  "60",  "90",  "",  "",  ""  }, 

"0",  "90",  "180",  "270",  "360",  "",  ""  }, 

"0",  "20000",  "40000",  "60000",  "80000",  "100000",  ""  }, 

"1500",  "2500",  "3500",  "4500",  "5500",  "6500",  "7500"  }, 

"0",  "5",  "10",  "15",  "20",  "25",  ""  } 
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/* - 

*  -  Create  a  RowColumn  Widget 


rowcol  =  create_rowcol (menu,  "S  ear  chLight__Opt  ions " ,  cancelslCB) ; 

/* - ---- - 

*  -  Create  the  Scales 


hv  =  0; 
sd  =  2  ; 
kk  =  0; 

for  (i=0;  i<5 ;  kk++,  i++) 

{  create_separator (rowcol,  &hv,  &sd) ; 

index [kk]  =  i ; 
if  (i  ==  0) 

{  wid  =  420; 
swid  =  398; 
inc  =  1; 
dec  =  0 ; 
k  =  4; 

} 

else  if(i  =-  1) 

{  wid  =  420; 
swid  =  398; 
inc  =  1 ; 
dec  =  0; 
k  =  5; 

} 

else  if (i  ==  2) 

{  wid  =  560; 
swid  =  538; 
inc  =  0 ; 
dec  =  0; 
k  =  6; 

} 

else  if(i  ==  3) 

{  wid  =  660; 
swid  =  638; 
inc  =  0 ; 
dec  =  0  ; 
k  =  7; 

} 

else 

{  wid  =  560; 
swid  =  538; 
inc  =  0; 
dec  =  2; 
k  =  6  ; 

} 

if (i  ==  0) 

{  if (srch_thsrch  >=  min[0]  &&  srch_thsrch  <=  max[0]) 
val [i]  =  srch_thsrch; 
else 

val  [i]  =  min [i] ; 

} 

else  if(i  ==  1) 

{  if (srch_azsrch  >=  min[l]  &&  srch_azsrch  <=  max[l]) 
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val [i]  =  srch_azsrch; 
else 

val  [i]  =  min [i] ; 

} 

else  if  (i  ==  2) 

{  if  (srch_jpsrch  >=  min  [2]  &&  srch_psrch  <=  max  [2]) 
val  [i]  =  srchjpsrch; 

else 

val  [i]  =  min [i]  ; 
else  if  (i  ==  3) 

{  if (srch_tmsrch  >=  min[3]  &&  srch_tmsrch  <=  max [3]) 
val  [i]  =  srch_tmsrch; 
else 

val  [i]  =  min  [i] ; 

} 

else 

{  if (srch_sdiam  >=  min[4]/l00  &&  srch_sdiam  <=  max[4]/l00) 
val  [i]  =  100.0  *  srch_sdiam; 
else 

val  [i]  =  100  *  min [ i ] ; 

} 


scale[i]  =  create_scale (rowcol,  scale_label [i] ,  &wid,  &min[i], 
&max [i] ,  &inc,  &dec,  &val [i] ,  &swid,  &index[kk] , 
srchinCB) ; 


for  ( j  =  0 ;  j <k;  j++)  -  ' 

{  n  =  0; 

XtSetArg  (wargs [n] ,  XmNwidth,  90);  n++; 

label [i]  t j ]  =  XmCreateLabel (scale [i] ,  numb[i][j],  wargs,  n); 
XtManageChildren (label [i] ,  k) ; 

}  /*  end  srch_optCB()  */ 


/*********************************************************************** 
*  VOID  SRCHINCB 

*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  srchinCB 


Name : 
Type : 
Filename : 
Parent : 


srchinCB 
C  void 
visual . c 
srch_optCB 


*<Description> 

*  Sets  the  input  parameters  of  the  SRCH  card 


*<Called  routines> 

*  create  menubar 


-  creates  the  pull-down  menus,  rollover 
menus,  and  menubar  to  control  them 


*  Parameters  > 

*  Formal  declaration: 

*  void  srchinCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  pointer  to  the  data  passed  to  the  routine 

*  call__data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 
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Output : 
None 


* 

* 

* 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  srchinCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

int  *n  =  (int  *)c; 
int  j,  value; 

static  Boolean  pass  =  FALSE; 
static  Boolean  mask[5],  go; 

XmScaleCallbackStruct  *  call_value  = 

(XmScaleCallbackStruct  * )  call_data ; 

value  =  call_value  ->  value; 

j  =  *n;  /*  Scale  selected  */ 

if ( !pass) 

{  srch_thsrch  =  srch_azsrch  =  srch_psrch  =  srch_tmsrch  =  srch_sdiam 

=  0.0; 

pass  =  TRUE; 

mask [0]  =  mask[l]  =  mask [2]  =  mask [3]  =  mask [4]  =  FALSE; 


if  ( j  ==  0) 

{  srch_thsrch  =  value; 
mask [0]  =  TRUE; 

else  if ( j  ==  1) 

{  srch__azsrch  =  value; 
mask[l]  =  TRUE; 

else  if ( j  ==  2) 

{  srch_jpsrch  =  value; 
mask [2]  =  TRUE; 

} 

else  if ( j  ==  3) 

{  srch_tmsrch  =  value ; 
mask [3]  =  TRUE; 

else  if ( j  ==  4) 

{  srch_sdiam  =  0.01  *  (float) value ; 
mask [4]  =  TRUE; 

} 

go  =  mask [0]  &&  mask[l]  &&  mask [2]  &&  mask [3]  &&  mask [4] ; 
if (go) 

{  if(srch  <  0) 

{  srch  =  0; 

in_changesl  =  TRUE; 

XtUnmanageChild  (menu) ; 
menu  =  create_menubar (form) ; 
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new_file  =  TRUE; 

}  /*  end  srchinCB ( )  */ 


^*  VOID  COMP_OPTCB 


*<Begin> 

*<Identif ication>  Name:  comp_optCB 

*  Typer  C  void 

*  Filename:  visual. c 

*  Parent:  create_modifymenu 


*<Description> 

*  Selects  the  various  Computation  Options  for  BLIRB 


*<Called  routines> 

*  create_rowcol 

*  cancelCB 

*  create_separator 

*  create_radiobox 

*  create_togglebutton 

*  create_scale 

*  compCB 


creates  a  Rowcol  Widget 
removes  the  Rowcol  Widget 
creates  a  Separator  Widget 
creates  a  Radiobox  Widget 
creates  a  Togglebutton  Widget 
creates  a  Scale  Widget 

Set  the  input  parameters  of  the  DOMD  card 


*<Parameters> 

*  Formal  declaration: 

*  void  comp  optCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 


*  Input : 

*  w 

* 

*  .  c 

*  call_data 

* 

* 


-  the  ID  of  the  widget  for  which  the 
callback  is  registered 

-  the  data  passed  to  the  routine 

-  a  pointer  to  the  callback  structure  which 
contains  information  on  why  the  callback 
occurred 


* 

* 

* 


Output : 
None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

******************************** ********* ********** ******************** 


void  comp_optCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

^  Widget  radio[2],  toggle [ISCT+3] ,  rowcol,  label [3] [6] ,  scale [3]; 

Arg  wargs [10] ; 
int  n ,  i ,  j  ,  k ; 

static  int  net [2]  =  {  1,  ISCT  }; 

static  int  index [ISCT+6]  ,  hv,  sd,  nc,  wid,  inc,  dec [3],  val[3],  swid; 
static  char  catJLabel  [2]  [29]  =  {  "Delta  Function  Adjustment1’, 

"Order  of  Spherical  Harmonics"  }; 
static  char  tog_label [2] [4]  =  {  "No",  "Yes"  }; 
static  char  togg_label [10] ; 

static  char  scale__label  [3]  [34]  ={  "Maximum  Number  of  Iterations", 

"Convergence  Criterion", 

"Number  of  Convergence  Fail  Points"}; 


static  int  min [3]  =  0,  0,  0  }; 

static  int  max [3]  =  100,  1000,  50  }; 

static  char  numb [3] [6] [5]  =  { 

{  "  0",  "  20",  "  40",  "  60" ,"  80",  "  100"  }, 
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"0.00",  "0.02",  "0.04",  "0.06",  "0.08",  "0.10"  }, 
"  0",  "  10",  "  2  0",  "  30",  "  40",  "  50"  ' 


/* - - - - - 

*  -  Create  a  RowColumn  Widget 

*  _ _ _ 

*/ 

rowcol  =  create_rowcol (menu,  "Computation_Options " ,  cancelCB) ; 


/* - 

*  -  Create  the  radioboxes  and  toggles 


hv  =  0/ 
sd  =  2; 
nc  =  1; 
k  =  0; 

for  ( i  =  0 ;  i<2 ;  i  +  +  ) 

{  create_separator (rowcol,  &hv,  &sd) ; 

radio[i]  =  create_radiobox (rowcol ,  &nc,  cat_label [i] ) / 

for  ( j  =  0 ;  j<=nct[i]/  k++,  j++) 

{  index [k]  =  10*i  +  j; 

if U  ==  0) 

{  toggle  [k]  =  create_togglebutton (radio [i] ,  tog_label  [k] , 
&index[k],  compCB) ; 

else 

{  sprint f (togg_label,  "Order  %d\n",  j); 

toggle [k]  =  create_togglebutton (radio [i] ,  togg_label,  &index  [k] , 
compCB) ; 


if (domd  ==  0) 

{  if (i  ==  0) 

XmToggleButtonSetState (toggle [ (int)  domd_idelta] ,  TRUE,  FALSE) ; 
else  if (i  ==  1) 

XmToggleButtonSetState (toggle [2  +  (int)  domd_isc] ,  TRUE,  FALSE); 


/* - 

*  -  Create  the  Scales 


*/ 

for  (i=0;  i<3;  k++,  i++) 

{  create_separator (rowcol,  &hv,  &sd) ; 

index [k]  =  10*(i+2); 
wid  =  560; 
inc  =  0 ; 
swid  =  538; 
if(i  ==  1) 
dec[i]  =  4; 
else 

dec[i]  =  0; 

if (domd  ==  0) 

{  if(i  ==  0) 
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val [i]  =  domd_iitl; 
else  if  (i  ==  1) 

val  [i]  =  10000 . 0*domd_epsi; 
else  if  (i  ==  2) 

val  [i]  -  domd_npts; 

} 

else 

val  [i]  =  min [i] ; 

scale[i]  =  create_scale (rowcol,  scale_label [i] ,  &wid,  &min[i] , 
&max[i],  &inc,  &dec [i] ,  &val [i] ,  Sswid,  &index[k], 
compCB) ; 


for  ( j  =  0 ;  j  <6 ;  j++) 

{  n  =  0; 

XtSetArg  (wargs [n] ,  XmNwidth,  45);  n++; 

label  [i]  [j]  =  XmCreateLabel  (scale  [i]  ,  numb[i][j],  wargs,  n)  ; 

XtManageChi 1 dr en (label [i]  ,  6 )  ; 

}  /*  end  comp_optCB()  */ 


// *  VOID  COMPCB  ******* 


*<Begm> 

*<Identif ication> 
* 

* 

* 


Name : 
Type : 
Filename : 
Parent : 


compCB 
C  void 
visual . c 
comp__optCB 


*<Description> 

*  Sets  the  input  parameters  of  the  DOMD  card 

*<Called  routines> 

*  none 


*< Parameters > 

*  Formal  declaration: 

*  void  compCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  pointer  to  the  data  passed  to  the  routine 

*  call  data  -  a  pointer  to  the  callback  structure  which 

*  “  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

******************************************* **************************** 


void  compCB (Widget  w,  XtPointer  c,  XtPointer  call_data) 

{ 

int  *n  =  (int  *)c; 
int  i ,  j ,  value ; 

XmScaleCallbackStruct  *  call_value  = 
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(XmScaleCallbackStruct  *)  call_data; 

value  =  call__value  ->  value; 
if (value  ==  0) 
value++ ; 


i  =  (*n)/l0;  /*  RadioBox  category  */ 

j  =  (*n)  %  10;  /*  Toggle  button  pushed  */ 


if (domd  <  0) 

{  domd  =  0; 

domd_isc  =  2.0; 
domd_iitl  =  10.0; 
domd_epsi  =  0.002; 
domd_idelta  =  1.0; 
domd_npts  =  5.0; 


if (i  ==  0) 

domd_idelta  =  j ; 
else  if  (i  ==  1) 
domd_isc  =  j ; 
else  if(i  ==  2) 

domd_iitl  =  value; 
else  if(i  ==  3) 

domd_epsi  =  0.0001  *  (float) value ; 
else  if (i  ==  4) 

domd_npts  =  value; 

new__f  ile  =  TRUE; 

}  /*  end  compCBO  */ 


*  VOID  OUTPUT_OPTCB 


*<Begin> 

*<Identif ication>  Name :  output_optCB 

*  Type:  C  void 

*  Filename :  visual . c 

*  Parent:  create_modifymenu 

*<Description> 

*  Selects  the  Output  File  Format  Option  for  BLIRB 


*<Called  routines> 

*  create_rowcol 

*  cancelCB 

*  create_separator 

*  create_radiobox 

*  create_togglebutton 

*  outputCB 


creates  a  Rowcol  Widget 

removes  the  Rowcol  Widget 

creates  a  Separator  Widget 

creates  a  Radiobox  Widget 

creates  a  Togglebutton  Widget 

Set  the  input  parameter  of  the  ASCI  card 


*  Parameters  > 


Formal  declaration : 

void  output_optCB (  Widget  w,  XtPointer  c,  XtPointer  call_data) 
Input : 

w  -  the  ID  of  the  widget  for  which  the 

callback  is  registered 

c  -  the  data  passed  to  the  routine 

call_data  -  a  pointer  to  the  callback  structure  which 

contains  information  on  why  the  callback 
occurred 
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*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  output_optCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 

Widget  radio,  toggle [4],  rowcol; 
int  j  ; 

static  int  index [4],  hv,  sd,  nc; 

static  char  cat_label  [28]  =  "Radiant  Flux  Output  Options" ; 
static  char  tog_label[4] [33]  =  {  "No  Output  File", 

"Formatted  Output  File", 

"Unformatted  (binary)  Output  File", 
"Both  Formatted  and  Unformatted"  } ; 


/* - 

*  -  Create  a  RowColumn  Widget 


rowcol  =  create_rowcol (w,  "Output_Options " ,  cancelCB) ; 


/* - 

*  -  Create  the  radioboxes  and  toggles 


*/ 

hv  =  0; 
sd  =  2; 
nc  =  1; 

create_separator (rowcol,  &hv,  &sd) ; 

radio  =  create  radiobox (rowcol ,  &nc,  cat_label) ; 


for  ( j  =  0 ;  j 
{  index  [j] 
toggle  [j] 

} 


<4;  j++) 

=  j; 

=  create_togglebutton ( radio , 
outputCB) ; 


tog_label [ j]  , 


&index [ j ] , 


if (asci  ==  0) 

XmToggleButtonSet State (toggle [ (int)  asci_irite] ,  TRUE,  FALSE) ; 

}  /*  end  output_optCB ( )  */ 

/*********************************************************************** 

*  VOID  OUTPUTCB 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  outputCB 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  output_optCB 

*<Description> 

*  Sets  the  input  parameter  of  the  ASCI  card 

*<Called  routines> 

*  none 
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*<Parameters> 

*  Formal  declaration: 

*  void  outputCB  (  Widget  w,  XtPointer  c,  XtPointer  call__data) 

*  Input : 

*  w  -  the  ID  of  the  widget  for  which  the 

*  callback  is  registered 

*  c  -  pointer  to  the  data  passed  to  the  routine 

*  call_data  -  a  pointer  to  the  callback  structure  which 

*  contains  information  on  why  the  callback 

*  occurred 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  outputCB  (Widget  w,  XtPointer  c,  XtPointer  call_data) 
int  *n  =  (int  *)c; 


asci  =  0; 

asci^irite  =  *n;  /*  Toggle  button  pushed  */ 

}  /*  end  outputCB  ()  */ 


/*********************************************************************** 

*  VOID  GETDATA 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  getdata 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent:  main,  checkf iletypeCB,  newfile 

*======____  =  ____==__=====______;_____==__======____=_=_  =  _=__===_=======:;=:  = 

*<Description> 

*  Controls  getting  the  information  from  the  input  or  outfile  file 

*  and  processing  it. 

*=  =  =  =  =  =  =  =  = - = - - - - =  -  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  -----sss 


e<Called  routines> 
e  blirb  inout 


create__message 

readcards 

set__albedo 

set_aerosol 

set_mtrl_color 

set_axis_pts 

order_mtrl 

order_albd 

reset 


create  menubar 


decides  whether  a  BLIRB  input  or  output 
file  was  selected.  If  neither,  an  error 
flag  is  returned. 

draws  a  message  in  a  dialog  message  box 

reads  the  BLIRB  input  cards  and  checks 

them  along  with  getting  the  output  data 

sets  the  Albedo  values 

sets  the  Aerosol  Material  values 

sets  the  RGB  colors  for  the  material  types 

sets  up  the  grid  points  for  the  X,  Y,  and 

Z  axes . 

arranges  the  MTRL  and  REGN  cards  1  to  1 
arranges  the  ALBD  and  AREA  cards  1  to  1 
resets  the  viewing  and  plot  parameters  to 
the  original  values 

sets  up  rowcolumn  widget  with  names  of 
materials . 

creates  the  pull-down  menus,  rollover 
menus,  and  menubar  to  control  them 
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*<Parameters> 

*  Formal  declaration: 

*  void  getdata (  void) 

*  Input : 

*  None 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  getdata (void) 

float  visby,  maxd; 

static  char  *error_mesg []  =  { 

"Command  Line  Filename  is  neither  Input  nor  Output. \n", 
"Please  try  another  Filename . \n" , 


*  -  Determine  whether  the  datafile  is  input/output /neither . 


if(!new_file  &&  !def_file) 
blirb_inout ( ) ; 

if (badfile) 

_ _ 

*  -  If  file  is  neither  input  nor  output,  display  an  error  message. 

*  _ 

*/ 

create_message (  menu,  error_mesg,  XmDIALOG_ERROR)  ; 
else 

_ _ 

*  -  If  file  is  either  input  or  output,  read  the  BLIRB  input  cards. 

*  - - - 

*/ 

{  if(!new_file  &&  !def_file) 
readcards ( ) ; 

if ( !badf ile) 

/  * - - — - — - — — - - - - 

*  -  If  file  contains  no  input  errors,  set  the  albedo  values,  aerosol 

*  values,  material  colors,  and  axis  points. 


{  if ( ! area_order  &&  mdl2_ialb  <  0) 
order_albd ( ) ; 

if ( !regn_order) 
order_mtrl ( ) ; 

set_albedo  ()  ; 

set_aerosol () ; 

if ( !mtl_color_set) 
set_mtrl_color ( ) ; 

maxd  =  regn_rh[0] [0] ; 


/*  Arranges  the  ALBD  cards  */ 

/*  Arranges  the  MTRL  cards  */ 

/*  Set  the  Albedo  values  */ 
/*  Set  Aerosol  Mtrl  values  */ 

/*  Set  the  colors  of  Mtrls  */ 
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if (raaxd  <  regn_rh[l] [0]) 
maxd  =  regn_rh[l]  [0]  ; 
if (maxd  <  regn_rh[2] [0]) 
maxd  =  r egn_rh [ 2 ]  [  0 ] ; 
if (maxd  >  5.0) 

org_magf actor  =  5.0  /  maxd; 
else 

org_magf actor  =  1.0; 

set_axisj?ts  () ;  /*  Set  the  axes  grid  points  */ 

if (mdll_ivis  ==  1) 
visby  =  50.0; 
else  if (mdll_ivis  ==  2) 
visby  =  23.0; 
else  if (mdll_ivis  ==  3) 
visby  =  10.0; 
else  if (mdll_ivis  ==  4) 
visby  =  5.0; 
else  if(mdll_ivis  ==  5) 
visby  =  2.0; 

visby  *=  mdl2_sn; 

if (visby  <=  5.0) 
metrng_indx  =  1 ; 
else 

metrng_indx  =  2 ; 

reset  ()  ; 
obs  c  ( )  ; 

} 

/* - 

*  -  For  a  new  input  or  output  file  delete  the  current  menubar  and 

*  create  a  new  one . 

*  _ 

*/ 

XtUnmanageChild  (menu)  ; 
menu  =  createjmenubar (form) ; 


7*  end  get data  */ 

/*********************************************************************** 

*  VOID  READCARDS 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  readcards 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  getdata 

*<Description> 

*  Reads  the  BLIRB  input  cards  and  checks  them  along  with  getting 

*  the  output  data. 

*<Called  routines > 

*  create_message  -  draws  a  message  in  a  dialog  message  box 

*  checkinputs  -  checks  for  the  presence  of  required  input 

*  cards 

*  readoutput  -  reads  the  output  file  information 
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*< Parameters > 

*  Formal  declaration: 

*  void  readcards (  void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 


*/ 

void  readcards (void) 

char  cardlabel [5]  ,  card[RLEN] ,  c[5]; 
int  i /  j; 
float  dum; 

FILE  *fp; 

static  char  *error_msg[]  =  { 


"Excess  cards  ignored. \n", 
" "  }  ; 

static  char  *error_msgx []  =  { 


"Card  ignored. \n" , 

""  }; 

static  char  *error_mesg []  =  { 

"Selected  Filename  not  found. \n", 
"Please  try  another  Filename . \n" , 
""  }; 


M 


II 


*  -  Open  the  requested  input  file  or  output  file. 


if((fp  =  fopen (f ile_name,  "r"))  !=  NULL) 

{ 

/* - - 7-- 

*  -  Initialize  the  Input  Card  Type  Counters  and  the  Grid  Point 

*  Counters . 


*/ 

ilcl  =  mdll  =  mdl2  =  mdl3  =  area  =  regn  =  mesx  =  mesy  =  mesz  = 

albd  =  mtrl  =  elds  =  domd  =  sun  =  wavn  =  asci  =  reel  =  wavl  =  vis  = 

flar  =  flen  =  flup  =  fldn  =  srch  =  sren  =  blirb  =  done  =  -1; 


num_grid_pts [0]  =  num_grid_pts [1]  =  num_grid_pts [2]  = 

num_grid_main_pts [0]  =  num_grid_main_pts [1]  = 

num_grid_main_pts [2]  =  -1; 

do  /*  From  VIEW . R JOB  Subroutine*/ 


*  -  Read  a  BLIRB  input  card  from  the  file. 


*/ 

{  fgets (card,  RLEN,  fp) ; 


/* 
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*  -  Get  the  first  5  characters  (card  identifier)  from  the  card. 

*  _ 

*/ 

sscanf(card,  "%s",  cardlabel); 


/* - 

*  -  Process  the  rest  of  the  card  depending  upon  the  identifier. 


if (strncmp (cardlabel, "WAVL" , 4)  ==  0) 

{  wavl  =0;  /*  WAVL  card  */ 

sscanf(card,  "%s%10e",  c,  &wavl  wavl); 

} 

else  if (strncmp (cardlabel, "VIS" , 3)  ==  0) 

{  vis  =0;  /*  VIS  card  */ 

sscanf (card,  "%s%10en,  c,  &vis  vis); 

} 

else  if (strncmp (cardlabel, "BLIRB" , 5)  ==  0) 

{  blirb  =0;  /*  BLIRB  card  */ 

sscanf  (card,  Hs",  c)  ; 

} 

else  if (strncmp (cardlabel, "MDL1" , 4)  ==  0) 

{  mdll  =0;  /*  MDL1  card  */ 

sscanf (card,  n%s%10e%10e%l0e%10e%10e" ,  c,  &mdll_iaersl , 

fcmdll  model,  &mdll  ivis,  &mdll  iseasn,  &mdll  ivulcn) ; 

} 

else  if (strncmp (cardlabel , "MDL2 M , 4)  ==  0) 

{  mdl2  =0;  /*  MDL2  card  */ 

sscanf (card,  " %s%10e%10e%l0e%10en ,  c,  &mdl2_sn,  &mdl2_tbound, 
&mdl2_ialb,  &mdl2_ip) ; 
if ( ! blirb_in  &&  (int) mdll_model  !=  7) 
fgets(card,  RLEN,  fp) ; 
cur_ialb  =  mdl2_ialb; 


else  if (strncmp (cardlabel, "MDL3M , 4)  ==  0) 

{  mdl3  =0;  /*  MDL3  card  */ 

sscanf (card,  " %s%10e%10e%10e%10e%10e%10en ,  c,  &mdl3_t  [0] , 

&mdl3__t  [1]  ,  &mdl3_t  [2]  ,  &mdl3_t  [3]  ,  &mdl3_t  [4]  , 

&mdl3_t [5] ) ; 
if ( ! blirb_in) 

fgets (card,  RLEN,  fp) ; 


else  if (strncmp (cardlabel , "AREA" , 4)  ==  0) 

{  area++;  /*  AREA  card  */ 

if (area  <  I AM) 

sscanf  (card,  •  "%s%10e%10e%10e%10e%10e"  ,  c,  &area__alx  [area]  , 
&area_ahx [area] ,  &area_aly [area] ,  &area_ahy [area] , 
&area__iamtl  [area]  )  ; 

else 

{  printf("  Too  many  AREA  cards.\n"); 

sprintf (error_msg [0] , "Too  many  AREA  cards. \n") ; 
create_message  (  menu,  error_msg,  XmDIALOG__ERROR)  ; 


else  if (strncmp (cardlabel, "REGN" , 4)  ==  0) 


470 


/*  REGN  card 


regn++;  /*  REGN  card 

if(regn  <  IRM) 

{  sscanf (card,  "%s%10e%10e%10e%10e%10e%10e%10e" ,  c, 

&regn_rlx [regn] ,  &regn_rhx [regn] ,  &regn_rly [regn] 
&regn_rhy [regn] ,  &regn_rlz [regn] ,  &regn_rhz [regn] 
&regn_izmtl [regn] ) ; 


regn_rlx [regn] ; 
regn_rhx [regn] ; 
regn_rly [regn]  ; 
regn_rhy [regn] ; 
regn_rlz [regn] ; 
regn_rhz [regn]  ; 


regn_rl[0] [regn] 
regn_rh[0] [regn] 
regn_rl [1] [regn] 
regn_rh [ 1 ] [regn] 
regn_rl[2] [regn] 
regn  rh[2] [regn] 

} 

else 

{  printf("  Too  many  REGN  cards. \nM ); 

print f ( "  IRM  curently  set  to  %d.\n” ,  IRM); 
sprintf (error_msg [0] ,  uToo  many  REGN  cards. \n" ); 
create  message (  menu,  errorjnsg,  XmD I ALOG_ERROR ) 

} 


else  if (strncmp (cardlabel , nMESX" , 4 )  ==  0) 

{  mesx++ ;  /*  MESX  card 

if (mesx  <  ISM) 

{  sscanf (card,  n%s%10e%10e" ,  c,  &mesx_mhx [mesx] , 
&mesx_xms [mesx] ) ; 
mes__mh[0]  [mesx]  =  mesx_mhx  [mesx]  ; 
mes_ms  [0]  [mesx]  =  mesx_xms  [mesx]  ; 
mes  [0]  =  mesx; 

} 

else 

{  printf("  Too  many  MESX  cards. \nn); 

sprintf (error_msg [0] , "Too  many  MESX  cards.\n") ; 
create_message (  menu,  error_msg,  XmDIALOG_ERROR) ; 


else  if (strncmp (cardlabel, "MESY" , 4)  ==  0) 

{  mesy++;  /*  MESY  card 

if (mesy  <  ISM) 

{  sscanf  (card,  ,,%s%10e%10e",  c,  &mesy_mhy  [mesy]  , 
&mesy__yms  [mesy]  )  ; 
mes_mh  [1]  [mesy]  =  mesy_mhy  [mesy]  ; 
mes_ms  [1]  [mesy]  =  mesy_yms  [mesy]  ; 
mes  [1]  =  mesy; 

} 

else 

{  printf("  Too  many  MESY  cards.\n"); 

sprintf (error_msg [0] , "Too  many  MESY  cards . \n" ) ; 
create_message (  menu,  error_msg,  XmDIALOG_ERROR) ; 


*/ 


*/ 


*/ 


else  if (strncmp (cardlabel , "MESZ" , 4)  ==  0) 

{  mesz++;  /*  MESZ  card  */ 

if (mesz  <  ISM) 

{  sscanf (card,  "%s%10e%10e" ,  c,  &mesz_mhz [mesz] , 

&mesz_zms [mesz] ) ; 
mes_mh [2] [mesz]  =  mesz_mhz [mesz] ; 
mes_ms [2]  [mesz]  =  mes z_zms [mesz]  ; 
mes  [2]  =  mesz; 

} 
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else 

{  printf("  Too  many  MESZ  cards. \n"); 

sprint f (error_msg [0]  , "Too  many  MESZ  cards. \n"); 
create_message (  menu,  error_msg,  XmDIAL0G_ERR0R) ; 


else  if (strncmp (cardlabel , "ALBD" , 4 )  ==  0) 

{  albd++ ;  /*  ALBD  card  */ 

if(albd  <  IDM) 

{  if (blirb_in) 

sscanf  (card,  ,,%s%10e%10e"  ,  c,  &albd_lalb [albd]  , 

&albd_f alb [albd]  ) ; 

else 

sscanf (card,  " %s%10e%10e%10e" ,  c,  &albd_lalb [albd] , 

&albd  f alb [albd] ,  &dum) ; 

} 

else 

{  printf(M  Too  many  ALBD  cards. \n"); 

sprintf (error_msg [0] , "Too  many  ALBD  cards. \n") ; 
create_message (  menu,  error_msg,  XmDIALOG_ERROR) ; 


else  if (strncmp (cardlabel, "MTRL" , 4)  =  =  0) 

{  mtrl++ ;  /*  MTRL  card  */ 

if (mtrl  <  ITM) 

{  sscanf (card, n%s%10e%10e%10e%10e%10e%10e" ,  c, 

&mtrl_lmtl [mtrl] [0] ,  &mtrl_wmtl [mtrl] [0] , 

&mtrl_lmtl [mtrl] [1] ,  &mtrl_wmtl [mtrl] [1] , 

&mtrl_lmtl [mtrl] [2] ,  &mtrl_wmtl [mtrl] [2] ) ; 
for (i=0 ;  i<MXMTR;  i++) 

{  if (mtrl_lmtl [mtrl] [i]  >  100) 
mtrl_lmtl [mtrl] [i]  -=  60; 
mtrl_lmtl [mtrl] [i]  +=  3; 


else 

{  printf("  Too  many  MTRL  cards.\nM); 

sprintf (error_msg [0] , "Too  many  MTRL  cards.\n"); 
create_message (  menu,  error_msg,  XmDIALOG_ERROR) ; 


else  if (strncmp (cardlabel, "CLDS" , 4) 

{  elds  -  0 ; 

sscanf (card,  " %s%10e%10e%10e" ,  c, 

&clds  wind) ; 

} 

else  if (strncmp (cardlabel, "DOMD" , 4)  ==  0) 

{  domd  =  0 ; 

sscanf (card,  "%s%10e%10e%10e%10e%10e" ,  c,  &domd_isc,  &domd_iitl, 
&domd_epsi,  &domd_idelta,  &domd_npts) ; 


else  if (strncmp (cardlabel , "SUN" , 3)  ==  0) 

{  sun  =0;  /*  SUN  card  */ 

sscanf (card,  "%s%10e%10e%10e%10e%10e" ,  c,  &sun_thsun, 

&sun_phsun,  &sun_if sun,  &s\in_isky,  &sun_iftrn)  ; 


==  0) 

/*  CLDS  card  */ 

&clds_icld,  &clds_ibnd. 
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else  if (strncmp (cardlabel, "FLAR" , 4)  =-  0) 

{  f lar++ ;  /*  FLAR  card  */ 

if (flar  <  NEST) 

sscanf (card,  n %s%10e%10e%10e%10e%10eM ,  c,  &flar_idflr [flar] , 
&flar_itf lr  [f lar]  ,  &f lar_xf lar  [flar]  ,  &f lar_yflar  [flar]  , 
&f lar_zf lar [f lar] ) ; 

else 

{  printf ("  Too  many  FLAR  cards. \n" ) ; 

sprint f (error_msg [0] , "Too  many  FLAR  cards . \n" ) ; 
create_message (  menu,  error_msg,  XmDIALOG_ERROR) ; 


else  if (strncmp (cardlabel, "FLEN" , 4)  ==  0) 

{  f len++ ;  /*  FLEN  card  */ 

if (f len  <  NEST) 

sscanf (card,  " %s%10e%10e%10e" ,  c,  &f len_idf lr [f len] , 

&f len_qf lar [f len] ,  &f len_tf lar [flen] ) ; 

else 

{  printf("  Too  many  FLEN  cards. \n"); 

sprint f (error_msg [0] , "Too  many  FLEN  cards. \n"); 
create_message  (  menu,  error_msg,  XmDIALOG__ERROR)  ; 


else  if (strncmp (cardlabel , "FLUP" , 4)  ==  0) 

{  f lup++ ;  /*  FLUP  card  */ 

if(flup  <  NEST) 

sscanf  (card,  " %s%10e%10e%10e%10e%10e"  ,  c,  &f lup__idf  lr  [f lup]  , 

&f lup_f rrfup  [f lup]  [0]  ,  &f  lup_f rrfup  [f lup]  [1]  , 

&f lup_f rrfup  [flup]  [2]  ,  &flup_f rrfup  [f lup]  [3]  )  ; 

else 

{  printf ("  Too  many  FLUP  cards.\n"); 

sprintf (error_msg [0] , "Too  many  FLUP  cards.\n"); 
create_message (  menu,  error_msg,  XmDIALOG_ERROR) ; 


else  if (strncmp (cardlabel, "FLDN" , 4)  ==  0) 

{  f ldn++ ;  /*  FLDN  card  */ 

if (f ldn  <  NEST) 

sscanf (card,  "%s%10e%10e%10e%10e%10e" ,  c,  &f ldn_idflr [f ldn] , 

&f ldn_f rrfdn [f ldn] [0] ,  &f ldn_f rrfdn [f ldn] [1] , 

&fldn_frrfdn [fldn] [2] ,  &fldn_f rrfdn [f ldn] [3] ) ; 

else 

{  printf ("  Too  many  FLDN  cards.\n"); 

sprintf (error_msg [0] , "Too  many  FLDN  cards. \n") ; 
create_message (  menu,  error_msg,  XmDIALOG_ERROR) ; 


else  if (strncmp (cardlabel, "SRCH", 4)  ==  0) 

{  srch  =  0;  /*  SRCH  card  */ 

sscanf (card,  "%s%10e%10e%10e%10e%10e" ,  c,  &srch_xsrch, 

&srch  ysrch,  &srch_zsrch,  &srch_thsrch,  &srch_azsrch) ; 

} 

else  if (strncmp (cardlabel, "SREN" , 4)  ==  0) 

{  sren  =0;  /*  SREN  card  */ 

sscanf (card,  "%s%10e%10e%10e" ,  c,  &sren_psrch,  &sren_tmsrch, 
&sren  sdiam) ; 

} 
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else  if (strncmp (cardlabel , "WAVN" , 4)  ==  0) 

{  wavn  =0;  /*  WAVN  card  */ 

sscanf(card,  "%s%10e%10e%10e" ,  c,  &wavn_vl,  &wavn_v2 ,  &wavn_dv) ; 

wavn_dv  =  ( wavn_v2  -  wavn_vl)  /  wa vn_dv ; 
if (wavn_vl  >=  8000.0  &&  wavn_v2  <=  28000) 
wavn_indx  =  0 ; 

else  if (wavn_vl  >=  3000.0  &&  wavn_v2  <=  13000) 
wavn_indx  =  1 ; 

else  if  (wavn__vl  >  =  1200.0  &&  wavn_v2  <=  5200) 
wavn_indx  =  2 ; 

else  if (wavn_vl  >=  500.0  &&  wavn_v2  <=  1500) 
wavn_indx  =  3 ; 

else  if (wavn_vl  >=  600.0  &&  wavn_v2  <=  3600) 
wavn_indx  =  4; 
else 

wavn  indx  =  -1; 

} 


else  if (strncmp (cardlabel, "ASCI" # 4)  ==  0) 

{  asci  =0;  /*  ASCI  card  */ 

sscanffcard,  ^s^l'Oe",  c,  &asci_irite)  ; 

} 

else  if (strncmp (cardlabel , "RECL" , 4 )  ==  0) 

{  reel  =0;  /*  RECL  card  */ 

sscanf(card,  "%s%10e",  c,  &recl  irpt) ; 

} 

else  if (strncmp (cardlabel, "DONE" , 4)  ==  0) 

done  =0;  /*  DONE  card  */ 

else  if (strncmp (cardlabel , " ILCLM , 4 )  ==  0) 

ilcl  =0;  /*  ILCL  card  */ 

else 

{  printf("  Card  %s  not  identified. \nH ,  cardlabel);  /*  Unknown  */ 


sprintf (error_msgx [0] , "Card  %s  not  identif ied. \n" ,  cardlabel); 
create_message (  menu,  error_msgx,  XmDIALOG_ERROR) ; 

}  while  (reel  !=  0  &&  done  !=  0) ; 

/* - 

*  -  When  finished  reading  the  input  cards,  check  for  the  presence  of 

*  the  required  input  cards . 

*  _ _ _ 

*/ 

checkinputs () ; 

/* - 

*  -  If  the  datafile  is  an  output  file,  read  the  remaining  output  file 

*  data  records . 

*  _ 

*/ 

if(!blirb_in  &&  (flar  <  0)  &&  (srch  <  0)) 
readoutput (fp) ; 

/* - - - 

*  -  When  finished  reading  all  the  data,  close  the  file. 

*  _ 

*/ 
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f close  (fp) ; 


/* - 

*  -  If  this  was  the  first  datafile,  turn  on  the  Sun  display  option 

*  and  indicate  the  requested  datafile  was  found. 

*  _ 

*/ 

if  ( !  f ile__found) 
sun_plot  =  TRUE; 

file  found  =  TRUE; 

} 


/* - - - 

*  -  If  the  requested  datafile  was  not  found,  display  an  error 

*  message  and  indicate  the  requested  datafile  was  not  found. 


*/ 

else 

{  badfile  =  TRUE; 

create_message (  menu,  errorjnesg,  XmDIALOG_ERROR) ; 
}  /*  end  readcardsO  */ 


/*********************************************************************** 

*  VOID  READOUTPUT 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  readoutput 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent :  readcards 

*<Description> 

*  Reads  the  output  file  information. 

*<Called  routines> 

*  None 


*<Parameters> 

*  Formal  declaration: 

*  void  readoutput (  FILE  *fp) 

*  Input : 

*  *fp  -  the  datafile  pointer 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 


*********************************************************************** 

*/ 

void  readoutput (FILE  *fp) 

static  float  minval  =  1.0e-10; 

float  dv_dum; 

int  i ,  j ,  k ,  m ,  n ; 

float  out_m [MAXXYZ+1] ,  vdum,  dum; 


/* 
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* 

* 


-  Determine  the  number  and  values  of  the  wavenumbers . 


dv  dum  =  (wavn_v2  -  wavn_vl)  /  wavn_dv; 

for  (out  nwave=0,  vdum=wavn_vl ;  vdum<wavn_v2 ;  vdum+=dv_dum, 
out”nwave++) 

out  waveno [out  nwave]  =  vdum; 


*  Referencing  the  VIEW  program  subroutine  RJOB,  get  the  X,  Y,  and 

*  Z  BLIRB  main  region  grid  points  and  calculate  the  flux  grid 
*'  points  from  them. 


fscanf (fp,  " %d%d%d" ,  &out_imx[0] #  &out_imx[l] ,  &out_imx[2] ) ; 

if (out_imx [0]  >  MAXMX)  x 

{  printf ( "  The  X  dimension  of  the  flux  variable,  [out_flux] ,  is  od\n  , 

MAXMX)  ;  .  _  i  v 

printf ("  while  the  current  datafile  requires  %d\n" ,  out_imx[0J); 

printf ("  Please  increase  the  value  of  [MAXMX]  in  [visualO.h]  and") ; 
printf ("  recompile  this  program. \n\n" ) ; 
printf {"  Program  Aborting! \n") ; 
exit (0) ; 

} 

if (out_imx [1]  >  MAXMY) 

{  printf ("  The  Y  dimension  of  the  flux  variable,  [out_flux] ,  is  %d\nn, 

MAXMY) ;  v 

printf ("  while  the  current  datafile  requires  %d\n" ,  out_imx[lj); 

printf ("  Please  increase  the  value  of  [MAXMY]  in  [visualO.h]  and"); 
printf ("  recompile  this  program. \n\n" ) ; 
printf ("  Program  Aborting ! \n" ) ; 
exit (0) ; 

} 

if  (out_imx  [2]  >  MAXMZ)  ..  „ 

{  printf ("  The  Z  dimension  of  the  flux  variable,  [out_flux] ,  is  %d\n  , 

MAXMZ) ;  . 

printf ("  while  the  current  datafile  requires  %d\n",  out_imx[2]); 

printf ("  Please  increase  the  value  of  [MAXMZ]  in  [visualO.h]  and"); 
printf ("  recompile  this  program. \n\n" ) ; 
printf ("  Program  Aborting! \n") ; 
exit (0) ; 

} 

for  ( i = 0 ;  i<3 ;  i++) 

{  if (out_imx [i]  >  0) 

{  for  (j  =  0;  j<=out_imx [i] ;  j++) 
fscanf (fp,  "%12e",  &out_m[j]); 
for  (j  =  0;  j<out_imx[i] ;  j++) 
out_m0 [i] [j]  =  0.5  *  (out_m [ j ] 


/*  Read  X, Y, Z  grid  points  */ 
+  out_m[j+l]); 


*  -  Referencing  the  VIEW  program  subroutine  RJOB,  get  the  surface 

*  albedo  indices  at  each  (X,Y)  grid  point  (ISURF) . 

*  _ 

*/ 

if (out_imx [0]  >  0  &&  out_imx [1]  >  0) 

for  (i  =  0;  i<out_imx [1] ;  i++) 
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for  (j  =  0;  j<out_imx[0] ;  j++) 
fscanf(fp,  "%12e"/  &dum) ; 

/* - - - - : - - ; . : 

*  -  Referencing  the  VIEW  program  subroutine  RJOB,  get  the  region 

*  material  indices  at  each  (X,Y,Z)  grid  point  (IVOLM) . 

*  _ 

*/ 

if (out_imx [0]  >  0  &&  out_imx[l]  >  0  &&  out_imx[2]  >  0) 

for  (i  =  0;  i<out_imx[2] ;  i++) 
for  (j  =  0;  j<out_imx[l] ;  j++) 
for  (k  =  0;  k<out_imx [0] ;  k++) 
fscanf (fp,  "%12e" ,  &dum) ; 

/* - - - - - - - - 

*  -  Referencing  the  VIEW  program  subroutine  RFLX,  get  the  LOWTRAN 

*  molecular  transmission  (TRLW) . 

*  - - - 

*/ 

for  (m=0;  m<out_nwave;  m++) 

{  for  ( j  =  0 ;  j  <  =NA ;  j++) 

fscanf(fp,  "%12e",  &dum) ; 


*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the  surface 

*  albedos  (SALB) . 

*  - 

*/ 

for  ( j  =  0 ;  j<=albd;  j++) 
fscanf(fp,  "%12en/  &dum) ; 

/* - - - 7 - 

*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the 

*  extinction  coefficients  (REXT) . 

*  - - - 

*/ 

for  ( j  =r0  ;  j  <ITN1 ;  j++) 

fscanf (fp,  "%12eM ,  &dum) ; 

/* - - - 

*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the 

*  scattering  coefficients  (RSCT) . 

*  _ 

*/ 

for  ( j  =  0 ;  jcITNl;  j++) 

fscanf (fp,  "%12e" ,  &dum) ; 

/* - 

*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the 

*  "unknown"  coefficients  (FDLT) . 

*  _ _ _ 

*/ 

for  ( j  =  0 ;  jcITNl;  j++)  — 

fscanf (fp,  "%12e",  &dum) ; 

/* - - - 

*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the  phase 

*  function  angles  (AGL) . 

*  - 

*/ 

for  ( j  =0 ;  j  <ITN1 ;  j++) 
for  (i=0;  i<4;  i++) 
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fscanf(fp,  "%12e",  &dum) ; 


/* - 

*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the  phase 

*  functions  for  different  materials  (PHF) . 

*  _ _ _ _ 

*/ 

for  ( j  =  0 ;  jcITNl;  j++) 
for  ( i = 0  ;  i<4 ;  i++) 

fscanf(fp/  "%12e",  &dum) ; 


/* - 

*  -  Referencing  the  VIEW  program  subroutine  CLOUDR,  get  the 

*  Legendre  coefficients  (RLEG) . 

•k _ _ _  — _ _ _ — - — - - - —  —  —  —  — - - 

*/ 

for  ( j  =0 ;  jcITNl;  j++) 

for  (i=0;  i<= (int) domd_isc ;  i++) 
fscanf(fp,  ,,%12e,,/  &dum)  ; 


/* _ 

*  -  Initialize  the  "zero  flux"  flags,  minimum  and  maximum  values 

*  of  both  the  flux  values  and  the  log  flux  values. 

*  - 

*/ 

for  ( j  =  0 ;  j  < 1 0  ;  j++) 

{  flux_zero[j]  [m]  =  FALSE; 
mini_flux[j] [m]  =  1.0e+20; 
maxi_flux[j]  [m]  =  0.0; 
minil_f lux [ j ] [m]  =  1.0e+20; 
maxil_f  lux  [  j  ]  [m]  =  -1.0e20; 


/* - - - 

*  -  Referencing  the  VIEW  program  subroutine  RFLX,  get  the  direct 

*  solar  flux,  reflected  solar  flux,  and  8  diffuse  flux  values  at 

*  each  (X, Y, Z)  flux  grid  point.  Then,  determine  the  minimums  and 

*  maximums  of  the  flux  values . 

*  _ 

*/ 

for  (n=0;  n<10;  n++) 

for  (i=0 ;  i<out_imx [2] ;  i++) 
for  ( j  =0 ;  j <out_imx [1]  ;  j++) 
for  (k=0 ;  k<out_imx [0] ;  k++) 

{  fscanf  (fp,  "%12e",  &out_f  lux  [n]  [ m ]  [k]  [j]  [i]  )  ; 

if ( (out_f lux [n]  fm] [k] [j] [i]  >  -minval)  && 

(out_flux[n]  tm]  [k]  [j]  [i]  <=  0.0)) 
f lux_zero [n] [m]  =  TRUE; 
if (out_flux  [n]  [m]  [k]  [j]  [  i]  >  0.0) 

{  if (out_f lux [n] [m] [k] [j] [i]  <  minval) 
out  flux[n]  [m]  [k]  [j]  [i]  =  minval; 

} 

else  if (out_f lux [n] [m] [k] [j] [i]  <  0.0) 
out_flux[n]  [m]  [k]  [j]  [i]  =  minval; 

if (out_flux [n] [m] [k] [j] [i]  <  mini_f lux [n] [m] ) 
mini_fiux[n]  [m]  =  out_flux[n]  [m]  [k]  [j]  [i]  ; 
if  (out_f lux [n]  [m]  [k]  [j]  [i]  >  maxi_flux[n]  [m]  ) 
maxi  flux[n]  [m]  =  out  flux[n]  [m]  [k]  [j]  [i]  ; 

} 
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*  -  Convert  the  flux  values  to  log  flux  provided  there  are  no  zero 

*  or  negative  values  of  flux.  Then,  determine  the  minimums  and 

*  maximums  of  the  log  flux  values. 

*  - 

*/ 

for  (n=0 ;  n<10;  n++) 

{  if ( I f lux_zero [n] [m] ) 

for  ( j  =  0 ;  j <out_imx [0]  ;  j++) 
for  ( i  =  0 ;  i<out_imx [1]  ;  i++) 
for  (k=0 ;  k<out_imx [2] ;  k++) 

{  out_flux[n]  [m]  [j]  [i]  [k]  = 

(float)  loglO ( (double)  out_flux[n] [m] [j] [i] [k] ) ; 
if (out_f lux [n] [m] [j] [i] [k]  <  minil_f lux [n] [m] ) 
minil_f lux [n]  [m]  =  out_f lux [n]  [m]  [j]  [i]  [k] ; 
if  (out_flux  [n]  [m]  [j]  [i]  [k]  >  maxil__f  lux  [n]  [m]  ) 

maxil  flux  [n]  [m]  =  out_flux[n]  [m]  [j]  [i]  [k]  ; 


}  /*  end  readoutputO  */ 


VOID  CHECKINPUTS 


<Begin> 

ddentif  ication> 


Name :  checkinputs 

Type :  C  void 

Filename :  visual . c 

Parent :  readcards 


<Description> 

Checks  for  the  presence  of  required  input  cards. 

cCalled  routines> 

None 

<Parameters> 

Formal  declaration: 

void  checkinputs (  void) 

Input : 

None 
Output : 

None 


<History> 

09/12/94 


<End> 


AMSRL-BE-S  (505)  678-1570  Elton  P. 
Developed  the  original  source  code. 


Avara 


******* 


*/ 

void  checkinputs (void) 

{ 

int  i,  j,  k; 

Boolean  flag; 


if (mdll  <  0) 

{  printf(M  MDL1  input  card  was  not  found. \nu ) ; 
printf ( "  Program  Aborting ! \n" ) ; 
exit (0) ; 

} 
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if (mdl2  <  0) 

{  printf(n  MDL2  input  card  was  not  found. \n"); 
printf ( n  Program  Aborting ! \n" ) ; 
exit (0) ; 

} 

if ( (int) mdll_model  ==  7  &&  mdl3  <  0) 

{  printf ("  MDL3  input  card  was  not  found. \n"); 
printf ("  Program  Aborting! \n" ) ; 
exit (0) ; 

} 

if (area  <  0) 

{  printf ( "  AREA  input  cards  were  not  found. \n"); 
printf ("  Program  Aborting ! \n" ) ; 
exit (0) ; 

} 

if (regn  <  0) 

{  printf ("  REGN  input  cards  were  not  found.\n"); 
printf("  Program  Aborting ! \n" ) ; 
exit (0) ; 

} 

if (mes [0]  <  0) 

{  printf ("  MESX  input  cards  were  not  found. \n" ) ; 
printf ("  Program  Aborting ! \n" ) ,* 
exit (0) ; 

} 

if (mes [1]  <  0) 

{  printf ("  MESY  input  cards  were  not  found. \n" ); 
printf ( "  Program  Aborting ! \n" ) ; 
exit (0) ; 

} 

if (mes  [2]  <  0) 

{  printf ("  MESZ  input  cards  were  not  found. \n")  ; 
printf ( "  Program  Aborting !\n") ; 
exit (0) ; 

} 

if  (albd  <  0  ScSc  md!2_ialb  ==  -1.0) 

{  printf ("  ALBD  input  cards  were  not  found. \nn); 
printf ("  Program  Aborting ! \nM ) ; 
exit (0) ; 

} 

if (mtrl  <  0  &&  clds_icld  ==  2.0) 

{  printf ("  MTRL  input  cards  were  not  found. \nM); 
printf (”  Program  Aborting! \nM ) ; 
exit  (0)  ; 

} 

if (elds  <  0) 

{  printf ("  CLDS  input  card  was  not  found. \nn); 
printf ( "  Program  Aborting  I \nM ) ; 
exit (0) ; 

} 

if (sun  <  0) 

{  printf  ("  SUN  input  card  was  not  found.  \nn); 
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} 


printf ( " 
exit (0) ; 


Program  Aborting! \n" ) ; 


if (f lar  >=  0) 

{  if(flen  ! =  flar) 

{  printf (n  FLAR  and  FLEN  input  cards  did  not  match. \n") ; 
printf ( "  Program  Aborting ! \n" ) ; 
exit (0) ; 

} 

else 

{  for  (i  =  0;  i  <=  flar;  i++) 

{  flag  =  FALSE; 

for  (j  =  0;  j  <=  flen;  j++) 

if (flar_idflr [i]  ==  f len_idf lr [ j ] ) 

{  flar_qflar [i]  =  f len_qf lar [ j ] ; 
f lar_tf lar [i]  =  f len_tf lar [ j ] ; 
flag  =  TRUE; 


j.  V  ;  a.  -Lay  i 

{  printf (n  No  FLEN  IDFLR  matches  the  FLAR  IDFLR  (%d) . \n" , 
flar_idf lr [i]  ) ; 

printf ( "  Program  Aborting ! \n" ) ; 
exit (0) ; 


for  (i  =  0;  i  <=  flar;  i++) 
if (flar_itflr [i]  ==  2) 

{  if (f lup  <  0) 

{  printf ("  FLAR  ITFLR  =  2  and  no  FLUP  cards  are  present . \nM ) ; 
printf ( "  Program  Aborting ! \n" ) ; 
exit (0) ; 

} 

else 

{  flag  =  FALSE; 

for  (j  =0;  j  <=  flup;  j++) 

if (flar_idflr [i]  ==  flup_idflr [j] ) 

{  for  (k  =  0;  k  <  4;  k++) 

f lar_f rrfup [i] [k]  =  flup_frrfup [j] [k] ; 
flag  =  TRUE; 

} 

if ( ! flag) 

{  printf ("  No  FLUP  IDFLR  matches  the  FLAR  IDFLR  (%d) . \n" , 
(int) flar_idflr [i] ) ; 
printf ("  Program  Aborting! \n") ; 
exit (0) ; 


if (f ldn  <  0) 

{  printf ("  FLAR  ITFLR  =  2  and  no  FLDN  cards  are  present . \n" ) ; 
printf ("  Program  Aborting! \n") ; 
exit  (0)  ; 

} 

else 

{  flag  =  FALSE; 

for  (j  =0;  j  <=  fldn;  j++) 

if (f lar_idflr [i]  ==  fldn_idflr [j] ) 

{  for  (k  =  0;  k  <  4;  k++) 

f lar_frrfdn [i] [k]  =  fldn_frrfdn[j] [k] ; 
flag  =  TRUE; 
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} 


} 

if ( ! flag) 

{  printf ( "  No  FLDN  IDFLR  matches  the  FLAR  IDFLR 
(int ) f lar_idf lr [i]  )  ; 
printf ("  Program  Aborting ! \n" ) ; 
exit  (0)  ; 


( %d)  . \n"  , 


if (srch  ==  0) 

{  if (sren  ! =  0) 

{  printf (M  SRCH  card  found  and  SREN  card  not  found. \n") ; 
printf ( "  Program  Aborting ! \n" ) ; 
exit (0) ; 


} 

else 

{  srch_psrch  =  sren_j>srch; 
srch__tmsrch  =  sren_tmsrch; 
srch  sdiam  =  sren  sdiam; 


} 


} 


if (wavn  <  0) 

{  printf ("  WAVN  input  card  was  not  found. \n" ); 
printf ("  Program  Aborting ! \n" ) ; 
exit (0) ; 

}  /*  end  checkinputs ()  */ 


/*********************************************************************** 

*  VOID  SET_ALBEDO 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  set_albedo 

*  Type :  C  void 

*  Filename:  visual . c 

*  Parent:  getdata,  area_delCB,  cancelaCB, 

*  cancelbCB,  cancelbbCB 

*<Description> 

*  Sets  the  albedo  values  in  the  appropriate  array. 

*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 

*<Parameters> 

*  Formal  declaration: 

*  void  set_albedo (  void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 
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void  set_albedo (void) 
static  char  *msg[] 


""  }  ; 


int  1,3; 


for  ( j=0 ;  j  <=  area;  j++) 

{  if (area_iamtl [ j ]  >=  0) 

{  switch  ( (int)  md!2_ialb) 
{  case  -1  : 


Get  the  wave  independent  user-defined  albedo  values. 


spect_albedo  =  FALSE; 

if (area_iamtl [ j]  ==  0.0) 

area_iamt[j]  =  background_albedo ; 
else 

{  if (albd  >=  0) 

{  for  ( i = 0 ;  i  <=  albd;  i++) 

if (area_iamtl [ j ]  ==  albd_lalb [i] ) 

{  area_iamt[j]  =  albd_falb [i] ; 

if (area_iamt [ j ]  >1.0) 

{printfC  IAMTL (%d)  =  %f\n",  j+1,  area_iamt  [ j )  )  ; 
printfC  IAMTL  out  of  range  (0.0  -  1.0).\n"); 
printfC  Defaulting  to  Background  Albedo. \n\n") ; 

sprintf (msg[0] , " IAMTL (%d)  =  %f \n" , j+1, area_iamt [ j ] ) ; 
sprintf (msg[l] , "IAMTL  out  of  range  (0.0  -  1.0).\n"); 
sprintf (msg [2] , 

"Defaulting  to  Background  Albedo.  \n"),- 
create_message (  menu,  msg,  XmDI ALOG_ERROR ) ; 
area_iamt[j]  =  background_albedo ; 


eise 

{  printfC  I  ALB  on  the  MDL2  card  =  -1.0\n") ; 
printfC  But,  no  ALBD  cards  were  found. \n"); 
printfC  Defaulting  to  Background  Albedo.\n\n"); 

sprintf (msg [0] , "IALB  on  the  MDL2  card  =  -1.0\n"); 
sprintf (msg [1] , "But,  no  ALBD  cards  were  found.\n"); 
sprintf (msg [2] , "Defaulting  to  Background  Albedo.\n"); 
create_message (  menu,  msg,  XmDIALOG_ERROR) ; 
area  iamt[j]  =  background_albedo ; 

}  } 

break ; 
case  0  : 

Get  the  wave  independent  tabulated  broadband  albedo  values . 


spect_albedo  =  FALSE; 
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if (area_iamtl [j]  >=  0.0  &&  area_iamtl [ j ]  <=  55.0) 
area_iamt [j]  =  broad_albedo [ (int)  area_iamtl [j] ] ; 
else 

{  printfC  IAMTL  ( %d)  is  out  of  range  (0.0  -  55.0)  \n" ,  j+1); 
printfC  Defaulting  to  Background  Albedo . \n\n" ) ; 

sprint f (msg [ 0 ] , " IAMTL ( %d)  is  out  of  range  (0.0  -  55.0)\n", 

j+1); 

sprintf (msg [1] , "Defaulting  to  Background  Albedo. \n" ); 
sprint f (msg [2],"") ; 

create_message (  menu,  msg,  XmDIALOG_ERROR) ; 
area_jlamt  [j]  =  background_albedo ,* 

break; 

case  1  : 

/* - 

*  -  Get  the  spectral  albedo  values  corresponding  to  8.0  micrometers. 

*  _ 

*/ 

if (area_iamtl  [j]  >=  0.0  &&  area_iamtl [ j ]  <=  6.0) 

area_iamt[j]  =  spectral_albedo  [7]  [  (int )  area__iamtl  [ j ]  ]  ; 
else 

{  printfC  IAMTL  (%d)  is  out  of  range  (0.0  -  6.0)\n" ,  j+1); 
printfC  Defaulting  to  Background  Albedo . \n\n" ) ; 

sprintf (msg [0] , "IAMTL (%d)  is  out  of  range  (0.0  -  6.0) \nM, 
j+1)  ; 

sprintf (msg [1] , "Defaulting  to  Background  Albedo. \n"); 
sprintf (msg [2] , n " ) ; 

create_message (  menu,  msg,  XmDIALOG_ERROR) ; 

^  area_iamt [ j ]  =  background_albedo ; 

break ; 

default  : 

printfC  The  value  of  I  ALB  on  card  MDL2  =  %f\n" ,  mdl2_ialb)  ; 
printf ( H  Program  Aborting! \n") ; 
exit (0) ; 


/* - 

*  -  Check  the  albedo  values  to  make  sure  they  are  between  0  and  1 . 

*  If  not,  default  to  the  background  albedo  value. 

*  _ _ _  _ 

*/ 

if  (area__iamt  [ j ]  <  0.0  ||  area__iamt  [ j ]  >  1.0) 

{  printfC  IAMTL  (%d)  =  %f  which  is  out  of  range  (  >=  0.0).  \n", 
j  +1 ,  area_iamt [ j ] ) ; 

printfC  Defaulting  to  Background  Albedo.\n\n"); 

sprintf (msg [0] , "IAMTL (%d)  =  %f  and  is  out  of  range  (  >=  0.0). \n", 
j  +1 ,  area_iamt [ j ] ) ; 

sprintf (msg [1] , "Defaulting  to  Background  Albedo. \n" ); 
sprintf (msg [2] , " " ) ; 

create_message {  menu,  msg,  XmDIAL0G_ERR0R) ; 
area_iamt [ j ]  =  background_albedo ; 


}  /*  end  set_albedo()  */ 
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/ *  VOID  SET_AER0S0L  ****** 


*<Begin> 

*<Identif ication>  Name :  set_aerosol 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent:  getdata,  regn_delCB/  cancelmCB 

*<Description> 

*  Sets  the  aerosol  material  values  in  the  appropriate  array. 
*<Called  routines> 

*  create  message  -  draws  a  message  in  a  dialog  message  box 


*  Parameters  > 

*  Formal  declaration: 

*  void  set_aerosol (  void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End>  ************* 


*/ 

void  set_aerosol (void) 
static  char  *msg[]  =  { 

ii 

"Defaulting  to  Background  Aerosol . \n" , 

} ; 

int  i ,  j  ; 

for  (j=0;  j  <=  regn;  j++) 

{  if  (regnjlzmtl  [j]  <  0.0  ]|  regn_izmtl [ j ]  >  mtrl+1) 

- - 

*  -  For  each  BLIRB  aerosol  region,  check  the  material  index  to  make 

*  sure  it  is  within  range.  If  not,  set  the  material  to  the 

*  background  aerosol  material . 

*  _ 


{  print f("  IZMTL ( %d)  =  %f  which  is  out  of  range. \n",  j+1, 
regn_izmtl [j ] ) ; 

printf ( "  Defaulting  to  Background  Aerosol . \n\n" ) ; 
sprintf (msg [0] , "IZMTL (%d)  =  % f  which  is  out  of  range. \n" ,  j+1, 
regn_izmtl [ j  3 ) ; 

create_message (  menu,  msg,  XmDIALOG_ERROR) ; 
regn_izmt [ j ]  =  background_aerosol ; 


*  -  If  the  index  is  within  range,  get  the  aerosol  material  type. 


else  if (regn_izmtl [j]  !=  0.0) 

regn_izmt [j]  =  mtrl_lmtl  [  (int) regn_izmtl [ j ]  -  1]  [0]  ; 

else 

regn_izmt[j]  =  3; 
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} 


/*  end  set_aerosol ()  */ 


} 


*  VOID  SET_MTRL_COLOR 

*********************************************************************** 


*<Begin> 

*<Identif ication>  Name 

*  Type 

*  Filename 

*  Parent 

*'__==_=== _ _ _ _ _ 


set_mtrl_color 
C  void 
visual . c 
getdata 


*<Description> 

*  Sets  the  RGB  colors  for  the  aerosol  material  types . 

*<Called  routines> 

*  None  ------ 

*<Parameters> 

*  Formal  declaration: 

*  void  set_mtrl_color (  void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  set  mtrl  color (void) 

{  "  ‘ 

int  i ,  j  ; 


/* - 

*  -  Initialize  colors  to  black. 

*  _ 

*/ 

for  (i=0;  i<100 ;  i++) 
for  ( j  =  0 ;  j  <3 ;  j++) 
mtrl_color [i] [j]  =  0; 


/* - 

*  -  OTHER  Data  Base  colors : 


*/ 

for  ( j  =0 ;  j  <2 ;  j+  +  ) 


mtrl_color  [0]  [j] 

=  42; 

/*  Dirt:  Brown 

*/ 

mtrl_color  [1]  [0]  = 

120; 

for  ( j  =1 ;  j <3 ;  j++) 
mtrl_color  [1]  [j] 

=  255; 

/*  Deimendjian:  Cyan 

*/ 

mtrl_color  [2]  [0]  = 
for  ( j  =1 ;  j  <3 ;  j++) 
mtrl_color [2] [j] 

160; 

=  255; 

/*  LOWTRAN  Cumulus :  Cyan 

*/ 

/* - - - 

*  -  LOWTRAN  Data  Base  colors : 
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*  / 

for  (i=4 ;  i<25 ;  i++)  /*  Aerosols:  Shades  of  Blue  */ 

{  mtrl_color [i] [1]  =80; 

mtrl  color  [i]  [2]  =  111  +  6*i; 

} 


mtrl  color [25] [0] 

= 

128; 

/* 

Aged  Volcanic:  Gold 

*/ 

mtrl_color [25]  [1] 

= 

128; 

mtrl__color  [26]  [0] 

— 

188; 

/* 

Fresh  Volcanic:  Yellow 

*/ 

mtrl_color [26] [1] 

= 

188; 

mtrl  color  [27]  [0] 

= 

255; 

/* 

Radiative  Fog:  White 

*/ 

mtrl_color [27]  [1] 

= 

255; 

mtrl_color [27]  [2] 

= 

180; 

mtrl_color [28] [0] 

= 

255; 

/* 

Advective  Fog:  Beige 

*/ 

mtrl_color [28]  [1] 

= 

255; 

mtrl__color  [28]  [2] 

= 

150; 

mtrl_color [29]  [0] 

= 

128; 

/* 

Meteoric  Dust :  Gray 

*/ 

mtrl_color [29]  [1] 

= 

128; 

mtrl_color [29] [2] 

- 

128; 

for  (i=30 ;  i<37; 

i++) 

/* 

Clouds :  Shades  of  Cyan 

*/ 

for  ( j  =1 ;  j  <3 ; 

j++) 

mtrl  color  [i]  [j] 

=  255; 

mtrl_color [30] [0] 

= 

160; 

/*  Cumulus 

*/ 

mtrl_color [31] [0] 

= 

120; 

/*  Altostratus 

*/ 

mtrl_color [32] [0] 

80; 

/*  Stratus 

*/ 

mtrl_color [33] [0] 

— 

40; 

/*  Stratus/Strato 

*/ 

mtrl_color [34]  [0] 

= 

0; 

/*  Nimbostratus 

*/ 

mtrl_color [35]  [0] 

= 

180; 

/*  Cirrus 

*/ 

mtrl_color [36] [0] 

= 

200; 

/*  Subvisual  Cirrus 

*/ 

for  (i=37 ;  i<41; 

i++) 

/* 

Desert:  Shades  of  Brown 

*/ 

for  ( j  =0 ;  j  <2 ;  j++) 

mtrl_color [i] [j]  =  (452-10*i) ; 


/* - 

*  -  EOSAEL  Data  Base  colors: 


for  (i=44 ;  i<68;  i++)  /*  Aerosols:  Shades  of  Blue  */ 

{  mtrl_color [i] [1]  =  80; 

mtrl  color  [i]  [2]  =  6*i  -  147; 

} 

for  (i=68 ;  i<70;  i++)  /*  Fogs:  Shades  of  Beige  */ 

{  for  ( j  =0 ;  j <2 ;  j++) 

mtrl_color [i] [j]  =  255; 
mtrl  color [25]  [2]  =  30*i  -  1890; 

} 

for  (i=70 ;  i<73 ;  i++)  /*  Rain:  Shades  of  Aqua  */ 

{  for  ( j=l;  j <3 ;  j++) 

mtrl_color [i] [j]  =  3040  -  40*i; 
mtrl  color [i] [0]  =  50; 

} 

for  (i=0 ;  i<3;  i++)  /*  Snow:  White  */ 
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mtrl_color [73] [i]  =  255; 


for  ( j  =8  3 ;  j<85;  j++) 
for  ( i  =  1 ;  i<3 ;  i++) 


mtrl_color [ j ] [i]  =  255; 

/* 

Clouds :  Shades  of  Cyan 

*/ 

mtrl__color  [83]  [0]  =  160; 

/* 

Fairweather  Cumulus 

*/ 

mtrl_color [84] [0]  =  0; 

/* 

Cumulus  Congestus 

*/ 

for  ( i  =  9  3 ;  i<95;  i++) 

/* 

Dust :  Shades  of  Brown 

*/ 

for  ( j  =  0 ;  j <2 ;  j++) 

mtrl_color [i] [j]  =  2872  -  30*i; 

mtrl_color [95] [0]  =  100; 

/* 

HE  Dust :  Brown 

*/ 

mtrl_color [95] [1]  =  50; 

for  ( i  =  9 6 ;  i < 9 9 ;  i++) 

/* 

WP  Smokes :  Shades  Pink 

*/ 

{  mtrl_color [i] [0]  =  255; 


mtrl_color [i] [1]  =  128; 
mtrl  color [i] [2]  =  5055  -  50*i; 
}  “ 


for  ( i  =  0 ;  i<3;  i++) 

mtrl_color [99]  [i]  =  75; 

/* 

Fog  Oil : 

Gray 

*/ 

for  (i=0; 

i<2 ;  i++) 

/* 

HC  Smoke 

:  Yellow 

*/ 

mtrl_color [100] [i]  =  255; 


mtl_color_set  =  TRUE; 

}  /*  end  set_mtrl_color ()  */ 


/*********************************************************************** 

*  VOID  SET_AXIS_PTS 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  set_axis_pts 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent:  getdata,  regnCB,  cancelmeCB 

*  <Description> 

*  Sets  up  the  grid  points  for  the  X,  Y,  and  Z  axes. 

*<Called  routines> 

*  reset  -  resets  the  "mov"  structure  to  its  initial 

*  values . 


*<Parameters> 

*  Formal  declaration: 

*  void  set_axis_pts (  void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  set_axis_pts (void) 
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{ 

int  i,  j,  k; 
float  low,  del; 

for  (k=0;  k<3;  k++) 

/* - - - - - - - 

*  -  For  each  of  the  3  axes,  determine  the  lowest  region  grid  point 

*  value . 


*/ 

{  low  =  regn_rl [k] [0] ; 
for  (i=0;  i<=  regn;  i++) 
if (low  >  regn_rl [k]  [i] ) 
low  =  regn_rl [k]  [i]  ; 


*  -  Determine  the  number  of  minor  grid  points  and  the  minor  grid 

*  point  values . 


num_grid_pts [k]  =  0 ; 

for  (i=0 ;  i  <=  mes [k] ;  i++) 

{  del  =  (mes_ms [k] [i]  -  low)  /  mes_mh[k] [i] ; 

for  (axis_pts  [k]  [num_grid_jpts  [k]  ]  =  low,  j=0; 

j < ( int )  mes_mh[k]  [i] ;  num_grid_pts [k] ++, j++) 
axis  pts  [k]  [num  grid  pts  [k] +1]  =  axis_pts  [k]  [num_grid_pts  [k] ]  + 

del  ; 

low  =  mes  ms [k] [i] ; 

} 


*  -  Determine  the  position  of  the  center  of  the  BLIRB  main  region 

*  and  the  distance  to  the  plotted  Sun  along  this  axis. 

*  - 

*/ 

org_center  [k]  =0.5*  org__magf actor  *  (mes_ms  [k]  [mes  [k]  ]  - 

axis _pts [k] [0] )  +  axis_pts [k] [0] ; 

sun  distance [k]  =  mes_ms [k] [mes [k] ]  +  1.0; 


*  -  Determine  the  number  of  major  grid  points  and  the  major  grid 

*  point  values . 

*  - 


*/ 


} 


num_grid_main_pts [k]  =  0; 

low  =  (int) axis_pts [k] [0]; 

i  =  mes_ms  [k]  [mes  [k]  ]  -  axisjpts  [k]  [0]  ; 

for  (axis_main_jpts  [k]  [num_grid_main_j?ts  [k]  ]  =  low,  j=0; 
num_grid_main_pts [k] ++ ,  j  ++ ) 
axis_main_j)ts  [k]  [num_grid__main_pts  [k]  +1]  = 

axis_main_pts  [k]  [num_grid_main_jpts  [k]  ]  + 


j<i; 

1.0; 


*  -  If  this  is  the  first  datafile  to  be  processed,  set  the  "mov" 

*  structure  to  its  original  values. 

*  - 

*/ 

if (nofile) 

{  reset  (); 

nofile  =  FALSE; 

} 
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}  /*  end  set_axis_jpts  ()  */ 


/*********************************************************************** 

*  VOID  ORDER_MTRL 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  order_mtrl 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  getdata 


’  ,jescription> 

*  Arranges  the  MTRL  cards  to  correspond  to  the  REGN  cards  1  to  1 

*<Called  routines> 

*  none 

*<Parameters> 

*  Formal  declaration: 

*  void  order_mtrl (void) 

*  Input : 

*  None 

*  Output : 

*  None 


*=== ========= 

*<History> 

*  09/12/94 

* 


*<End> 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code . 


************************************************************  *********** 
*/ 

void  order  mtrl (void) 

{ 

int  n,  net,  i,  j; 

float  ent [MXMTR] [IRM] ,  mtl [MXMTR] [irm] ; 

Boolean  found; 


i 

{ 


i<=regn; 
-  1.0; 


f ( ! regn_order ) 
i f ( regn  >  - 1 ) 

{  for  (net  =  -1,  i=0; 

{  n  =  regn_izmtl [i] 
if (  n  ! =  i  ) 

{  if(  n  ==  -1  ) 

{  nct++; 

regn_izmtl [i] 
mtl  [0]  [net]  = 
ent [0] [net]  = 
for  (j  =  l;  j  < MXMTR ;  j++) 
{  mtl [j] [net]  =  3.0; 
ent [ j ] [net]  =  0.0; 


i++) 


=  net  +  1; 
background_aerosol ; 
0.0; 


else 

{  if (mtrl  >  -1) 

{  found  =  FALSE; 
if (mtrl  >=  n) 

{  nct++; 

regn_izmtl [i]  =  net  +  1; 
for  ( j  =  0 ;  j  < MXMTR ;  j+  +  ) 

{  mtl [ j ] [net]  =  mtrl_lmtl [n] [j]; 
cnt[j]  [net]  =  mtrl_wmtl  [n]  [j]  ; 
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} 

found  =  TRUE; 

} 

if ( I  found) 

{  print f  ( "regn  izmtl [%d]  =  %f  and  no  MTRL  cards  match\n" , 
i,  regn_izmtl [i] ) ; 
printf ( "Program  Aborting ! \n" ) ; 
exit (0) ; 


else 

{  printf (»regn_izmtl [%d]  =  %f  and  no  MTRL  cards  are"); 
printf ("  available\n" ,  i,  regn_izmtl [i] ) ; 
printf ( "Program  Aborting ! \n" ) ; 
exit (0) ; 


else 

{  found  =  FALSE; 
if (mtrl  >=  n) 

{  nct++; 

regn_izmtl [i]  =  net  +  1; 
for  ( j  =  0 ;  j  <MXMTR;  j++) 

{  mtl[j]  [net]  =  mtrl_lmtl[i]  [j]  ; 
ent  [ j ]  [net]  =  mtrl_wmtl[i]  [j]  ; 

} 

found  =  TRUE; 

} 

if (1  found) 

{  printf ( "regn_izmtl [%d]  =  %f  and  no  MTRL  cards  match\n", 
i,  regn_izmtl [i] ) ; 
printf ( "Program  Aborting! \n" ) ; 
exit (0) ; 


for  (mtrl  =  -1,  i=0;  i<=regn;  i++) 
{  for  ( j  =  0 ;  j  <MXMTR;  j  ++) 

{  mtrl_lmtl[i]  [j]  =  mtl[j]  [i]  ; 

mtrl  wmtl  [i]  [j]  =  cnt[j]  [i]  ; 

} 

mtrl++; 

} 


regn_order  =  TRUE; 


}  /*  end  order_mtrl  */ 

/*********************************************************************** 

*  VOID  ORDER_ALBD 
*********************************************************************** 
*<Begin> 

*<Identif  ication>  Name:  order__albd 

*  Type :  C  void 

*  Filename :  visual . c 

*  Parent :  getdata 

*<Description> 

*  Arranges  the  ALBD  cards  to  correspond  to  the  AREA  cards  1  to  1 . 
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*<Called  routines> 

*  none 

*<Parameters> 

*  Formal  declaration: 
void  order_albd (void) 

Input : 

None 
Output : 

None 


* 

* 

* 

* 

* 

*<History> 

*  09/12/94  AMSRL-BE -S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

************************************** ***************  ****************** 
*/ 

void  order  albd(void) 

{ 

int  net,  i,  j; 

float  ent [I AM] ,  mtl [IAM] ; 

Boolean  found; 

if ( ! area_order  &&  (mdl2_ialb  <  0)) 

{  if (area  >  -1) 

{  for  (net  =  -1,  i=0 ;  i<=area;  i++) 

{  if  (  area__iamtl  [i]  !=  (i  +  1)  ) 

{  if (  area_iamtl [i]  ==  0  ) 

{  nct++; 

cnt[nct]  =  i+1; 

mtl [net]  =  background_albedo ; 

else 

{  if (albd  >  -1) 

{  found  =  FALSE ; 

for  ( j  =  0 ;  j <=albd;  j++) 

{  if (albd_lalb[j]  ==  area_iamtl [i] ) 

{  nct++; 

ent [net]  =  i+1; 

mtl [net]  =  albd_f alb [ j ] ; 

found  =  TRUE; 

}  } 

if ( ! found) 

{  print f  ( uarea__iamtl  [%d]  =  %f  and  no  ALBD  cards  match\n"  , 
i,  area__iamtl  [i]  )  ; 
printf ( "Program  Aborting ! \n" ) ; 
exit (0) ; 

)> 

else 

{  printf ( "area_iamtl [%d]  =  %f  and  no  ALBD  cards  are") ; 
printf  ("  available\n" ,  i,  area_ji.amtl  [i]  )  ; 
printf ( "Program  Aborting ! \n" ) ; 
exit (0) ; 

/ 

else 

{  found  =  FALSE; 


492 


} 


} 


for  ( j  =  0 ;  j<=albd;  j++) 

{  if (albd_lalb [j]  ==  (i+1) ) 

{  nct++; 

cnt [net]  =  i+1; 

mtl [net]  =  albd_falb [ j ] ; 

found  =  TRUE; 

)’ 

if ( ! found) 

{  print f ( "area_iamtl [%d]  =  %f  and  no  ALBD  cards  match\n"f 
i,  area_iamtl [i] ) ; 
printf ( " Program  Aborting ! \n" ) ; 
exit (0) ; 

for  (albd  =  -1,  i=0;  i<=area;  i++) 

{  area_iamtl [i]  =  albd_lalb[i]  =  cnt [i] ; 
albd_falb[i]  =  mtl  [i] ; 
albd++ ; 

} 


area  order  =  TRUE; 

}  7*  end  order_albd  */ 

/*********************************************************************** 
*  VOID  BLIRB  INOUT 


t<Begin> 

r<  Identification 


Name : 
Type: 
Filename : 
Parent : 


blirb_inout 
C  void 
visual . c 

getdata,  checkf iletypeCB 


*********************************************************************** 
*< 

*< 

★ 

* 

★ 

*= 

*<.„. _ 

*  Decides  whether  a  BLIRB  innut  or  output  tile  was  selected.  If 

* 

*  = 

*< 

* 

*  = 

*< 

* 

* 

* 

* 

* 

* 

*  = 

*<. _ _ _ 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

* 

*= 

*<End> 

*********************************************************************** 


t<Description> 

Decides  whether  a  BLIRB  input  or  output  file  was  selected, 
neither,  an  error  flag  is  set. 

^Called  routines> 

None 

*<Parameters> 

Formal  declaration: 

void  blirb_inout(  void) 

Input : 

None 
Output : 

None 


,r<History> 

09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P. 

Developed  the  original  source  code. 


*/ 

void  blirb  inout (void) 

{ 

int  i  ; 
char  *ptr ; 
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/*  static  char  *exten  =  { " .Ba" };  */ 

static  char  *exten  =  {" .ia"}; 

ptr  =  file__name; 

/* - 

*  - Find  the  " . "  in  the  requested  datafile  name. 

*  _ 

*/ 

for  (i  =  0;  i  <  strlen (f ile_name) ;  i++,  ptr++) 

{  if  (ptr  [0]  ==  exten[0]) 

{  ptr++; 
break; 


/* - 

*  -  If  the  first  character  after  the  " . "  is  "i"  the  file  is  assumed 

*  to  be  a  BLIRB  input  file. 

*  _ 

*/ 

if  (ptr  [0]  ==  exten[l]) 

{  blirb_in  =  TRUE; 
badfile  =  FALSE; 


noflux  =  TRUE; 
for  ( i = 0 ;  i < 1 0 ;  i++) 
flux  flagti]  =  FALSE; 

} 

/* - - — - - 

*  -  If  the  first  character  after  the  " . "  is  "a"  the  file  is  assumed 

*  to  be  a  BLIRB  output  file. 

*  _ _ _ 

*/ 

else  if (ptr  [0]  ==  exten[2]) 

{  blirb_in  =  FALSE; 
badfile  =  FALSE; 

} 

/* - 

*  -  If  the  first  character  after  the  " . "  is  neither  an  "i"  nor  a 

*  "a",  the  file  is  assumed  to  be  unacceptable  as  a  datafile. 

*  _ 

*/ 

else 

badfile  =  TRUE; 

}  /*  end  blirb_inout  */ 


/*********************************************************************** 
*  VOID  WRITECARDS 

*********************************************************************** 


*<Begin> 

*<Identif ication>  Name : 

*  Type : 

*  Filename: 

*  Parent : 


writecards 
C  void 
visual . c 

savef ileCB,  getf ilenameCB 


*<Description> 

*  Writes  the  BLIRB  input  cards  to  a  file. 

*  =  =  =  =  —  —  —  “  —  —  =  =  =  =  —  —  —  —  —  —  —  —  —  —  “  =  =  —  —  —  —  —  —  —  =  —  —  —  —  = 


*<Called  routines> 

*  create_message  -  draws  a  message  in  a  dialog  message  box 

*  drawscene  -  Plots  the  3-D  BLIRB  grid  points,  albedo 
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*  areas,  aerosol  regions,  and  the  output 

*  flux. 


*<Parameters > 

*  Formal  declaration: 

*  void  writecards (  void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 


*/ 

void  writecards (void) 
char  card[RLEN] ; 

int  i,  j,  k,  dum,  m,  del[40],  delr[40],  wmtrl,  walbd; 

FILE  *fp ; 

float  dv_dum,  matter [IRM] [MXMTR] ,  weight [IRM] [MXMTR] ,  index [IAM], 
value [IAM] ; 

Boolean  flag; 

static  char  *error_mesg  []  =  { 

H  II 

/ 

"Error  in  opening  the  Savef ile . \n" , 

"Input  cards  not  Saved. \n", 

nn  }. 


/* - 

*  -  Delete  the  excess  "ALBD"  cards 

★  _ 

*/ 

walbd  =  albd; 
if (walbd  >=  0) 

{  for  (i=0 ;  i<=walbd;  i++) 

{  indexti]  =  albd_lalb [i] ; 
value [i]  =  albd_falb [i] ; 


k  =  0 ; 

if (walbd  >  0  &&  mdl2_ialb  <  0) 

{  for  (i=0;  i<walbd;  i++) 

{  for  (j=i+l;  j<=walbd;  j++) 

{  if (value [j]  ==  value [i]  ) 

{  area_iamtl t j]  =  index [j]  =  area_iamtl [i] ; 
del  [k]  =  j; 
k++; 


if (k  >  1) 

{  for  ( i  =  0 ;  i< (k-1)  ;  i++) 
{  flag  =  FALSE; 


for  ( j  =  0 ;  j  < (k-1)  ;  j++) 
{  if  (del[j+l]  >  del  [ j ]  ) 
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{  dum  =  del [ j  +1] / 
del  [j+1]  =  del  [j]  ; 
del[j]  =  dum; 
flag  =  TRUE; 


if (! flag) 
break; 


dum  =  0; 

delr [0]  =  del [0] ; 
if (k  >  1) 

{  for  (i=0;  i<(k-l);  i++) 

{  if (del [i+1]  ! =  del [i] ) 

{  dum++ ; 

delr [dum]  =  del  [i+1] ; 


if (dum  >  0) 
k  =  dum+1; 

} 

if (k  >  0) 

{  for  ( i  =  0 ;  i<k;  i++) 

{  for  ( j  —  0 ;  j<=walbd;  j++) 
{  if(i:.dex[j]  >  del  [i]  ) 

{  index [j] ; 

area_iamtl [ j ] - - ; 


for  (i=0 ;  i<k;  i++) 

{  if (delr [i]  ==  walbd) 
walbd-- ; 
else 

{  for  ( j  =delr [i]  ;  j<walbd;  j++) 
{  index[j]  =  index [ j +1]  ; 
value  [j]  =  value  [j+1]; 

walbd-- ; 


/* - 

*  -  Delete  the  excess  "MTRL"  cards 


*/ 

wmtrl  =  mtrl; 
if (wmtrl  >=  0) 

{  for  (i=0;  i<=wmtrl;  i++) 
for  ( j  =  0 ;  j  <MXMTR ;  j++) 

{  matter [i] [j]  =  mtrl_lmtl [i] [j] ; 
weight [i] [j]  =  mtrl_wmtl [i] [j] ; 
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k  =  0; 

if (wmtrl  >  0) 

{  for  (i=0 ;  i<wmtrl;  i++) 

{  flag  =  TRUE; 

for  (dum=0 ;  dum<MXMTR;  dum++) 

{  if (  matter [i] [dum]  !=  3.0  |j  weight [i] [dum]  !=  0.0  ) 
flag  =  FALSE; 

} 


if (flag) 

{  regn_izmtl [i]  =  0.0; 
delr[k]  =  i; 
k+  + ; 

} 

else 

{  for  (j=i+l;  j<=wmtrl;  j++) 

{  flag  =  TRUE; 

for  (dum=0;  dum<MXMTR;  dum++) 

{  if  (  (matter [j] [dum]  !=  matter [i] [dum])  j  | 
(weight [j] [dum]  !=  weight [i] [dum])  ) 
flag  =  FALSE; 

} 

if (flag) 

{  regn_izmtl [ j ]  =  regn_izmtl [i] ; 
delr [k]  =  j; 
k++; 


if (k  >  1) 

{  for  ( i = 0 ;  i< (k-1) ;  i++) 

{  flag  =  FALSE; 

for  ( j  =  0 ;  j < (k-1)  ;  j++) 

{  if(delr[j+l]  >  delr[j]) 
{  dum  =  delr [ j+1]  ; 
delr  [  j  -hi]  =  delr  [  j  3  ; 
delr[j]  =  dum; 
flag  =  TRUE; 


if (! flag) 
break ; 


dum  =  0 ; 

del  [0]  =  delr [0] ; 
if (k  >  1) 

{  for  (i=0 ;  i< (k-1) ;  i++) 

{  if (delr [i+1]  !=  delr[i]) 

{  dum++ ; 

del [dum]  =  delr [i+1]; 
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if (dum  >  0) 
k  =  dum+1; 

} 

if (k  >  0) 

{  for  ( i  =  0 ;  i<k;  i++) 

{  for  ( j  =  0 ;  j  <=regn;  j++) 

{  if (regn_izmtl [ j ]  >  del [i]  ) 
regn_izmtl [j]  --; 


for  ( i=0 ;  i<k;  i++) 

{  if (del [i]  ==  wmtrl) 
wmtrl- - ; 
else 

{  for  (j=del[i];  j<wmtrl;  j++) 

{  for  ( dum=  0 ;  dum<MXMTR ;  dum++) 

{  matter [j] [dum]  =  matter [j+1] [dum] ; 
weight [j] [dum]  =  weight [j+1] [dum] ; 


wmtrl-- ; 


/* - : - 

*  -  Open  the  requested  file  and  write  the  input  cards  to  it. 

*  _ 

*/ 

if  (  (fp  =  f open  ( filename,  "w"))  !=  NULL) 

{  if (  mdll  ==  0) 

{  sprintf (card,  " %s%10 . 4f %10 . 4f %10 . 4f %10 . 4f %10 . 4f \n" ,  "MDLl  " , 

mdll_iaersl,  mdll__model,  mdll_ivis,  mdll_iseasn, 
mdll_ivulcn)  ; 
fputs(card,  fp)  ; 


if (  mdl2  ==  0) 

{  sprintf (card,  "%s%10 . 4f %10 . 4f %10 . 4f %10 . 4f ' \n" ,  "MDL2 
mdl2_sn,  mdl2__tbound,  mdl2_ialb,  mdl2_ip)  ; 
f puts (card,  fp) ; 


if (  mdl3  ==  0) 

{  sprintf (card,  " %s%10 . 4f %10 . 4f %10 . 4f %10 . 4f %10 . 4f %10 . 4f \n" , 

"MDL3  ",  mdl3_t [0] ,  mdl3_t [1] ,  mdl3_t [2] ,  mdl3  t[3], 

mdl3_t [4]  ,  mdl3_t [5]  )  ; 
fputs(card,  fp) ; 


if (  area  >=  0) 

{  for  ( j  =  0 ;  j<=area;  j++) 

{  sprintf (card,  "%s%10 . 4f %10 . 4f %10 . 4f %10 . 4f %10 . 4f \n" , 

"AREA  " ,  area_alx [ j ] ,  area_ahx [ j ] ,  area_aly  [ j ] , 

area__ahy  [j]  ,  area_iamtl  [j]); 
f puts (card,  fp)  ; 
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if (  regn  >=  0) 

for  ( j  =  0 ;  j <=regn;  j++) 

{  regn_rlx[j]  =  regn_rl [0] [ j ] ; 
regn_rhx[j]  =  regn_rh[0]  [j]  ; 

regn_rly[j]  =  regn_rl  [1]  [ j ]  / 

regn_jrhy[j]  =  regn_rh[l]  [j]; 

regn_rlz[j]  =  regn_rl[2]  [j]  ; 

regn_rhz[j]  =  regn_rh[2]  [j]  ; 

sprint f (card,  "%s%10 . 4f %10 . 4f %10 . 4f %10 . 4f %10 . 4f %10 . 4f %10 . 4f \n" , 
"REGN  " ,  regn_rlx [  j  ]  ,  regn_rhx [  j  ]  ,  regn_rly [j] , 

regn_rhy [ j ] ,  regn_rlz [ j ] ,  regn_rhz [ j ] #  regn_izmtl [j]); 
f puts (card,  fp) ; 

} 


mesx  =  mes [0] ; 
if (  mesx  >=  0) 

for  ( j  =  0 ;  j  <=mesx;  j++) 

{  mesx_mhx[j]  =  mes_mh[0]  [j]  ; 
mesx_xms[j]  =  mes_ms  [0]  [j]  ; 

sprintf (card,  " %s%10 . 4f %10 . 4f \n" ,  "MESX  ",  mesx_mhx[j]/ 

mesx_xms [j] ) ; 
fputs(card,  fp) ; 

} 

mesy  =  mes [1] ; 
if (  mesy  >=  0) 

for  ( j  =  0 ;  j  <=mesy ;  j++) 

{  mesy_mhy[j]  =  mes__mh[l]  [j] / 
mesy_yms[j]  =  mes__ms  [1]  [j]  ; 

sprintf (card,  "%s%10 .4f%10 .4f\n" ,  "MESY  ",  mesy_mhy[j] , 

mesy_yms [j]); 
f puts (card,  fp) ; 

} 


mesz  =  mes [2] ; 
if (  mesz  >=  0) 

for  ( j  =  0 ;  j <=mesz ;  j++) 

{  mesz_mhz[j]  =  mes_mh[2]  [j]  ; 
mesz__zms[j]  =  mes_ms  [2]  [j]  ; 

sprintf (card,  "%s%10 . 4f %10 . 4f \n" ,  "MESZ  ",  mesz_mhz [ j ] , 

mesz_zms [ j] ) ; 
fputs(card,  fp) ; 

} 

if (  walbd  >=  0  &&  mdl2_ialb  <  0) 

{  for  ( j=0 ;  j<=albd;  j++) 

{  sprintf (card,  »%s%10 ,4f %10 . 4f \n" ,  "ALBD  ",  index!]], 

value [j] ) ; 
fputs(card,  fp) ; 


if (  wmtrl  >=  0) 

for  ( j  =0 ;  j<=wmtrl ;  j++) 

{  for (i=0 ;  i<MXMTR;  i++) 

{  matter [j] [i]  -=  3; 
if (matter [j] [i]  >  40) 
matter[j][i]  +=  60; 
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} 

sprint f (card, " %s%10 . 4f %10 . 4f%10 . 4f%10 . 4f%10 .4f%10 . 4f \n" , 

"MTRL  ",  matter [j]  [0] ,  weight [j ]  [0]  ,  matter [j ]  [1] , 

weight  [j]  [1]  /  matter  [j ]  [2]  ,  weight  [j]  [2]  )  ; 
fputs(card,  fp) ; 


if (  elds  ==  0) 

{  sprintf (card,  "%s%10 . 4f %10 . 4f %10 . 4f \nM ,  "CLDS  ",  clds_icld, 

clds_ibnd,  clds_wind) ; 
f puts (card,  fp) ; 


if (  domd  ==  0) 

{  sprintf (card,  "%s%10 . 4f %10 . 4f %10 . 4f %10 . 4f %10 . 4f \nM ,  MDOMD  ", 

domd_isc,  domd_iitl,  domd_epsi,  domd__idelta,  domd_npts); 
f puts (card,  fp)  ; 


if (  sun  ==  0) 

{  sprintf (card,  " %s%10 . 4f %10 . 4f %10 . 4f %10 . 4f %10 . 4f \n" ,  "SUN 

sun_thsun,  sun_jphsun,  sun_ifsun,  sun_isky,  sun_iftrn)  ; 
f puts (card,  fp)  ; 


if (  flar  >=  0) 

{  for  ( j  =  0 ;  j<=flar;  j++) 

{  sprintf (card,  " %s%10 . 4f %10 . 4f %10 . 4f %10 . 4f %10 .  4f \n" , 

"FLAR  ",  flar_idflr  [j]  ,  f  larjLtf  lr  ( j  ]  , 

f lar_xf lar [ j ] ,  f lar_yf lar [ j ] ,  f lar_zf lar [j]); 

f puts (card,  fp)  ; 

sprintf (card,  "%s%10 .4f %10 . lf%10 . If \n" , 

"FLEN  ",  flar^idflr [j] ,  f lar_gf lar [ j ] , 

f lar_tf lar [ j ] ) ; 

f puts (card,  fp); 

if (f lar_itf lr [ j ]  ==  2) 

{  sprintf (card,  "%s%10 . 4f %10 . 4f %10 . 4f %10 . 4f %10 . 4f \n" , 

"FLUP  ",  f lar_idflr [ j ] ,  f lar_f rrfup [ j ] [0] , 

f lar_f rrfup [ j ] [1] ,  f lar_f rrfup [ j ] [2] , 
flar_frrfup[j]  [3]  )  ; 
f puts (card,  fp) ; 

sprintf (card,  " %s%10 . 4f %10 . 4f %10 . 4f %10 . 4f %10 . 4f \n" , 

"FLDN  ",  flar_idflr [j] ,  f lar_f rrf dn [ j ] [0] , 

f lar_f rrf dn [ j ] [1] ,  f lar_f rrfdn [ j ] [2] , 
flar_frrfdn[j]  [3]  )  ; 
f puts (card,  fp) ; 


if (  srch  ==  0) 

{  sprintf (card,  " %s%10 . 4f %10 . 4f %10 . 4f %10 . 4f %10 . 4f \n" , 

"SRCH  ",  srch_xsrch,  srch_ysrch,  srch_zsrch, 

srch_thsrch,  srch_azsrch) ; 
f puts (card,  fp) ; 

sprintf (card,  "%s%10 . If %10 . If %10 . 4f \n" , 

"SREN  ",  srch_psrch,  srch_tmsrch,  srch_sdiam) ; 
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f puts (card,  fp)  ; 


} 

if (  wavn  ==  0) 

{  dv  dum  =  (wavn_v2  -  wavn_vl)  /  wavn  dv; 

sprintf (card,  "%s%10 . 3f%10 . 3f %10 . 3f\n" ,  ''WAVN  ",  wavn_vl, 

wavn_v2/  dv__dum)  ; 
f puts (card,  fp) ; 

} 

if (  asci  ==  0) 

{  sprintf (card,  "%s%10 . 4f \n" ,  "ASCI  ",  asci_irite); 

f puts (card,  fp) ; 

} 

if (  reel  ==  0) 

{  sprintf (card,  "%s%10 . 4f \n" ,  " RE CL  ",  recl_irpt) ; 

fputs (card,  fp) ; 

} 

sprint  f ( card ,  " %  s \n " ,  " DONE " ) ; 

fputs (card,  fp) ; 


*  -  When  finished  writing  all  the  data,  close  the  file. 

*  _ 


fclose (fp) ; 

} 


*  -  Error  occurred  when  opening  the  Savefile. 


*/ 

else 

{  printf ( "  Error  in  opening  the  Savef ile . \n" ) ; 
printf("  Input  cards  NOT  Saved. \nM); 
create  message (  menu,  error_mesg,  XmDIALOG_ERROR) ; 

} 


drawsceneO; 

}  /*  end  writecardsO  */ 

/************************** ************************************* ******** 

*  XMSTRING  XSTR2XMSTR 
*********************************************************************** 

*<Begin> 

*<Identification>  Name:  xstr2xmstr 

*  Type:  C  XmString 

*  Filename:  visual . c 

*  Parent:  create_message ,  create_messagef 

*<Description> 

*  Converts  arrays  of  string  to  an  array  of  compound  strings. 

*<Called  routines > 

*  None 

*<Parameters> 

*  Formal  declaration: 

*  XmString  xstr2xmstr (  char  *chararray[] ,  int  n) 

*  Input : 
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*chararray  [] 


* 

* 

* 

*  Output : 

*  None 
*1=  =  =  =  =  =  =  =  =  =  =  =  : 
*<History> 

*  09/12/94 

* 

*——=— 

*<End> 


-  pointer  to  char  array  containing  the 
message  to  be  displayed 

-  number  of  non -NULL  characters  in  string 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Adapted  the  original  SGI  graphics  course  source  code. 


*********************************************************************** 

*/ 

XmString  xstr2xmstr (char  *chararray [] ,  int  n) 

XmString  xmstr; 
int  i ; 


/* - 

*  -  If  the  array  is  empty,  return  an  empty  XmString  string. 

*/ 

if  (n  <=  0) 

return  (XmStringCreate ( " " ,  XmSTRING_DEFAULT_CHARSET) ) ; 


/* - - 

*  -  If  not,  convert  the  input  string  to  an  XmString  string. 

*  _ _ _ _ _  _  _  _ _  _ 

*/ 

for  (xmstr  =  (XmString)  NULL,  i  =  0;  i  <  n;  i++) 

{  if (i  >  0) 

xmstr  =  XmStringConcat (xmstr,  XmStringSeparatorCreate  ()); 
xmstr  =  XmStringConcat (xmstr,  XmStringCreate (chararray [i] , 

XmSTRING_DEFAULT_CHARSET) ) ; 


/* - 

*  -  Return  the  XmString  string. 

*  _ _ _ _ _ _ _ _  _ 

*/ 

return  (xmstr) ; 

}  /*  end  xstr2xmstr()  */ 

z*********************************************************************** 

*  VOID  RESET 

**********************************************i'1'1'1f  +  1r*1ci'*  +  1'ic  +  +  iei'ie  +  icieirici'i( 

*<Begin> 

*<Identification>  Name:  reset 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  several  (main,  set_axis_pts ,  etc.) 

*<Description> 

*  Resets  the  values  of  the  structure  "mov"  to  their  initial  values . 

*<Called  routines> 

*  None 

*< Parameters > 

*  Formal  declaration: 

*  void  reset (void) 

*  input : 
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*  None 

*  Output ; 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 


*/ 

void  reset (void) 

mov->magf actor  =  org_magf actor; 


if (view_axis [0]  ) 

{  mov- >ndx  =  10.0  *  org_center [1]  ; 
mov- >ndy  =  10.0  *  org_center [2] ; 

else  if (view_axis [1]  ) 

{  mov- >ndx  =  10.0  *  org_center [0]  ; 
mov->ndy  =  10.0  *  org_center [2] ; 

else  if (view_axis [2]  ) 

{  mov->ndx  =  10.0  *  org__center  [0]  ; 
mov->ndy  =  10.0  *  org_center [1]  ; 

} 


mov->tdx  =  10.0  *  org_off set [0] ; 
mov->tdy  =  10.0  *  org_of f set [1] ; 

/*  end  reset ()  */ 


/*********************************************************************** 

*  VOID  DRAWSCENE 
*********************************************************************** 
*<Begin> 

*<Identif ication>  Name:  drawscene 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  Numerous  routines 

*<Description> 

*  Plots  the  3-D  BLIRB  grid  points,  albedo  areas,  aerosol  regions, 

*  and  the  output  flux. 

*<Called  routines > 

*  dist_sun 

* 

*  plot_areas 

*  plot_axes 

*  plot_sun 

* 

*  plot_regions 

*  plot_flars 

*  plot_slite 

*  plot_flux 

*<Parameters> 

*  Formal  declaration: 

*  void  drawscene (void) 

*  Input : 


-  determines  the  "plot-distance"  from  the 
Earth  to  the  Sun 

-  plots  the  BLIRB  surface  albedo  areas 

-  plots  the  main  BLIRB  region  axes 

-  plots  the  position  of  the  Sun  in  BLIRB 
space 

-  plots  the  3-D  BLIRB  aerosol  regions 

-  plots  the  BLIRB  Flares 

-  plots  the  BLIRB  SearchLights 

-  plots  the  requested  BLIRB  flux  field 
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*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*  ***********************************★**★**********★*******■*•★**'*•****★*** 
*/ 

void  drawscene (void) 

static  long  blacked  []  =  {  0,  0,  0  }; 
static  int  axis  =  1; 

float  xpoint,  ypoint,  zpoint;  /*  Eyepoint /Viewpoint  */ 

float  xref,  yref,  zref;  /*  Reference  Point  */ 

/* - 

*  -  Determine  the  viewing  window  dimensions 

*  _ 

*/ 

float  xu  =  0.5  *  WINDOW_HEIGHT  *  ( float ) xsize/ ( float ) ysize ; 

float  xl  =  -xu; 

float  yu  =  0.5  *  WINDOW_HE IGHT ; 

float  yl  =  -yu; 

float  fac  =  WINDOW_HEIGHT  /  (float) ysize; 

/* - - - - - 

*  -  Determine  the  viewpoint  or  eyepoint 

*  _ 

*/ 

xpoint  =  0 . 1* (float) mov->ndx; 
ypoint  =  0 . 1* (float) mov->ndy; 
zpoint  =  20.0; 

/* - - - - - - - - - 

*  -  Determine  the  viewed  point  or  reference  point 

*  _ 

*/  ~~~ 
if (view_axis  [0] ) 

{  xref  =  org_center [1] ; 
yref  =  org_center [2] ; 
zref  =  org_center [0]  ; 

else  if  (view__axis  [1]  ) 

{  xref  =  org_center [0] ; 
yref  =  org_center [2]  ; 
zref  =  -org_center [1]  ; 

else  if (view_axis [2]  ) 

{  xref  =  org_center [0]  ; 
yref  =  org_center [1] ; 
zref  =  org_center [2] ; 

/* - - - 

*  -  Restrict  the  rotation  movement  such  that  the  underside  of  the 

*  albedo  areas  cannot  be  seen 

*  _ _ _ 

*/ 
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if ( ! view_axis [2]  &&  ypoint  <  yref) 

{  ypoint  =  yref; 

mov->ndy  =  10.0  *  ypoint; 

} 

ortho (  xl,  xu,  yl,  yu,  0.0,  125.0); 
pushmatrix ( ) ; 


/*  Use  "ortho"  projection  */ 
/*  Save  Modelview  Matrix  */ 


*  - 
* 

* 

* 


--  If  the  viewing  axis  has  been  unchanged  since  last  viewing,  then 
perform  any  translation  (if  necessary) .  If  the  viewing  axis  has 
changed,  then  save  the  current  viewing  axis  and  set  the 
translation  to  (0,0). 


if (((axis  ==  -1)  &&  view_axis [0] )  |[ 

((axis  ==  0)  &&  view_axis [1] )  j| 

((axis  ==  1)  &&  view_axis [2] ) ) 

translate (  -0 . 01* (float) mov->tdx,  -0. 01* (float)mov->tdy,  0.0); 

else  , 

{  if (view_axis [0] )  /*  Save  the  currnt  view-axis*/ 

axis  =  -1; 

else  if (view_axis [1] ) 
axis  =  0; 

else  if (view_axis [2] ) 
axis  =  1; 


mov- >tdx  =  0; 
mov- >tdy  =  0; 


/*  Set  translation  to  (0,0)  */ 


sun_earth[2]  =  axis_pts  [2]  [0]  ; 


__  Determine  the  distance  from  the  Sun  to  the  ground 


dist_sun()  ; 


--  Setup  the  view  line -of -sight  and  scale  the  plot  if  necessary. 


lookat (xpoint,  ypoint,  zpoint,  xref,  yref,  zref,  0); 
scale (mov- >magf actor,  mov- >magf actor,  1.0) ; 


*  -  Rotate  the  plot  to  get  the  requested  viewing  orientation 


if ( I view_axis [2] ) 
rotate (-900,  'x' ) ; 
if (view_axis [0]  ) 
rotate (-900,  ;  z' )  ; 


c3i  (blacked)  ;  /*  set  background  to  black  */ 

czclear (0x000000,  getgdesc (GD_ZMAX) ) ;  /*  Clear  Screen  &  Z-buffer  */ 


Plot  the  components  required  for  the  complete  BLIRB  scene 
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if ( ! nofile) 

{  pushmatrix ( ) ; 

zbuf fer (TRUE) ; 
plot_areas ( )  ; 
plot_axes ( ) ; 
if (sun_plot) 
plot_sun ( ) ; 
zbuf fer (FALSE) ; 
plot_regions ( ) ; 
if(flar  >=  0) 
plot_flars ()  ; 
if (srch  >=  0) 
plot_slite () ; 
if ( ! noflux) 
plot_flux() ; 
popmatrix ( ) ; 

} 

popmatrix ( ) ; 

swapbuffers ()  ; 

}  /*  end  drawsceneO  */ 


/*  Turn  on  depth  checking  */ 
/*  Plot  the  Albedo  Areas  */ 

/*  Plot  the  Region  Axes  */ 

/*  Plot  the  Sun  position  */ 

/*  Turn  off  depth  checking  */ 

/*  Plot  the  BLIRB  Regions  */ 

/*  Plot  the  Flares  */ 

/*  Plot  the  searchLights  */ 

/*  Plot  the  Output  Flux  */ 


/*  Restore  Modelview  Matrix  */ 
/*  Display  the  current  plot  */ 


/***************************************************★******************* 

*  VOID  PLOT_FLUX 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  plot_flux 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  drawscene 

*<Description> 

*  Plots  the  requested  BLIRB  flux  field. 

*=================-=== _ = _ _ =  =  =  =  =  =  =  = 


-  draws  the  axis  and  plot  scale  of  the 
requested  BLIRB  flux 

-  draws  the  "3-D  surface”  in  transparent 
color  of  the  requested  BLIRB  flux 

-  draws  the  grid  lines  and  the  wire  frame 
surface  for  the  selected  cross-section 
for  the  requested  BLIRB  flux. 


*<Parameters> 

*  Formal  declaration: 

*  void  plot_f lux (void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code . 

*<End> 

*********************************************************************** 

*/ 

void  plot  flux (void) 

{ 

int  i ,  n ,  dum ,  out_indx [ 3 ] ; 
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for  (i=0;  i<10;  i++) 
if (f lux_flag [i]  ) 


*  -  For  the  requested  BLIRB  flux  field  and  requested  cross-section 

*  orientation,  determine  the  axis  index  values  used  in  the  called 

*  routines. 


{  if (cross_axis [0] ) 

{  out__indx  [  0  ]  =  0  ; 
out_indx[l]  =  1; 
out_indx[2]  =  2; 
n  =  0  ; 

else  if (cross_axis [1] ) 
{  out__indx  [  0  ]  =  1  ; 
out_indx[l]  =  0; 
out_indx[2]  =  2; 
n  =  1; 

}  .  r  „ 
else  if  (cross__axis  [2]  ) 

{  out_indx [ 0 ]  =  2 ; 

out_indx[l]  =  0; 

ou t__indx  [  2  ]  =  1 ; 

n  =  2 ; 


Plot  the  flux  axis  and  scale 


plot _ f lux_axis (out_indx,  cross_value [n] ) ; 


*  -  Xf  transparent  colors  is  requested,  plot  the  flux  cross-section 

*  values  in  3-D  in  transparent  color. 


if (transparency) 

plot_f lux_tran (out^indx,  cross_value [n] ,  i) ; 


*  -  Plot  the  flux  cross-section  values  in  a  3-D  wire  mesh 


plot_f  lux_base  (out__indx,  cross_value  [n]  ,  i)  ; 

dum  =  out_indx[l]  ; 
out_indx  [1]  =  out_indx[2]; 
out_indx [ 2 ]  =  dum ; 

plot_f lux_base (out_indx,  cross_value [n] ,  i) ; 

}  /*  end  plot_flux()  */ 

/*********************************************************************** 
*  VOID  PLOT_FLUX_AXIS 

*********************************************************************** 


*<Begin> 

*  < I dent ification> 


Name :  plot__f  lux_axis 

Type :  C  void 
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*  Filename:  visual. c 

*  Parent :  plot_f lux 

*<Description> 

*  Draws  the  axis  and  plot  scale  of  the  requested  BLIRB  flux. 

*<Called  routines> 

*  None 

*<Parameters> 

*  Formal  declaration: 

*  void  plot_f lux__axis  (  int  out_indx[3],  int  cur_imx) 

*  Input : 

*  out_indx[3]  -  vector  of  axis  index  values 

*  cur_imx  -  index  for  current  flux  cross-section 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  plot  flux  axis (int  out  indx[3],  int  cur  imx) 

{  ”  “ 

static  long  white []  =  {  255,  255,  255}; 
int  i,  j,  k,  1,  re¬ 

float  vO  [3 ]  ,  vl  [3]  ,  v2  [3]  ; 
char  text  [4]; 

if (f lux_index_low  <  0  |j  f lux_index_high  >  0) 

{  c3i (white); 

k  =  out_indx [  0  ]  ; 

1  =  out_indx[l]; 
m  =  out_indx[2]  ; 

/* - - - r~ - 

*  -  Draw  the  Flux  Axis  Line 


*/ 

vO [k]  =  out_m0 [k] [cur_imx]  +  0.5  *  (float)  f lux_index_low; 
vl [k]  =  out_m0 [k] [cur_imx]  +  0.5  *  (float)  f lux_index_high; 
vO  [1]  =  vl[l]  =  out_m0  [1]  [ 0]  ; 
vO [m]  =  vl [m]  =  out_m0 [m] [ 0] ; 

bgnl ine ( ) ; 
v3f (vO) ; 
v3f (vl) ; 
endline  (); 

/* - 

*  -  Draw  the  minor  tick  marks  on  the  Flux  Axis  Line 


*/ 

Vl[l]  =  v0[l]  -  0.07071; 
vl [m]  =  v0[m]  -  0.07071; 

for  (i=flux_index_low;  i<=f lux_index_high;  i++) 
{  vl  [k]  =  vO  [k]  ; 
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bgnline ()  ; 
v3f (vO) ; 
v3f (vl) ; 
endline  ()  ; 

vO  [k]  +=  0.5; 

} 


*  -  Draw  the  major  tick  marks  on  the  Flux  Axis  Line 


*/ 

j  -  flux_index_low/5; 
f  lux_jindex__low  =  5  *  j ; 

vO [k]  =  out_mO [k] [cur_imx]  +  0.5  *  (float)  f lux_index_low; 

Vl[l]  =  vO [1]  -  0.14142; 

vl [m]  =  vO [m]  -  0.14142; 

v2  [1]  =  vl[l]  -  0.2; 
v2 [m]  =  vl [m]  -  0.2; 

for  ( i = f lux__index_l ow ;  i<=f lux_index_high;  i  +=  5) 

{  v2  [k]  =  vl  [k]  =  vO  [k]  ; 

bgnline ( ) ; 
v3f (vO) ; 
v3f (vl) ; 
endline () ; 

cmov(  v2  [0]  ,  v2  [1]  /  v2  [2]  )  ; 

sprintf (text ,  n%dn,  i) ;  /*  Compose  major  tick  label  */ 

charstr (text) ;  /*  Label  major  tick  marks  */ 

vO [k]  +=  2.5; 

} 


*  -  Draw  a  major  tick  marks  on  the  end  of  the  positive  Flux  Axis  Line 

*  and  label  it 

*  _ 

*/ 

v2 [k]  =  vl [k]  =  vO [k]  =  out_m0[k] [cur_imx]  + 

0.5  *  (float)  flux_index_high; 

bgnl ine ( ) ; 
v3f (vO) ; 
v3f (vl) ; 
endline  ()  ; 

cmov(  v2 [0] ;  v2 [1] ,  v2 [2] ) ; 

sprintf (text ,  " %dM ,  f lux_index_high) ; 

charstr (text) ; 

}  /*  end  plot_flux_axis ()  */ 

/**★* ********* ****** ****** ******* **************************** *********** 

*  VOID  PLOT_FLUX_TRAN 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name :  plot_f lux_tran 

★  Type:  C  void 
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* 

* 


Filename :  visual . c 

Parent :  plot_f lux 


*<Description> 

*  Draws  the  "3-D  surface”  in  transparent  color  of  the  requested 

*  BLIRB  flux. 


*<Called  routines> 

*  None 

*<Parameters> 

*  Formal  declaration: 

*  void  plot_f lux_tran (  int  out_indx[3],  int  cur_imx,  int  flux) 

*  Input : 

*  out_indx[3]  -  vector  of  axis  index  values 

*  cur_imx  -  index  for  current  flux  cross -section 

*  flux  -  index  for  the  requested  type  of  flux 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*/ 

void  plot  flux  tran(  int  out  indx[3] ,  int  cur  imx,  int  flux) 

{  _  _ 

static  long  red4  []  =  {  255,  0,  0,  0}; 

int  i#  j,  k,  1,  m,  ii,  j j ,  kk,  iii,  jjj,  jjl,  jj2,  kkk; 
float  vO  [3 ]  ,  vl[3],  v2  [3]  ,  v3  [3]  ; 


red4 [3]  =  2  *  trans_index; 
c4i(red4); 


k  =  out_indx[0] 
1  =  out_indx[l] 
m  =  out_indx[2] 


/* - 

*  -  Turn  on  image  blending 

*  _ 

*/ 

blendf unction  (BF_SA,  BF_MSA)  ; 


/* - 

*  -  For  each  rectangle  made  from  the  grid  points  of  the 

*  cross-section,  determine  the  abscissa  vertices  of  the  rectangle. 

*  - 

*/ 

for  ( i  =  0 ;  i<out_imx [1] -1;  i++) 

{  vO  [1]  =  out__m0  [1]  [i]  ; 
vl  [1]  =  out_m0[l]  [i+1]  ; 
v2[l]  =  vl  [1]  ; 
v3  [1]  =  vO  [1]  ; 

for  ( j  =  0  ;  j<out_imx[m] -1;  j++) 

{  vO  [m]  =  out__m0  [m]  [j]  ; 
vl  tm]  =  vO  [m]  ; 
v2  [m]  =  out_m0  [m]  [j+1]  ; 
v3  [m]  =  v2  [m]  ; 
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*  -  Let  the  ordinate  for  each  vertex  be  the  requested  flux  value. 


*/ 

switch  (k) 

{  case  0 : 

ii  =  cur_imx; 

iii  =  cur_imx; 

jj  =  i; 

jjl  =  i+1; 

jjj  =  i+i; 
j  j  2  =  i; 
kk  =  j  ; 
kkk  =  j+1; 
break ; 

case  1: 

ii  =  i; 

iii  =  i+1; 

j  j  =  cur_imx ; 
jjl  =  cur_imx; 
jjj  =  cur_imx; 
j  j  2  =  cur_imx ; 
kk  =  j  ; 
kkk  =  j+1; 
break ; 


case  2  : 

ii  =  i; 

iii  =  i+1; 

jj  *  j; 
jji  =  j? 
jjj  «  j+i; 
j  j  2  =  j+i; 

kk  =  cur_imx; 
kkk  =  cur_imx; 
break ; 

} 


if  ( !  f lux_zero  [flux]  [cur__nwave]  ) 

{  vO [k]  =  0.5  *  out_f lux [flux] [cur_nwave] [ii] [jj] [kk]  + 
out_m0 [k] [cur_imx] ; 

vl [k]  =  0.5  *  out_f lux [flux]  [cur_nwave]  [iii]  [jjl]  [kk]  + 
out_mO [k] [cur_imx] ; 

v2 [k]  =  0.5  *  out_f lux [flux]  [cur_nwave]  [iii]  [jjj]  [kkk]  + 
out_mO [k] [cur_imx] ; 

v3 [k]  =  0.5  *  out_f lux [flux]  [cur_nwave]  [ii]  [  j  j  2]  [kkk]  + 
out  mO  [k]  [cur__imx]  ; 


else  if ( (mini_f lux [f lux] [cur_nwave]  >=  0.0)  && 

(maxi_f lux [flux] [cur_nwave]  >  0.0)) 

{  vO[k]  =  0.5  *  out_f lux [flux] [cur_nwave] [ii] [jj] [kk] /log_range  + 
out_mO [k] [cur_imx] ; 

vl [k]  =  0.5  *  out_f lux [flux]  [cur_nwave]  [iii]  [jjl]  [kk] /log_range+ 
out_mO [k] [cur_imx] ; 

v2  [k]  =  0.5  *  out_f  lux  [flux]  [curjiwave]  [iii]  [jjj]  [kkk]/ 
log_range  +  out__m0  [k]  [cur_imx]  ; 

v3 [k]  =  0.5  *  out_f lux [flux]  [cur_nwave]  [ii]  [  j  j  2 ]  [kkk] /log_range+ 
out_mO  [k]  [cur__imx]  ; 


else 

vO [k]  =  vl [k]  =  v2 [k]  =  v3 [k]  =  out_mO [k] [cur_imx] ; 
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/* - - - - - 

*  -  Draw  the  3-D  Flux  polygon  from  the  top 

*  _ 

*/ 

bgntmesh ( ) ; 
v3f (vO) ; 
v3f (vl) ; 
v3f (v3) ; 
v3f (v2) ; 
endtmesh ( ) ; 

/* - 

*  -  Draw  the  3-D  Flux  polygon  from  the  bottom 

*  _ 

*/ 

bgntmesh  {)  ; 
v3f (vO) ; 
v3f (v3) ; 
v3f (vl) ; 
v3f (v2) ; 
endtmesh ( ) ; 


/* - 

*  -  Turn  off  image  blending 

*  _ 

*/ 

blendf unction (BF_ONE,  BF_ZERO) / 
}  /*  end  plot _ f  lux__tran  ( )  */ 


/*********************************************************************** 

*  VOID  PLOT_FLUX_BASE 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name :  plot_f lux_base 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent:  plot_flux 


*<Description> 

*  Draws  the  grid  lines  and  the  wire  frame  surface  for  the  selected 

*  cross-section  for  the  requested  BLIRB  flux. 


*<Called  routines> 
*  None 

*=  =  =  =:  =  =  =  =  =  =  =  =  =  =  =  =  = 


*<Parameters> 

*  Formal  declaration: 

*  void  plot_f lux_base ( 

*  Input : 

*  out_indx[3] 

*  cur_imx 

*  flux 

*  Output : 

*  None 


int  out__indx  [3]  ,  int  cur_imx,  int  flux) 

vector  of  axis  index  values 

index  for  current  flux  cross-section 

index  for  the  requested  type  of  flux 


<History> 

09/12/94 

AMSRL-BE-S 

(505)  678-1570 

Elton  P.  Avara 

Developed  the 

original  source 

code . 

*<End> 
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*********************************************************************** 

*/ 

void  plot_f lux_base  (  int  out_indx[3],  int  cur_imx,  int  flux) 

static  long  white []  =  {  255,  255,  255}; 
static  long  red[]  =  {  255,  0,  ec¬ 
static  Boolean  flag  =  TRUE;  /*  Initialize  "flag"  */ 

int  i,  j,  k,  1,  m,  ii,  jj,  kk,  iii,  jjj,  kkk; 
float  vO [3] ,  vl [3] ; 

k  =  out_indx[0]; 

1  =  out_indx[l]; 
m  =  out  indx [2] ; 


*  -  For  each  rectangle  made  from  the  grid  points  of  the 

*  cross-section,  determine  the  abscissa  vertices  of  the  rectangle. 

*  - 

*/ 

for  ( i=0 ;  i<out_imx [1]  ;  i++) 

{  vO  [1]  =  out_m0 [1]  [i]  ; 
vl  [1]  =  vO  [1]  ; 

for  ( j  =  0  ;  j<out_imx[m] -1;  j++) 

{  vO  [m]  =  out_m0  [m]  [j]  ; 
vl  [m]  =  out_m0  [m]  [j+1]  ; 


/* - 

*  -  Draw  the  cross-section  grid  lines 

*  - 

*/ 

vO [k]  =  vl [k]  =  out_m0 [k] [cur_imx] ; 

c3i (white) ; 

bgnline ( ) ; 
v3f (vO) ; 
v3f (vl) ; 
endline ( ) ; 

/* - - - - - “ 

*  -  Draw  the  cross-section  flux  wire  mesh  3-D  surface 

*  _ 

*/ 

switch  (k) 

{  case  0 : 

ii  =  cur_imx; 

iii  =  cur_imx; 

if (flag) 

{  jj  =  i; 
jjj  =  i;  • 

kk  =  j; 
kkk  =  j+1; 

} 

else 

{  jj  =  j; 
jjj  =  j+i; 
kk  =  i  ; 
kkk  =  i; 

} 
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break; 


case  1 : 

jj  =  cur_imx; 

jjj  =  cur_imx; 

if (flag) 

{  ii  =  i; 
iii  =  i; 
kk  =  j  ; 
kkk  =  j+1; 

} 

else 

{  ii  =  j ; 
iii  =  j+1; 
kk  =  i  ; 
kkk  =  i ; 

} 


break; 

case  2 : 

kk  =  cur_imx ; 
kkk  =  cur_imx; 

if (flag) 

{  ii  =  i; 
iii  =  i; 
jj  =  j; 
j  jjj  =  j+i; 

else 

{  ii  =  j; 
iii  =  j+1; 
jj  =  i; 
jjj  =  i; 

} 


break; 

} 

if ( ! f lux_zero [flux] [cur_nwave] ) 

{  vO [k]  =  0.5  *  out_f lux [flux]  [cur_nwave]  [ii]  [jj]  [kk]  + 
out_mO  [k]  [cur__imx]  ; 

vl [k]  =  0.5  *  out_f lux [flux]  [cur_nwave]  [iii]  [jjj]  [kkk]  + 
out  mO [k] [cur  imx] ; 

} 

else  if ( (mini_f lux [f lux] [cur_nwave]  >=  0.0)  && 

(maxi_f lux [flux] [cur_nwave]  >  0.0)) 

{  vO [k]  =  0.5  *  out_f lux [flux] [cur_nwave] [ii] [jj] [kk]  / 
log_range  +  out_mO [k] [cur_imx] ; 
vl [k]  =  0.5  *  out_f lux [flux]  [cur_nwave]  [iii]  [jjj]  [kkk]  / 
log_range  +  out_mO  [k]  [cur__imx]  ; 

else 

vO [k]  =  vl [k]  =  out_mO [k] [cur_imx] ; 

c3i (red) ; 

bgnline () ; 
v3f (vO) ; 
v3f (vl) ; 
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endline ()  ; 


} 


/ 


*  -  Flip  the  value  of  the  "flag"  to  indicate  whether  it  is  the  first 

or  second  pass  through  the  routine. 


*/ 

flag  =  ! flag; 

}  /*  end  plot _ f lux_base ( )  */ 

^ *  VOID  DIST_SUN 


*<Begin> 

*<Identif ication> 
★ 

* 

* 


Name : 
Type: 
Filename : 
Parent : 


dist_sun 
C  void 
visual . c 
draws cene 


*<Description> 

*  Determines  the  "plot -distance1'  from  the  Earth  to  the  Sun. 

*<Called  routines> 

*  None 

*  Parameters  > 

*  Formal  declaration: 

*  void  dist_sun(  void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

so±d  dist_sun  (void) 

static  float  pi_over_180  =  0.01745329; 
float  t,  p,  sp,  cp,  tt; 

t  =  pi_over_180  *  sun__thsun; 
p  =  pi_over_180  *  sun_phsun; 
tt  =  ftan(t); 

if(sun_jplot  ==  TRUE) 

{  if (view_axis [0] ) 

{  sp  =  f sin (p) ; 

if ( (sun_distance [2]  -  sun_earth [2] ) *tt*sp  <= 

(sun_di stance [1]  -  sun_earth[l] ) ) 

sun_dist  *  (sun_di stance [2]  -  sun_earth [2] )  /  fcos(t); 

else 

sun  dist  =  (sun_distance [1]  -  sun_earth [1] )  /  (fsin(t)  *  sp) ; 

} 


else  if (view_axis [1] ) 
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{  cp  =  f COS (p) ; 

if { (sun_distance [2]  -  sun_earth [2]  ) *tt*cp  <= 

(sun_distance [0]  -  sun_earth[0] ) ) 
sun_dist  =  (sun_distance [2]  -  sun_earth [2] )  /  fcos(t); 
else 

sunjiist  =  (s\in_di stance  [0]  -  sun__earth [0]  )  /  (fsin(t)  *  cp)  ; 


} 


} 


else  if (view_axis  [2] ) 

{  tt  =  (sun_distance  [2]  -  sun_earth [2] )  *  tt; 
if(tt  <  (sun_distance [0]  -  sun_earth [0] )  && 
tt  <  (sun_distance [1]  -  sun_earth [1] ) ) 
sun_dist  =  (sun_distance [2]  -  sun_earth [2] )  / 
else 

{  if ( (sun_distance [0]  -  sun_earth [0] )  *  ftan(p) 
(sun_distance [1]  -  sun_earth [1] ) ) 
sun_dist  =  (sun_distance [0]  -  sun_earth [0] ) 
(fsin(t)  *  fcos (p) ) ; 

else 

sun_dist  =  (sun_distance [1]  -  sun_earth [1] ) 
(fsin(t)  *  fsin(p)); 


fcos (t) ; 


/ 

/ 


/*  end  dist_sun()  */ 


/*********************************************************************** 

*  VOID  PLOT_SUN 
***★************★******★*********★*★*★*****★***★***★*********★•*•★***•*•*■*■* 
*<Begin> 

Name :  plot_sun 

Type :  C  void 

Filename :  visual . c 

Parent :  drawscene 

*<Description> 

*  Plots  the  position  of  the  Sun  in  BLIRB  space 

*<Called  routines> 

*  None 


*<Identif ication> 

* 

* 

* 

* - 


*< Parameters > 

*  Formal  declaration: 

*  void  plot_sun (  void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  plot_sun (void) 

static  float  pi_over_180  =  0.01745329; 
static  float  pi_over  8  =  0.392699; 
static  long  col []  =  J  255,  200,  0}; 
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float  sinzenith,  t,  p; 

float  vO  [3]  ,  vl[3],  v2[3],  v3  [3]  ,  v4 [3]  ; 
int  i ,  j  #  k; 


*  -  Determine  the  location  of  the  center  of  the  Sun  in  the  plot 


*/ 

t  =  pi_over__180  *  sun_thsun; 

p  =  pi_over_180  *  (90.0  -  sun_phsun) ; 

sinzenith  =  sun_dist  *  fsin(t) ; 

vO [0]  =  sinzenith  *  fcos (p)  +  sun_earth [0]  ; 

vO [1]  =  sinzenith  *  fsin(p)  +  sun_earth [1] ; 

vO [2]  =  sun_dist  *  fcos(t)  +  sun_earth [2] ; 

for  ( i=0 ;  i<3;  i++) 
sun  sun[i]  =  vO [i]  ; 


*  -  Draw  the  Sun  a  polygon  at  a  time.  Each  polygon  will  be  22.5  deg 

*  azimuth  angle  by  22.5  deg  zenith  angle. 

*  - - - 

*/ 

c3i (col) ; 

for  ( i  =  0 ;  i < 1 6 ;  i++) 

{  vl  [0]  =  vO  [0]  ; 

vl [1]  =  vO  [1]  ; 
vl [2]  =  vO [2]  +  sun_radius; 

.  for  ( j  =  0 ;  j  <3 ;  j++) 
v4  [j]  =  vl  [j]  ; 

for  ( j  =  0 ;  j  <8 ;  j++) 

{  sinzenith  =  sun__radius  *  f sin (pi_over_8  *  (float)  (j+D); 
v2  [0]  sb  vO  [0]  +  sinzenith  *  f cos  (pi_over_8  *  (float)  i)  ; 

v2 [1]  =  vO [1]  +  sinzenith  *  f sin (pi_over_8  *  (float)  i) ; 

v2 [2]  =  vO [2]  +  sun_radius  *  f cos (pi_over_8  *  (float)  (j+1) )  ; 

v3 [0]  =  vO [0]  +  sinzenith  *  f cos (pi_over_8  *  (float)  (i+1) )  ; 

v3 [1]  =  vO [1]  +  sinzenith  *  f sin (pi_over_8  *  (float)  (i+1) ) ; 

v3  [2]  =  v2  [2]  ; 

bgntmeshO  ; 
v3f (vl) ; 
v3f (v2) ; 
v3f (v4 ) ; 
v3f (v3 ) ; 
endtmesh ( )  ; 

k<3 ;  k++) 
v2  [k]  ; 
v3  [k]  ; 


for  (k=0 ; 
{  vl[k]  = 
v4  [k]  = 


/* - 

*  -  Draw  the  line  from  the  Sun  to  the  ground. 

★  - 

*/ 

for  (i=0 ;  i<3 ;  i++) 
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Vl[i] 


=  sun_earth[i]  ; 


bgnline ( ) ; 
v3f (vO) ; 
v3f (vl) ; 
endline () ; 


/*-- . - - - 

*  -  Draw  the  label  for  the  Sun 


*/ 

cmov(v0[0]  +  2 . 0*sun_radius ,  vO  [1]  +  2 . 0*sun__radius  ,  vO  [2]  )  ; 
chars tr ("Sun") ;  /*  Label  the  Sun  */ 

}  /*  end  plot_sun()  */ 


/*********************************************************************** 

*  VOID  PLOT_AREAS 

************** ************************************^***^**************** 

*<Begin> 

*<Identif ication>  Name 

*  Type 

*  Filename 

*  Parent 

*  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  :=  =  =  =  =  =  =  =  =  =  =  =  : 

*<Description> 

*  Plots  the  BLIRB  surface  albedo  areas . 
*==;=;_;__===_==_=_____======__==_:====:===::_===:==== 

*<Called  routines> 

*  None 


plot_areas 
C  void 
visual . c 
draws cene 


*<Parameters> 

*  Formal  declaration: 

*  void  plot_areas (  void) 

*  input : 

*  None 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 


*/ 

void  plot_areas (void) 

static  long  white []  =  {  255,  255,  255}; 
static  long  red[]  =  {  255,  0,  O}; 
int  i ,  j ; 
long  col  [3]  ; 

float  vO [3]  ,  vl [3]  ,  v2 [3 ]  ,  v3  [3 ]  ; 
float  num[3]  ; 
char  albedo [10] ; 


for  (i=0;  i  <=  area;  i++) 

/* - 

*  -  Determine  the  shade  of  green  to  be  used  for  each  albedo  area 

*  and  set  the  color. 

*  _ 

*/ 

{  if(i  !=  cur^area  ]|  !move_area) 
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{  j  =  25.0  +  230.0  *  area_iamt [i] ; 
col[0]  =  col  [2]  =  0; 
col  [1]  =  j ; 
c3i (col) ; 

} 

else 

c3i (red) ; 


★  -  Determine  the  vertices  of  the  albedo  area. 


vO  [0] 

= 

area_alx[i] ; 

V0  [1] 

= 

area_aly[i] ; 

vO  [2] 

= 

0.001  *  (float)  i; 

vl  [0] 

area  ahx [i] ; 

vl[l] 

= 

vO [1]  ; 

vl  [2] 

= 

vO  [2]  ; 

v2  (0] 

— 

vl  [0]  ; 

v2  [1] 

= 

area_ahy[i] ; 

v2  [2] 

= 

vO  [2]  ; 

v3  [0] 

= 

vO  [0]  ; 

v3  [1] 

= 

v2  [1]  ; 

v3[2] 

= 

vO  [2]  ; 

*  - Turn  on  the  Z-h>uf fering,  shade  the  albedo  area  from  the  top 

*  side,  and  then  turn  off  the  Z-buffering. 


if (i  >  0)  zfunction (ZF_ALWAYS) ;  /*  Turn  on  Z-buffering  */ 

bgnpolygon ( ) ;  /*  Shade  the  albedo  area  */ 

v3f (vO) ; 
v3f (vl) ; 
v3f (v2) ; 
v3f (v3) ; 
endpolygon ( ) ; 

if (i  >  0)  zfunction (ZF_LESS) ;  /*  Turn  off  Z-buffering  */ 


*  -  For  the  whole  BLIRB  surface  area  (first  area),  turn  on  the 

*  Z-buffering,  shade  the  albedo  area  from  the  bottom  side,  and  then 

*  turn  off  the  Z-buffering. 

*  _ 

*  / 

if (i  ==  0)  zfunction (ZF_ALWAYS) ;  /*  Turn  on  Z-buffering  */ 

bgnpolygon ( ) ;  /*  Shade  the  albedo  area  */ 

v3f (vO) ; 
v3f (v3 ) ; 
v3f (v2) ; 
v3f (vl) ; 
endpolygon ( ) ; 

if (i  ==  0)  zfunction (ZF_LESS) ;  /*  Turn  off  Z-buffering  */ 


/* 


519 


*  -  If  albedo  area  is  to  be  moved,  compose  a  text  message  and  display 

*  it  at  the  appropriate  location. 

*  _ 


if (i  ==  cur_area  &&  move_area) 

{  num[0]  =  area_alx[i]; 

numtl]  =  area__aly[i]  -  0.15; 
num[2]  =  -0.1; 

cmov(  num[0]  ,  numtl]  ,  num[2]  )  ; 
strcpy (albedo,  "Move  Area") ; 
c3i (red) ; 

2 function  (ZF__ALWAYS)  ; 
chars tr (albedo)  ; 
zfunction(ZF  LESS); 

} 


/*  Move  cursor  to  text  locn  */ 


/*  Compose  the  text  */ 

/*  Set  color  to  white  */ 
/*  Turn  on  Z- buffering  */ 
/*  Display  the  text  */ 
/*  Turn  off  Z-buffering  */ 


/* - 

*  -  If  albedo  area  numbers  are  to  be  displayed  in  text  form,  then 

*  compose  the  text  and  display  it  at  the  appropriate  location. 

*  _ * _ 

*/ 

if (label_obsc) 

{  num[0]  “  area_alx[i]  +  0.1; 
num[l]  =  area_aly[i]  +  0.1; 
num [ 2 ]  =  0.05; 


cmov(  num[0],  numtl],  num[2]); 

/*  Move  cursor  to  text  locn 

*/ 

sprint f  (albedo,.  n%d",  i+1)  ; 

/*  Compose  the  text 

*/ 

c3i (white) ; 

/*  Set  color  to  white 

*/ 

z function (ZF_ALWAYS) ; 

/*  Turn  on  Z-buffering 

*/ 

charstr (albedo) ; 

/*  Display  the  text 

*/ 

zfunction (ZF_LESS) ; 

/*  Turn  off  Z-buffering 

*/ 

end  plot_areas()  */ 

^ *  VOID  PLOT_REGIONS 


*<Begin> 

*<Identif ication> 
* 

* 

* 

*================ 


Name : 
Type: 
Filename ; 
Parent : 


plot_regions 
C  void 
visual . c 
draws cene 


*<Description> 

*  Plots  the  3-D  BLIRB  aerosol  regions  (volumes) . 

*  =  =  =  =  =  =  ==  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =:  =  =:=:  =  =  =  =  =:=:  =  =  =  =  =  =  =  =  =  =  =  = 


*<Called  routines> 


* 

regn_sides 

-  draws  the  6  sides  of  the  3-D  BLIRB  aerosol 

* 

regions  in  transparent 

color. 

* 

* 

bottom_face 

-  outlines  the  3-D  BLIRB 
bottom  faces. 

aerosol 

regions 

* 

* 

top_face 

-  outlines  the  3-D  BLIRB 
top  faces . 

aerosol 

regions 

* 

* 

lef t_f ace 

-  outlines  the  3-D  BLIRB 
left  faces. 

aerosol 

regions 

* 

* 
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right_face 

-  outlines  the  3-D  BLIRB 
right  faces . 

aerosol 

regions 

*  front_face 

* 

*  back_face 

* 


outlines  the  3-D  BLIRB  aerosol  regions 
front  faces. 

outlines  the  3-D  BLIRB  aerosol  regions 
back  faces. 


*  Parameters  > 

*  Formal  declaration: 

*  void  plot__regions  (void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 


*/ 

void  plot_regions  (void) 

static  long  col_white[]  =  {  255,  255,  255}; 
static  long  col_yellow[]  =  {  255,  255,  0 }  ; 
static  long  col__red[]  =  {  255,  0,  0}; 
int  i ,  k ; 
long  col [4] ; 

float  regn_vertex[8] [3] ,  num[3] ; 
char  text [12]; 


for  ( i  =  0 ;  i  <=  regn;  i++) 

* - 

*  -  Determine  the  vertices  of  each  aerosol  region. 

*  _ 


*/ 

{  regn_vertex [0] [0] 
regn_vertex [1] [0] 
regn_vertex [0] [1] 
regn__vertex  [2]  [1] 
regn_vertex [0]  [2] 
regn_ver t ex [ 4 ]  [2] 


=  regn_vertex [3] [0] 
regn_vertex [7] [0] 

=  regn_vertex [2] [0] 
regn_vert ex [6] [0] 

=  regn_vertex [1] [1] 
regn_vertex [5] [1] 

=  regn_vertex [3] [1] 
regn_vertex [6] [1] 

=  regn_vertex[l] [2] 
regn_vertex [3] [2] 

=  regn_vertex [5] [2] 
regn__vertex  [7]  [2] 


=  regn_vertex [4] [0]  = 
=  regn_rl [0]  [i]  ; 

=  regn_vertex [5] [0]  = 

=  regn_rh[0]  [i]  ; 

=  regn_vertex [4] [1]  = 

=  regn_rl [1]  [i]  ; 

=  regn_vertex [7]  [1]  = 

=  “regn_rh  [1]  [i]  ; 

=  regn_vertex [2] [2]  = 

=  (regn_rl[2]  [i]+0. 02) 

=  regn__vertex  [6]  [2]  = 

=  regn__rh[2]  [i]  ; 


*  -  Determine  the  color  for  each  aerosol  region  and  set  the  color. 


for  (k=0 ;  k<3;  k++) 

{  if (i  ! =  cur_regn  ||  (!move_regnh  &&  !move_regnv) ) 
col [k]  =  mtrl_color [ (int)  regn_izmt [i] ]  [k]  ; 
else 

col [k]  =  colored [k] ; 
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} 

col  [3]  =  255; 
c4i (col)  ; 


/* - 

*  If  transparent  colors  are  requested,  set  the  transparent  colors 

*  and  draw  the  6  sides  of  the  aerosol  region.  Else,  set  the  color 


to  yellow. 

if (transparency) 

{  col  [3]  =  trans  index; 

/* 

Set  the  Transparency 

*/ 

c4i  (col) ; 

/* 

Set  the  Aerosol  Color 

*/ 

blendf  unction  (BF  SA,  BF  MSA); 

/* 

Image  Blending  ON 

*/ 

regn  sides (regn  vertex) ; 

/* 

Draw  the  region  6  sides 

*/ 

blendfunction (BF_0NE,  BF_ZER0) ; 

/* 

Image  Blending  OFF 

*/ 

c3i (col  white) ; 

} 

else  if  (col [0] +col  [1] +col  [2]  ==  0) 

/* 

Reset  color  to  white 

*/ 

/* 

If  color  is  white 

*/ 

c3i (col_yellow) ; 

/* 

set  color  to  yellow 

*/ 

/* - 

*  -  Draw  the  edges  of  the  six  faces  of  the  aerosol  region. 


bottom_face (regn_vertex) ; 
left__face  (regn_vertex)  ; 
right_face (regn_vertex) ; 
front_f ace (regn_vertex) ; 
back_face  (regn__vertex)  ; 
top_face (regn_vertex) ; 


/*  Outline  bottom  side  */ 
/*  Outline  left  side  */ 
/*  Outline  right  side  */ 
/*  Outline  front  side  */ 
/*  Outline  back  side  */ 
/*  Outline  top  side  */ 


/* - 7 - - - - 

*  -  Determine  the  location  where  the  region  number  should  be 

*  displayed. 

*  _ 

*/ 

if (label_obsc) 

{  for  (k=0 ;  k<3;  k++) 

num [k]  =  0.5  *  (regn_vertex [0] [k]  +  regn_vertex [6] [k]  )  ; 
sprintf  (text ,  n%d",  i+1)  ;  /*  Compose  the  text  */ 

cmov(  num[0],  num[l],  num[2]);  /*  Move  to  text  location1  */ 

chars tr (text) ;  /*  Display  the  text  */ 


/* - - 

*  -  If  the  region  is  to  be  moved,  determine  the  location  where  the 

*  text  message  reminder  should  be  displayed. 

*  _ 

*/ 

if (i  ==  cur_regn  &&  (move_regnh  ] |  move_regnv) ) 

{  c3i (colored) ; 

num[0]  =  regn_vertex [0]  [0]  ; 

num [ 1 ]  =  regn_vertex [0] [1]  -  0.15; 

num [2]  =  regn_vertex [0] [2]  -  0.15; 

strcpy(text,  "Move  Region");  /*  Compose  the  text  */ 

cmov (  num [ 0 ] ,  num[l],  num[2]);  /*  Move  to  text  location  */ 

charstr (text) ;  /*  Display  the  text  */ 
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}  /*  end  plot_regions ()  */ 


^  *  VOID  REGNJSIDES 


*<Begin> 

*<Identif ication>  Name:  regn_sides 

*  Type :  C  void 

*  Filename :  visual . c 

*  Parent :  plot_regions 


*<Description> 

*  Draws  the  6  sides  of  a  3-D  BLIRB  aerosol  region  in  transparent 

*  color. 

*<Called  routines> 

*  None 


*  <Parameters  > 

*  Formal  declaration: 

*  void  regn_sides(  float  regn_vertex [8] [3]) 

*  Input : 

*  regn_vertex  -  vertices  of  the  aerosol  region 

*  Output : 

*  ..  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  regn  sides (float  regn_vertex [ 8 ] [3]) 

{ 

/* - - - 

*  -  Draw  and  shade  the  bottom  side. 

*  - 

*/ 

bgntmeshO  ; 

v3f  (regn__vertex  [0]  )  ; 
v3f (regn_vertex [3] ) ; 
v3f (regn_vertex [1]  ) ; 
v3f (regn_vertex [2] ) ; 
endtmesh ( ) ; 


*  -  Draw  and  shade  the  left  side. 


*/ 

bgntmeshO  ; 

v3f (regn_vertex [0] ) ; 
v3f (regn_vertex [4]  ) ; 
v3f (regn_vertex [3] ) ; 
v3f (regn_vertex [7]  ) ; 
endtmesh ( ) ; 


Draw  and  shade  the  right  side. 
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bgntmeshO  ; 

v3f (regn_vertex [1] ) 
v3f (regn_vertex [2]  ) 
v3f (regn_vertex [5]  ) 
v3f (regn_vertex [6]  ) 
endtmeshO  ; 


*  -  Draw  and  shade  the  front  side. 


*/ 

bgntmesh ( ) ; 

v3f  (regn_vertex [0]  ) 
v3f (regn_vertex [1]  ) 
v3f (regn_vertex [4] ) 
v3f (regn_vertex [5]  ) 
endtmesh { ) ; 


*  -  Draw  and  shade  the  back  side. 


*/ 

bgntmesh ( )  ; 

v3f (regn_vertex [2]  ) 
v3f (regn_vertex [3]  ) 
v3f (regn_vertex [6]  ) 
v3f  (regn_vertex [7]  ) 
endtmeshO  ; 


*  -  Draw  and  shade  the  top  side. 


*/ 

bgntmesh  ()  ; 

v3f  (regnjvertex  [4]  )  ; 
v3f (regn_vertex [5] ) ; 
v3f (regn_vertex [7]  )  ; 
v3f  (regn_vertex [6]  )  ; 
endtmeshO  ; 

}  /*  end  regn_sides()  */ 


/*************************************************★********************* 

*  VOID  BOTTOM_FACE 
************************************************************************ 

*<Begin> 

*<Identif ication>  Name :  bottom_f ace 

*  Type :  C  void 

*  Filename:  visual. c 

*  Parent :  plot^regions 

*<Description> 

*  Outlines  a  3-D  BLIRB  aerosol  region  bottom  face  and  indicates 

*  where  the  line  from  the  Sun  to  the  ground  intersects  the  face. 

*<Called  routines> 

*  None 

*  <Parameters  > 

*  Formal  declaration: 

*  void  bottom_f ace  (  float  regn__vertex  [8]  [3]) 

*  Input : 

*  regnjvertex  -  vertices  of  the  aerosol  region 
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*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  bottom_f ace (float  regnjvertex [8] [3]) 

^  float  v0[3],  vl [3] ,  v2 [3] ,  v3  [3]  ,  dum,  sun [3] ; 


/* - - - 

*  -  Outline  the  region  face 


*/ 

bgnline ( ) ; 

v3f (regn_vertex [0]  ) 
v3f (regn_vertex [3] ) 
v3f  ( regn__vertex  [2]  ) 
v3f (regn_vertex [1] ) 
v3f (regn__vertex [0]  ) 
endline  ()  ; 


if (sun_plot) 

★ - — - — - — - — - - - — - - - —  —  —  — 

*  -  If  the  Sun  is  displayed,  determine  the  location  where  the  line 

*  from  the  Sun  to  the  ground  would  intersect  the  face  (if  it  does 

*  intersect  the  face) . 

*  - 

*/ 

{  sun [2]  =  regn_vertex [0]  [2]  ; 

dum  =  (sun [2]  -  sun_earth [2] )  /  (sun_sun[2]  -  sun_earth [2] ) ; 
sun [0]  =  dum  *  (sun_sun[0]  -  sun_earth [0] )  +  sun_earth[0] ; 
sun [1]  =  dum  *  (sun_sun[l]  -  sun_earth [ 1 ] )  +  sun_earth [1] ; 


if((sun[0]  >=  regn_vertex[0] [0]  && 
sun[0]  <=  regn_vertex[2] [0])  && 

(sun[lj  >=  regn_vertex[0] [1]  && 

sun[l]  <=  regn_vertex[2]  [1]  ) ) 

* - - - 

*  -  If  the  line  from  the  Sun  to  the  ground  intersects  the  face, 

*  determine  the  vertices  of  a  small  square  polygon  on  the  face 

*  centered  about  the  intersection  point  to  indicate  where  the 

*  Sun- line  intersected  the  face. 

*  - 

*/ 


{  vO  [0] 

= 

sun [0] 

- 

0.02; 

vl  [0] 

= 

sun [0] 

+ 

0.02; 

v2  [0] 

= 

sun [0] 

+ 

0.02; 

v3  [0] 

= 

sun [0] 

- 

0.02; 

v0  [1] 

= 

sun [1] 

- 

0.02; 

viri] 

= 

sun [1] 

- 

0.02; 

v2  [1] 

= 

sun [1] 

+ 

0.02; 

v3  [1] 

= 

sun [1] 

+ 

0.02; 

V0  [2] 

— 

sun  [2] 

vl  [2] 

= 

sun [2] 

v2  [2] 

= 

sun [2] 
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v3 [2]  =  sun  [2]  ; 


/* - 

*  -  Draw  the  polygon  on  the  face . 


*/ 

bgnline ( ) ; 
v3f (vO) ; 
v3f (vl) ; 
v3f (v2) ; 
v3f (v3 ) ; 
v3f (vO) ; 
endline  () ; 


}  /*  end  bottom_face ()  */ 


V°ID  LEFT-FACE 


*<Begin> 

*<Identif ication> 
* 

* 

* 


Name : 
Type: 
Filename : 
Parent : 


left_face 
C  void 
visual . c 
plot_regions 


*<Description> 

*  Outlines  a  3-D  BLIRB  aerosol  region  left  face  and  indicates 

*  where  the  line  from  the  Sun  to  the  ground  intersects  the  face. 


*<Called  routines> 
*  None 


*<Parameters> 

*  Formal  declaration: 

*  void  lef  t__face  (  float  regn_vertex  [8]  [3]) 

*  Input : 

*  regn_vertex  -  vertices  of  the  aerosol  region 

*  Output : 

*  None 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 

*********************************************************************** 

*/ 

void  lef t_f ace (float  regn_vertex [8] [3]) 

float  vO [3] ,  vl[3],  v2 [3] ,  v3 [3] ,  dum,  sun [3]; 


/* - 

*  -  Outline  the  region  face 

*  - 

*/ 

bgnline  ()  ; 

v3f  (regn__vertex  [0]  )  ; 
v3f (regn_vertex [4]  )  ; 
v3f (regn_vertex [7]  )  ; 
v3f (regn_vertex [3] ) ; 
v3f (regn_vertex [0] ) ; 
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1 

/* 

* 

* 

* 

*  - 

*/ 

{ 


endline ( ) ; 
f (sun_plot) 


/*-- 
*  - 

* 

* 

* 

*  -  . 
*/ 


If  the  Sun  is  displayed,  determine  the  location  where  the  line 
from  the  Sun  to  the  ground  would  intersect  the  face  (if  it  does 
intersect  the  face) . 


sun [0]  =  regn_vertex [0] [0] ; 

dum  =  (sun  [0]  -  sun_earth [0] )  /  (sun_sun[0]  -  sun_earth [0] ) 

sun[l]  =  dum  *  (sun_sun [1]  -  sun_earth [1] )  +  sun_earth [1] ; 
sun[2]  =  dum  *  (sun_sun[2]  -  sun_earth [2] )  +  sun_earth  [2] ; 

if((sun[l]  >=  regn_vertex [0] [1]  && 

sun[l]  <=  regn_vertex [7] [1])  && 

(sun [2]  >=  regn_vertex [0] [2]  && 

sun [2]  <=  regn_vertex [ 7 ] [2])) 


--If  the  line  from  the  Sun  to  the  ground  intersects  the  face, 
determine  the  vertices  of  a  small  square  polygon  on  the  face 
centered  about  the  intersection  point  to  indicate  where  the 
Sun- line  intersected  the  face. 


v0  [0] 

sun [0] ; 

vl  [0] 

= 

sun [0] ; 

v2  [0] 

= 

sun [0] ; 

v3  [0] 

= 

sun [0] ; 

vO  [1] 

= 

sun [1]  - 

0.02; 

vl  [1] 

= 

sun[l]  - 

0.02; 

V2  [1] 

= 

sun[l]  + 

0.02; 

v3[l] 

= 

sun[l]  + 

0.02; 

vO  [2] 

= 

sun  [2]  - 

0.02; 

vl  [2] 

= 

sun [2]  + 

0.02; 

v2  [2] 

= 

sun [2]  + 

0.02; 

v3  [2] 

=: 

sun  [2 3  - 

0.02; 

*  -  Draw  the  polygon  on  the  face. 

*  _ 


} 


} 


bgnline ( ) ; 
v3f (vO) ; 
v3f (vl) ; 
v3f (v2 ) ; 
v3f (v3 ) ; 
v3f (vO) ; 
endline ( ) ; 


}  /*  end  left_face()  */ 


/+ ************************************************* ********************* 
*  VOID  RIGHT_FACE 

*********************************************************************** 
*<Begin> 

*<Identif ication> 


Name :  right_f ace 

Type :  C  void 

Filename :  visual . c 
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*  Parent :  plot__regions 
*<Description> 

*  Outlines  a  3-D  BLIRB  aerosol  region  right  face  and  indicates 

*  where  the  line  from  the  Sun  to  the  ground  intersects  the  face. 

*<Called  routines> 

*  None 


*<Parameters> 

*  Formal  declaration: 

*  void  right_face (  float  regn_vertex [8] [3]) 

*  Input : 

*  regn_vertex  -  vertices  of  the  aerosol  region 

*  Output : 

*  None 


*  _  _  _ _ = _ = _ _ _ _  _ 
*<History> 

*  09/12/94 

* 


*<End> 


AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 
Developed  the  original  source  code . 


*/ 

void  right_f ace (float  regn_vertex [8] [3]) 

float  vO [3] ,  vl[3],  v2  [3]  ,  v3  [3]  ,  dum,  sun [3]; 


*  -  Outline  the  region  face 


*/ 

bgnline  ()  ; 

v3f (regn_vertex [1] ) ; 
v3f (regn_vertex [2] ) ; 
v3f (regn_vertex [6]  ) ; 
v3f (regn_vertex [5]  )  ; 
v3f (regn_vertex [1]  )  ; 
endlineO; 


if  (sunjplot) 


*  -  If  the  Sun  is  displayed,  determine  the  location  where  the  line 

*  from  the  Sun  to  the  ground  would  intersect  the  face  (if  it  does 

*  intersect  the  face) . 


{  sun[0]  =  regn_vertex  [1]  [0]  ; 

dum  =  (sun[0]  -  sun_earth  [0]  )  /  ( sun__sun  [  0  ]  -  sun_earth  [0]  )  ; 
sun [1]  =  dum  *  (sun_sun [1]  -  sun_earth [1] )  +  sun_earth [1] ; 
sun [2]  =  dum  *  (sun_sun[2]  -  sun_earth [2] )  +  sun_earth [2] ; 

if { (sun [1]  >=  regn_vert ex [ 1 ]  [ 1  ]  && 
sun[l]  <=  regn__vertex  [6]  fl]  )  && 

(sun [2]  >=  regn_vertex [1] [2]  && 
sun[2]  <=  regn_vertex  [6]  [2]  )  ) 


*  -  If  the  line  from  the  Sun  to  the  ground  intersects  the  face, 

*  determine  the  vertices  of  a  small  square  polygon  on  the  face 

*  centered  about  the  intersection  point  to  indicate  where  the 

*  Sun-line  intersected  the  face. 
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{  vO  [0] 

= 

sun [0] 

vl  [0] 

= 

sun  [0] 

v2  [0] 

= 

sun [0] 

v3  [0] 

sun [0] 

vO  [1] 

— 

sun  [1] 

0.02; 

vl[l] 

= 

sun  [1] 

- 

0.02; 

v2  [1] 

sun [1] 

+ 

0.02; 

v3  [1] 

= 

sun [1] 

+ 

0.02; 

vO  [2] 

= 

sun [2] 

- 

0.02; 

vl  [2] 

= 

sun [2] 

+ 

0.02; 

v2  [2] 

= 

sun [2] 

+ 

0.02; 

v3  [2] 

= 

sun [2] 

- 

0.02; 

/* - 

*  -  Draw  the  polygon  on  the  face. 


*/ 

bgnline  () 
v3f (vO) 
v3f (vl) 
v3f (v2 ) 
v3f (v3) 
v3f (vO) 
endline { ) 


}  /*  end  right_face()  */ 


/★********************************************************************** 

*  VOID  FRONT_FACE 
*********************************************************************** 
*<Begin> 

*<  Identification  Name:  front_face 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  plot_regions 

*<Description> 

*  Outlines  a  3-D  BLIRB  aerosol  region  front  face  and  indicates 

*  where  the  line  from  the  Sun  to  the  ground  intersects  the  face. 

*<Called  routines > 

*  None 

*<Parameters> 

*  Formal  declaration: 

*  void  front_face(  float  regn_vertex  [8].[3]  ) 

*  Input : 

*  regn_vertex  -  vertices  of  the  aerosol  region 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 
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void  front  face  (float  regn  vertex [8]  [3]) 

{ 

float  v0[3],  vl [3] ,  v2 [3] ,  v3  [3]  ,  dum,  sun [3]; 


/* - 

*  -  Outline  the  region  face 

*  - 


*/ 

bgnline  ()  ; 

v3f (regn_vertex [0] ) ; 
v3f (regn_vertex [1] ) / 
v3f  (regn_vertex [5]  )  ; 
v3f (regn_vertex [4]  ) ; 
v3f (regn_vertex [0]  )  ; 
endl ine ( )  ; 


if (sun_plot ) 


*  -  If  the  Sun  is  displayed,  determine  the  location  where  the  line 

*  from  the  Sun  to  the  ground  would  intersect  the  face  (if  it  does 

*  intersect  the  face) . 


{  sun[l]  =  regn__vertex  [0]  [1]  ; 

dum  =  (sun[l]  -  sun_earth [1] )  /  (sun_sun[l]  -  sun_earth [1] ) ; 
sun[0]  =  dum  *  (sun_sun[0]  -  sun__earth [0]  )  +  sun_earth [0]  ; 
sun  [2]  =  dum  *  (sun__sun[2]  -  sun_earth  [2]  )  +  sun_earth  [2]  ; 


if((sun[0]  >=  regn_vertex [0] [0]  && 
sun[0]  <=  regn_vertex [5]  [0]  )  && 
(sun [2]  >=  regn_vertex [0] [2]  && 
sun [2]  <=  regn_vertex [5]  [2] )  ) 


*  -  If  the  line  from  the  Sun  to  the  ground  intersects  the  face, 

*  determine  the  vertices  of  a  small  square  polygon  on  the  face 

*  centered  about  the  intersection  point  to  indicate  where  the 

*  Sun-line  intersected  the  face. 


*/ 


v0  [0] 

= 

sun  [0] 

- 

0.02 

vl[0] 

= 

sun  [0] 

+ 

0.02 

v2  [0] 

= 

sun [0] 

+ 

0.02 

v3  [0] 

= 

sun [0] 

- 

0.02 

v0  [1] 

= 

sun [1] 

! 

vl[l] 

= 

sun  [1] 

/ 

v2  [1] 

= 

sun [1] 

/ 

v3  [1] 

= 

sun [1] 

/ 

v0  [2] 

— 

sun [2] 

_ 

0.02 

vl  [2] 

sun [2] 

- 

0.02 

v2  [2] 

- 

sun [2] 

+ 

0.02 

v3  [2] 

= 

sun  [2] 

+ 

0.02 

/* - - - 

*  -  Draw  the  polygon  on  the  face. 


*/ 

bgnline  ()  ; 
v3f (V0) ; 
V3f (vl) ; 
v3f (v2) ; 
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} 


} 


v3f (v3 ) 
v3f (vO) 
endline  () 


}  /*  end  front_face()  */ 


/*********************************************************************** 
*  VOID  BACK_FACE 

****************************** ********************************** ******* 

*<Begin> 

*<Identif ication> 


Name : 
Type: 
Filename : 
Parent : 


back_f ace 
C  void 
visual . c 
plot_regions 


* 

* 

* 

*<Description>  , 

*  Outlines  a  3-D  BLIRB  aerosol  region  back  face  and  indicates 

*  where  the  line  from  the  Sun  to  the  ground  intersects  the  face. 

*<Called  routines> 

*  None 

*<Parameters> 

*  Formal  declaration: 

*  void  back_f ace (  float  regn_vertex [8] [3]) 

*  Input : 

*  regn_vertex  -  vertices  of  the  aerosol  region 

*  Output : 

*  None 

*<History> 

*  09/12/94  r AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  back_f ace (float  regn_vertex [8] [3]) 

^  float  vO  [3]  ,  vl  [3]  ,  v2  [3]  ,  v3  [3]  ,  dum,  sun[3]; 


/* - 7 - 

*  -  Outline  the  region  face 


*/ 

bgnline  ()  ; 

v3f (regn_vertex [2]  ) ; 
v3f (regn_vertex [3]  )  ; 
v3f (regn_vertex [7]  ) ; 
v3f (regn_vertex [6] ) ; 
v3f (regn_vertex [2]  )  ; 
endline () ; 

if (sun_plot) 

_ _ 

*  -  If  the  Sun  is  displayed,  determine  the  location  where  the  line 

*  from  the  Sun  to  the  ground  would  intersect  the  face  (if  it  does 

*  intersect  the  face) . 

*  - 

*/ 

{  sun[l]  =  regn_vertex[2]  [1]  ; 
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dum  =s  (sun[l]  -  sun_earth  [1]  )  /  (sun_sun[l]  -  sun_earth [1] ) ; 
sun[0]  =  dum  *  (sun_sun[0]  -  sun_earth [0] )  +  sun^earth [0] / 
sun[2]  =  dum  *  {sun_sun[2]  -  sun_earth [2] )  +  sun_earth [2] ; 


if((sun[0]  >=  regn_vertex  [7]  [0]  && 
sun[0]  <=  regn_vertex [2] [0])  && 

(sun[2]  >=  regn_vertex [2] [2]  && 
sun[2]  <=  regn_vertex [7] [2] ) ) 

/* - 

*  -  If  the  line  from  the  Sun  to  the  ground  intersects  the  face, 

*  determine  the  vertices  of  a  small  square  polygon  on  the  face 

*  centered  about  the  intersection  point  to  indicate  where  the 

*  Sun-line  intersected  the  face. 


*/ 


vO  [0] 

= 

sun [0] 

- 

0.02; 

vl  [0] 

= 

sun [0] 

+ 

0.02; 

v2  [0] 

= 

sun  [0] 

+ 

0.02; 

v3  [0] 

= 

sun [0] 

- 

0.02; 

vO  [1] 

= 

sun  [1] 

/ 

vl[l] 

= 

sun [1] 

/ 

v2  [1] 

= 

sun  [1] 

r 

v3  [1] 

= 

sun [1] 

/ 

vO  [2] 

= 

sun [2] 

- 

0.02; 

vl  [2] 

_ 

sun  [2] 

_ 

0.02; 

v2  [2] 

= 

sun  [2] 

+ 

0.02; 

v3  [2] 

= 

sun  [2] 

0.02; 

/* - - - 

*  -  Draw  the  polygon  on  the  face . 


*/ 

bgnline () ; 
v3f (vO) ; 
V3f (vl) ; 
v3f (v2 ) ; 
v3f (v3) ; 
v3f (vO) ; 
endline ( ) ; 


}  /*  end  back_face()  */ 


*  VOID  TOP_FACE 


*<Begin> 

*<  Identification 
* 

* 

* 

=====-== — 


Name 

Type 

Filename 

Parent 


top__face 
C  void 
visual . c 
plot_jregions 


*<Description> 

*  Outlines  a  3-D  BLIRB  aerosol  region  top  face  and  indicates 

*  where  the  line  from  the  Sun  to  the  ground  intersects  the  face. 

*<Called  routines> 

*  None 

*  =  =  =  =  =  =  =  =  =  -  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =:  =  =  -  = _ =  = _ 


*<Parameters> 
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*  Formal  declaration: 

*  void  top_f ace (  float  regn_vertex [8] [3]) 

*  Input : 

*  regn__vertex  -  vertices  of  the  aerosol  region 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  top_f ace (float  regn_vertex [8] [3]) 

float  vO  [3],  vl[3],  v2[3],  v3  [3]  ,  dum,  sun[3]; 

/* - 

*  -  Outline  the  region  face 

*  _ 

*/ 

bgnline ( ) ; 

v3f (regn_vertex [4]  ) ; 
v3f (regn_vertex [5]  )  ; 
v3f (regn_vertex [6]  )  ; 
v3f (regn_vertex [7] ) ; 
v3f (regn_vertex [4]  )  ; 
endl ine ( ) ; 

if  (sunjplot) 

/* - 7 

*  -  If  the  Sun  is  displayed,  determine  the  location  where  the  line 

*  from  the  Sun  to  the  ground  would  intersect  the  face  (if  it  does 

*  intersect  the  face) . 

*  _ 

*/ 

{  sun [2]  =  regn_vertex [4]  [2]  ; 

dum  =  (sun [2]  -  sun_earth [2] )  /  (sun_sun [2]  -  sun_earth [2] ) ; 

sun [0]  =  dum  *  (sun_sun[0]  -  sun_earth [0] )  +  sun_earth[0] ; 
sun[l]  =  dum  *  (sun_sun[lj  -  sun_earth [1] )  +  sun_earth[l] ; 

if((sun[0]  >=  regn_vertex [4] [0]  && 

sun  [0]  <=  regn_vertex [6]  [0]  )  && 

(sun[l]  >=  regn_vertex [4] [1]  && 

sun [1]  <=  regn_vertex [6]  [1]  ) ) 

/* - 

*  -  If  the  line  from  the  Sun  to  the  ground  intersects  the  face, 

*  determine  the  vertices  of  a  small  square  polygon  on  the  face 

*  centered  about  the  intersection  point  to  indicate  where  the 

*  Sun- line  intersected  the  face. 

*  - - - 

*/ 

{  vO  [0]  =  sun[0]  -  0.02; 

vl[0]  =  sun[0]  +  0.02; 

v2 [0]  =  sun [0]  +  0.02; 

v3  [0]  =  sun[0]  -  0.02; 

vO  [1]  =  sun[l]  -  0.02; 

vl[l]  =  sun[l]  -  0.02; 

v2 [1]  =  sun [1]  +  0.02; 

v3  [1]  =  sun[l]  +  0.02; 
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vO [2]  =  sun  [2]  ; 
vl [2]  =  sun [2] ; 

v2 [2]  =  sun  [2]  ; 
v3 [2]  =  sun [2] ; 


/* — - - 

*  -  Draw  the  polygon  on  the  face. 


*/ 

bgnline ( ) ; 
v3f (vO) ; 
v3f (vl) ; 
v3f (v2 ) ; 
v3f { v3 ) ; 
v3f (vO) ; 
endline ( ) ; 


}  /*  end  top_face()  */ 


VOID  PLOT_FLARS 


*<Begin> 

*<  Identification  Name 

*  Type 

*  Filename 

*  Parent 

*<Description> 

*  Plots  the  BLIRB  Flares. 


plot_flars 
C  void 
visual .  c 
draws cene 


*<Called  routines> 

*  None 

*<Parameters> 

*  Formal  declaration: 

*  void  plot_f lars (void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P 

*  Developed  the  original  source  code. 


Avar  a 


*<End> 

**★*****************★******★******★**★*★★**★*****■*■*•*■*****★****■*■**★***** 

*/ 

void  plot  f lars (void) 

{ 

static  long  colored []  =  {  255,  0,  0}; 
int  i,  k; 

float  f lar_vertex [8] [3] ,  num[3] ; 
char  text [11] ; 


for  ( i=0 ;  i  <=  flar;  i++) 

/* - 

*  -  Determine  the  vertices  of  each  Flare. 


*/ 
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{  flar_vertex [0]  [0] 
flar_vertex [1]  [0] 
f lar_vertex [0] [1] 
flar_vertex [2] [1] 
flar_vertex [0] [2] 
flar  vertex [4]  [2] 


=  f  lar__vertex  [3]  [0] 
flar_vertex [7] [0] 

=  flar_vertex [2] [0] 
f lar_vertex [6] [0] 

=  flar_vertex [1] [1] 
f lar__vertex [5] [1] 

=  flar__vertex [3]  [1] 
f lar_vertex [6] [1] 

=  flar_vertex [1] [2] 
flar_vertex [3] [2] 

=  f  lar__vertex  [5]  [2] 
flar  vertex [7] [2] 


-  f lar_vertex [4] [0]  = 

=  f lar_xflar [i]  -  0.05; 

=  f lar_vertex [5] [0]  = 

=  f lar_xflar [i]  +  0.05; 

=  f lar_vertex [4] [1]  = 

=  flar_yf lar [i]  -  0.05; 

=  flar_vertex [7] [1]  = 

=  flar_yf lar [i]  +  0.05; 

=  flar_vertex [2] [2]  = 

=  flar_zf lar [i]  -  0.05; 

=  f lar_vertex [6] [2]  = 

=  flar  zflar[i]  +  0.05; 


/* - 

* - Draw  the  Flare. 


c3i  (col_red)  ; 
bgnline  ()  ; 

v3f  (flar__vertex  [0]  )  ; 
v3f (f lar_vertex [6] ) ; 
endline  ()  ; 

bgnline () ; 

v3f (f lar_vertex [1]  )  ; 
v3f (flar_vertex [7]  ) ; 
endline () ; 

bgnline  ()  ; 

v3f (flar_vertex [2] ) ; 
v3f (f lar_vertex [4]  ) ; 
endlineO; 

bgnline () ; 

v3f  (f lar_vertex [3]  )  ; 
v3f (flar_vertex [5]  )  ; 
endline  ()  ; 


--  Determine  the  location  where  the  Flare  number  should  be 
displayed. 


if (label_obsc) 

{  for  (k=0 ;  k<3;  k++) 

num [k]  =  0.5  *  (f lar_vertex [0] [k] 
sprintf (text ,  "%dn,  i+1)  ; 

cmovf  num[0]  ,  num[l]  ,  num [2]  )  ; 
chars tr (text) ; 

} 


+  flar__vertex  [6]  [k]  )  +  0.10; 

/*  Compose  the  text  */ 
/*  Move  to  text  location  */ 
/*  Display  the  text  */ 


*  If  the  Flare  is  to  be  moved,  determine  the  location  where  the 

*  text  reminder  message  should  be  displayed  and  display  it. 

*  _ 

*/ 
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} 


if ( i  ==  cur_flar  &&  (move_flarh 
{  num[0]  =  f lar_vertex [0] [ 0 ] ; 
num[l]  =  flar_vertex [0] [1]  - 
num[2]  =  f  lar_vertex  [0]  [2]  - 
strcpy(text,  "Move  Flare"); 
cmov(  num[0]  ,  num[l]  ,  num[2]  ) 
chars tr (text) ; 


/*  end  plot_flars()  */ 


j  j  move_f larv) ) 

0.15; 

0.15; 

/*  Compose 
;  /*  Move  to 

/*  Display 


the 

text 

*/ 

text 

location 

*/ 

the 

text 

*/ 

/*********************************************************************** 

*  VOID  PLOTJSLITE 
*********************************************************************** 

*<Begin> 

*<Identif ication>  Name:  plot_slite 

*  Type:  C  void 

*  Filename :  visual . c 

*  Parent :  drawscene 

*<Description> 

*  Plots  the  BLIRB  SerachLights . 

*===========—==== — _ _ _ _ 


*<Called  routines> 
*  None 


*<Parameters> 

*  Formal  declaration : 

*  void  plot_slite (void) 

*  Input : 

*  None 

*  Output : 

*  None 


*_______ _ 


*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 


*/ 

void  plot_slite (void) 

static  long  col_white[]  =  {  255,  255,  255}; 
static  long  col_red[]  =  {  255,  0,  0}; 
int  i,  k; 

float  f lar_vertex [8] [3] ,  num[3] ; 
char  text [11]; 


for  ( i = 0 ;  i  <=  srch;  i++) 

/* - - - 

*  - Determine  the  vertices  of  each  Searchlight . 

*  _ 


*/ 

{  f lar_vertex [0] [0] 
flar_vertex [1] [0] 
flar  vertex [0] [1] 


=  f lar_vertex [3] [0] 
flar_vertex [7] [0] 

=  f lar_vertex [2] [0] 
f  lar__vertex  [6]  [0] 

=  flar_vertex [1] [1] 
flar  vertex [5] [1] 


=  flar_vertex [4] [0]  = 
=  srch_xsrch  -  0.05; 

=  flar_vertex [5] [0]  = 
=  srch_xsrch  +  0.05; 

=  flar_vertex [4] [1]  = 
=  srch_ysrch  -  0.05; 
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flar_vertex [2] [1] 
f lar_vertex [0] [2] 
flar  vertex [4] [2] 


=  flar_vertex [3] [1] 
flar_vertex [6] [1] 

=  f lar_vertex [1] [2] 
flar_vertex [3] [2] 

=  flar_vertex [5] [2] 
flar  vertex [7] [2] 


=  f lar_vertex [7] [1]  = 

=  srch_ysrch  +  0.05; 

=  flar_vertex [2] [2]  = 

=  srch_zsrch  -  0.05; 

=  flar_vertex [6] [2]  = 
=  srch  zsrch  +  0.05; 


/* - 

*  -  Draw  the  SearchLight. 

*  _ 

*/ 

c3i (col_white) ; 


bgnline  ()  ; 
v3f (flar 
v3f (flar 
endline  ()  ; 

bgnline () ; 
v3f (flar 
v3f (flar 
endline () ; 

bgnline  ()  ; 
v3f (flar 
v3f (flar 
endline  ()  ; 

bgnline ( ) ; 
v3f (flar 
v3f (flar 
endline  ()  ; 


vertex [0] ) 
Vertex  [6]  ) 


vertex [1] ) 
vertex  [7] ) 


vertex [2] ) 
vertex  [4] ) 


vertex  [3] ) 
vertex [5] ) 


/* - 

★ _ 

* 

★ _ 

*/ 

if 

{ 


Determine  the  location  where  the  SearchLight  "S"  should  be 
displayed. 


(label_obsc) 

for  (k=0;  k<3;  k++) 

num[k]  =  0.5  *  (flar_vertex [0] [k] 
strcpy(text,  "S") ; 
cmov(  num[0]  ,  num[l]  ,  num[2] )  ; 
charstr (text)  ; 


+  flar_vertex [6] [k] )  +  0.10; 
/ *  Compose  the  text 
/*  Move  to  text  location 
/*  Display  the  text 


*/ 

*/ 

*/ 


--If  the  SearchLight  is  to  be  moved,  determine  the  location  where 
the  text  reminder  message  should  be  displayed  and  display  it . 


if (move_srchh  | |  move_srchv) 

{  c3i(col_red) ; 

num [ 0 ]  =  flar_vertex[0]  [0] ; 
num[l]  =  f lar_vertex [0] [1]  -  0.15; 

num [2]  =  flar_vertex[0] [2]  -  0.15; 

strcpy (text,  "Move  Slite") ;  /*  Compose  the  text  */ 

cmov (  num[0] ,  num[l] ,  num[2]);  /*  Move  to  text  location  */ 

charstr (text) ;  /*  Display  the  text  */ 

} 


537 


}  /*  end  plot_slite()  */ 


/*********************************************************************** 

*  VOID  PLOT_AXES 
****************************************************************************** 

*<Begin> 

*<Identif ication>  Name:  plot_axes 

*  Type:  C  void 

*  Filename :  visual . c 

*  Parent :  drawscene 


draws  the  X-axis  of  the  main  BLIRB  region 
draws  the  Y-axis  of  the  main  BLIRB  region 
draws  the  Z-axis  of  the  main  BLIRB  region 


*<Description> 

*  Draws  the  main  BLIRB  region  axes . 

*<Called  routines> 

*  plot_xaxis 

*  plot_yaxis 

*  plot_zaxis 

*  ====_________________________________ _  _ _ 

*<Parameters> 

*  Formal  declaration: 

*  void  plot_axes (  void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 


*<End> 

*/ 


void  plot  axes (void) 
{ 


plot_xaxis  ()  ; 

/* 

Draw 

the 

X 

axis 

*/ 

plot_yaxis  ()  ; 

/* 

Draw 

the 

Y 

axis 

*/ 

plot_zaxis  ()  ; 

/* 

Draw 

the 

Z 

axis 

*/ 

*  VOID  PLOT_XAXIS 


*<Begin> 

*<Identif ication>  Name: 

*  Type : 

*  Filename : 

*  Parent : 


plot_xaxis 
C  void 
visual . c 
plot_axes 


*<Description> 

*  Draws  the  X-axis  of  the  main  BLIRB  region  along  with  drawing 

*  the  tick  marks,  grid  lines,  and  labels. 


*<Called  routines> 
*  None 


*<Parameters> 

*  Formal  declaration: 

*  void  plot_xaxis (  void) 

*  Input : 
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*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  plot  xaxis (void) 

{ 

static  long  whitecol []  =  {  255,  255,  255  }; 
static  long  yellowed  []  =  {  255,  255,  0  }; 

int  j  ; 

float  v0[3],  vl  [3]  ,  v2  [3]  ; 
float  maxx,  offset; 
char  text [3] ; 

maxx  =  0 ; 


/* - 

*  -  Determine  the  (Y,Z)  end  points  of  the  grid  lines  on  the  ground. 


*/ 

if (move_regnv  &&  !move_regnh) 

{  vO [1]  =  axis_pts [1] [0]  -  0.02; 
vl [1]  =  v0 [1]  ; 

v2 [1]  =  axis_pts tl] [0]  -  0.07071; 


v0  [2] 
vl  [2] 
v2  [2] 

} 

else 
{  v0  [1] 
vl[l] 
v2  [1] 


axis_pts  [2]  [num_grid__pts  [2]  ]  ; 
axis_pts  [2]  [0] ; 
vl [2]  -  0.07071; 


axis_pts [1] [num_grid_pts [1] ] ; 
axis_pts [1] [0] ; 
vl[l]  -  0.07071; 


v0[2]  =  axis_pts[2]  [0]  +  0.02; 

Vl  [2]  =  vO  [2]  ; 

V2 [2]  =  axis_pts[2] [0]  -  0.07071; 


/* - - - 

*  If  minor  grid  lines  are  requested,  set  the  color  to  white, 

*  determine  the  X  position  of  the  grid  lines,  and  draw  the  lines. 


*/ 

if (minor_grid) 


{  c3i (whitecol) ; 

/* 

Set  the  Axis  Color 

*/ 

for  (j=0;  j<=num_grid_j?ts  [0]  ;  j++) 

{  v0[0]  =  axis_pts[0]  [j]  ; 

/* 

Determine  X  position 

*/ 

vl [0]  =  vO  [0] ; 
v2  [0]  =  vO  [0]  ; 

bgnline  ()  ; 

/* 

Draw  X-Axis  +  Minor  Tic 

*/ 

v3f (vO) ; 
v3f (vl) ; 
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v3f ( v2 ) ; 
endline ( ) ; 

if  (maxx  <  fabs (vO [0] ) )  /*  Determine  greatest  X  val  */ 

maxx  =  fabs(v0[0]); 


/* — . - - - 

*  -  For  major  grid  lines,  set  the  color  to  yellow,  determine  the  X 

*  position  of  the  grid  lines,  draw  the  lines,  and  label  them. 


*/ 

V2 [1]  =  vl [1]  -  0.14142; 

v2 [2]  =  axis_pts [2] [0]  -  0.14142; 


c3i  (yellowcol)  ,* 


/*  Set  the  Axis  Color  */ 


for  ( j  =  0 ;  j<=num_grid_main_j?ts  [0]  ;  j++) 

{  vO [0]  =  axis_main_pts [0] [j] ;  /*  Determine  X  position  */ 

vl  [0]  =  vO  [0]  ; 
v2  [0]  =  vO  [0]  ; 


bgnlineO  ;  /*  Draw  X-Axis  +  Major  Tic  */ 

v3f (vO ) ; 
v3f (vl) ; 
v3f (v2) ; 
endline ( ) ; 


sprintf (text ,  " %d",  (int) 
cmov(  vO  [0]  -  0.05,  vl[l] 
chars tr (text) ; 


axis_main_pts [0] [j]);  /*  Compose  Label  */ 
-  0.4,  v2 [2]  -  0.2);  /*  Get  in  position*/ 

/*  Display  the  label  */ 


} 


if (maxx  <  fabs(v0[0])) 
maxx  =  fabs(v0[0]); 


/*  Determine  greatest  X  val  */ 


/* - - - . 

*  -  Determine  the  end  points  of  the  X-axis  line. 


*/ 

vO [0]  =  axis_pts [0] [0] ; 
vO [1]  =  axis_pts [1] [0] ; 

vl [0]  =  maxx; 
vl [ 1 ]  =  vO [1] ; 

/* - 

*  -  Draw  the  X-axis  line. 


*/ 

bgnl ine ( ) ; 
v3f (vO) ; 
v3f (vl) ; 
endline ( ) ; 


/* - - - 

*  -  Move  into  position  to  display  the  axis  label  string  and  display 

*  it . 


*/ 

if (view  axis  [0] ) 
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offset  =  -1.1; 
else 

offset  =  -0.7; 

cmov (  vO [0]  +  0.45* (maxx-vO [0]  )  ,  vO [1]  +  offset,  v2  [2]  -  0.5); 
charstr ( "X  (km) ") ; 

}  /*  end  plot_xaxis()  */ 

/*********************************************************************** 

*  VOID  PLOT_YAXIS 
*********************************************************************** 

*<Begin> 

*< Identification  Name:  plot_yaxis 

*  Type:  C  void 

*  Filename:  visual. c 

*  Parent :  plot_axes 

*<Description> 

*  Draws  the  Y-axis  of  the  main  BLIRB  region  along  with  drawing 

*  the  tick  marks,  grid  lines,  and  labels. 

*<Called  routines> 

*  None 

*<Parameters> 

*  Formal  declaration: 

*  void  plot_yaxis (  void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 

*/ 

void  plot_yaxis (void) 

static  long  whitecol []  =  {  255,  255,  255  }; 
static  long  yellowcol[]  =  {  255,  255,  0  }; 

int  j  ; 

float  vO  [3]  ,  vl[3],  v2  [3]  ; 
float  maxy; 
char  text [3] ; 

maxy  =  0; 


*  -  Determine  the  (X,Z)  end  points  of  the  grid  lines  on  the  ground. 


*/ 

vO  [0]  =  axis_pts  [0]  [num_grid_pts  [0]  ]  ; 
vl  [0]  =  axis_pts[0]  [0]  ; 
v2 [0]  =  vl [0]  -  0.07071; 

vO  [2]  =  axis_j?ts[2]  [0]  +  0.02; 
vl [2]  =  vO  [2]  ; 

v2 [2]  =  axis_pts [2] [0]  -  0.07071; 
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/* - - - - - 

*  If  minor  grid  lines  are  requested,  set  the  color  to  white, 

*  determine  the  Y  position  of  the  grid  lines,  and  draw  the  lines. 


if (minor_grid) 


c3i (whitecol) ; 

/* 

Set  the  Axis  Color 

*/ 

for  ( j  =  0 ;  j <=num_grid_pts [1] ;  j++) 

{  vO  [1]  =  axis_pts  [1]  [j]  ; 

/* 

Determine  Y  position 

*/ 

vl [1]  =  V0 [1]  ; 

v2 [1]  =  vO [1]  ; 

bgnline () ; 

/* 

Draw  Y-Axis  +  Minor  Tic 

*/ 

V3f (vO) ; 

V3f (vl) ; 
v3f (v2 ) ; 
endline  ()  ; 

if  (maxy  <  vO  [1]  )  /*  Determine  greatest  Y  val  */ 

maxy  =  vO [1]  ; 


/* - 

*  -  For  major  grid  lines,  set  the  color  to  yellow,  determine  the  Y 

*  position  of  the  grid  lines,  draw  the  lines,  and  label  them. 


*/ 

v2 [0]  =  vl [0]  -  0.14142; 

v2 [2]  =  axis_pts  [2]  [0]  -  0.14142; 


c3i  (yellowed )  ; 


/*  Set  the  Axis  Color  */ 


for  ( j  =  0 ;  j<=num_grid_main_pts [1]  ;  j++) 

{  vO [1]  =  axis_main_pts [1] [j];  /*  Determine  Y  position  */ 

vl  [  1  ]  =  vO  [1]  ; 
v2  [1]  =  V0  [1]  ; 


bgnlineO;  /*  Draw  Y-Axis  +  Major  Tic  */ 

v3f (vO) ; 
v3f (vl) ; 
v3f (v2 ) ; 
endline ( )  ; 


sprintf  (text ,  "%d",  (int)  axis_main__pts  [1]  [ j  ]  )  ;  /*  Compose  label  */ 
emov (  vl [0]  -  0.27,  vO [1]  -  0.0625,  v2 [2]  -  0.2);  /*  Get  in  positn*/ 

charstr (text) ;  /*  Display  the  label  */ 

if (maxy  <  vO [1] )  /*  Determine  greatest  Y  val  */ 

maxy  =  vO [1] ; 


/* - 

*  -  Determine  the  end  points  of  the  Y-axis  line. 


*/ 

vO  [0]  =  axis_pts[0]  [0]  ; 
vO [1]  =  axis_pts  [1]  [0]  ; 

vl  [0]  =  vO  [0]  ; 
vl [1]  =  maxy; 
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/* - -------- 

*  -  Draw  the  Y-axis  line. 


*/ 

bgnline  ()  ; 
v3f (vO) ; 
v3f (vl) ; 
endline  ()  ; 


*  -  Move  into  position  to  display  the  axis  label  string  and  display 

*  it. 


cmov (vO [0]  -  1.2,  vO [1] +0.5* (maxy-vO [1] )  -  0.1,  v2[2]-0.5); 

charstr("Y  (km) ") ; 

}  /*  end  plot_yaxis()  */ 


^  *  VOID  PLOT_ZAXIS 


*<Begin> 

*<Identif ication> 
* 

* 

★ 


Name : 
Type: 
Filename : 
Parent : 


plot_zaxis 
C  void 
visual . c 
plot_axes 


*<Description> 

*  Draws  the  Z-axis  of  the  main  BLIRB  region  along  with  drawing 

*  the  tick  marks,  grid  lines,  and  labels. 

*<Called  routines> 

*  None 


*<Parameters> 

*  Formal  declaration: 

*  void  plot_zaxis (  void) 

*  Input : 

*  None 

*  Output : 

*  None 

*<History> 

*  09/12/94  AMSRL-BE-S  (505)  678-1570  Elton  P.  Avara 

*  Developed  the  original  source  code. 

*<End> 

*********************************************************************** 


*/ 

void  plot_zaxis  (void) 

static  long  whitecol  []  =  {  255,  255,  255  }; 
static  long  yellowed  []  =  {  255,  255,  0  }; 


int  j; 

float  vO [3] ,  vl [3] ,  v2 [3] ; 
float  maxz,  offset; 
char  text [3] ; 


maxz  =  0; 


/* 
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-  Determine  the  (X,Y)  end  points  of  the  grid  lines  on  the  ground. 


* 

★  _ 

*/ 

if (move_regnv  &&  !move_regnh) 

{  v0[0]  =  axis _j?ts  [0]  [num_grid_pts  [0]  ]  ; 
vl [0]  =  axis^pts [0] [0] ; 
v2 [0]  =  Vl [0]  -0 . 07071; 


vO 

[i] 

=  axis_pts 

[1] 

[0] 

vl 

[i] 

=  v0  [1]  ; 

v2 

[i] 

=  axis__pts 

Cl] 

[0] 

/ 

else 

{ 

vO 

[0] 

=  axis__pts 

[0] 

[0] 

vl 

[0] . 

=  axis_pts 

[0] 

to] 

v2 

[0] 

=  Vl  [0]  ; 

0.02; 

0.07071; 


0.002; 

0.07071; 


vO [1]  =  axis_pts  [1]  [0]  -  0.002; 
vl[l]  s  axis_pts  [1]  [0]  -  0.07071; 
v2  [1]  =  vl  [1]  ; 

} 


/* - - - - - - 

*  If  minor  grid  lines  are  requested,  set  the  color  to  white, 

*  determine  the  Z  position  of  the  grid  lines,  and  draw  the  lines. 

*  - 

*/ 

if (minor_grid) 

{  c3i (whitecol) ;  /*  Set  the  Axis  Color  */ 


for  ( j  =  0 ;  j <=num_grid_pts [2] ;  j++) 

{  vO [2]  =  axis_pts[2] [j] ;  /*  Determine  Z  position  */ 

vl [2]  =  vO  [2]  ; 
v2 [2]  =  V0 [2]  ; 


bgnlineO;  /*  Draw  Z-Axis  +  Minor  Tic  */ 

v3f (vO) ; 
v3f (vl) ; 
v3f (v2) ; 
endline ( ) ; 

if (maxz  <  v0[2])  /*  Determine  greatest  Z  val  */ 

maxz  =  vO [2] ; 


/* - - - - - 

*  -  For  major  grid  lines,  set  the  color  to  yellow,  determine  the  Z 

*  position  of  the  grid  lines,  draw  the  lines,  and  label  them. 


*/ 

Vl [0]  =  axis_pts [0] [0]  -  0.14142; 
vl [1]  =  axis_pts  [1]  [0]  -  0.14142; 


c3i  (yellowed)  ; 

/* 

Set  the  Axis  Color 

*/ 

for  ( j  =  0 ;  j<=num_grid__main_pts  [2]  ; 

j++) 

{  vO  [2]  =  axis  main_pts[2]  [j]; 

/* 

Determine  Z  position 

*/ 

vl [2]  =  vO [2] ; 

v2  [2]  =  V0  [2]  ; 

bgnline  ()  ; 

/* 

Draw  Z-Axis  +  Major  Tic 

*/ 
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V3f (VO) ; 
v3f (vl) ; 
v3f (v2 ) ; 
endline ( ) ; 

sprintf  (text ,  nd",  (int)  axis_main_pts  [2]  [ j  ]  )  ;  /*  Compose  label  */ 
cmov (  axis_pts [0]  [0]  -  0.3,  axis_pts  [1]  [0]  -  0.3,  vO [2]  -  0.05); 

charstr ( text) ;  /*  Display  the  label  */ 

if (maxz  <  vO [2] )  /*  Determine  greatest  Z  val  */ 

maxz  =  vO [2] ; 

} 


*  -  Determine  the  end  points  of  the  Z-axis  line. 


*/ 

vO  [2]  =  axis_pts[2]  [0]  ; 

vl [0]  =  vO [0] ; 

vl[l]  =  v0[l]  ; 
vl [2]  =  maxz; 


/* - -■ - 

*  -  Draw  the  Z-axis  line. 


*/ 

bgnline ( ) ; 
v3f (vO) ; 
v3f (vl) ; 
endline  ()  ; 


*  ___  Move  into  position  to  display  the  axis  label  string  and  display 

*  it . 

*  _ 

*/ 

if  (view__axis  [0]  ) 
offset  =  -1.1; 
else 

offset  =  -0.7; 

cmov (  vl [0]  -  1.2,  vl[l]  +  offset,  v0[2]+0.5*(maxz-v0[2])); 

charstr (nZ  (km)"); 

}  /*  end  plot_zaxis()  */ 
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Distribution 


Copies 

ARMY  CHEMICAL  SCHOOL  '  1 

ATZN  CM  CC 
ATTN  MR  BARNES 
FT  MCCLELLAN  AL  36205-5020 

NASA  MARSHAL  SPACE  FLT  CTR  1 

ATMOSPHERIC  SCIENCES  DIV 

E501 

ATTN  DR  FICHTL 
HUNTSVILLE  AL  35802 

NASA  SPACE  FLT  CTR  1 

ATMOSPHERIC  SCIENCES  DIV 
CODE  ED  41  1 
HUNTSVILLE  AL  35812 

ARMY  STRAT  DEFNS  CMND  1 

CSSD  SL  L 
ATTN  DR  LILLY 
PO  BOX  1500 

HUNTSVILLE  AL  35807-3801 

ARMY  MISSILE  CMND  1 

AMSMI  RD  AC  AD 

ATTN  DR  PETERSON 

REDSTONE  ARSENAL 

AL  35898-5242 

ARMY  MISSILE  CMND  1 

AMSMI  RD  AS  SS 

ATTN  MR  H  F  ANDERSON 

REDSTONE  ARSENAL 

AL  35898-5253 

ARMY  MISSILE  CMND  1 

AMSMI  RD  AS  SS 

ATTN  MR  B  WILLIAMS 

REDSTONE  ARSENAL 

AL  35898-5253 
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ARMY  MISSILE  CMND 
AMSMI  RD  DE  SE 
ATTN  MR  GORDON  LILL  JR 
REDSTONE  ARSENAL 
AL  35898-5245 

ARMY  MISSILE  CMND 
REDSTONE  SCI  INFO  CTR 
AMSMI  RD  CS  R  DOC 
REDSTONE  ARSENAL 
AL  35898-5241 

ARMY  MISSILE  CMND 
AMSMI 

REDSTONE  ARSENAL 
AL  35898-5253 

ARMY  INTEL  CTR 
AND  FT  HUACHUCA 
ATSI  CDC  C 

FT  HUACHUCA  AZ  85613-7000 

NORTHROP  CORPORATION 
ELECTR  SYST  DIV 
ATTN  MRS  T  BROHAUGH 
2301  W  120TH  ST  BOX  5032 
HAWTHORNE  CA  90251-5032 

NAVAL  WEAPONS  CTR 
CODE  3331 
ATTN  DR  SHLANTA 
CHINA  LAKE  CA  93555 

PACIFIC  MISSILE  TEST  CTR 
GEOPHYSICS  DIV 
ATTN  CODE  3250 
POINT  MUGU  CA  93042-5000 

LOCKHEED  MIS  &  SPACE  CO 
ATTN  KENNETH  R  HARDY 
ORG  91  01  B  255 
3251  HANOVER  STREET 
PALO  ALTO  CA  94304-1191 
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NAVAL  OCEAN  SYST  CTR 
CODE  54 

ATTN  DR  RICHTER 
SAN  DIEGO  CA  92152-5000 

METEOROLOGIST  IN  CHARGE 
KWAJALEIN  MISSILE  RANGE 
PO  BOX  67 

APO  SAN  FRANCISCO 
CA  96555 

DEPT  OF  COMMERCE  CTR 
MOUNTAIN  ADMINISTRATION 
SPPRT  CTR  LIBRARY  R  51 
325  S  BROADWAY 
BOULDER  CO  80303 

DR  HANS  J  LIEBE 
NTIA  ITS  S  3 
325  S  BROADWAY 
BOULDER  CO  80303 

NCAR  LIBRARY  SERIALS 
NATL  CTR  FOR  ATMOS  RSCH 
PO  BOX  3000 
BOULDER  CO  80307-3000 

DEPT  OF  COMMERCE  CTR 
325  S  BROADWAY 
BOULDER  CO  80303 

DAMI  POI 

WASH  DC  20310-1067 

MIL  ASST  FOR  ENV  SCI  OFC 
OF  THE  UNDERSEC  OF  DEFNS 
FOR  RSCH  &  ENGR  R&AT  E  LS 
PENTAGON  ROOM  3D  129 
WASH  DC  20301-3080 

DEAN  RMD 
ATTN  DR  GOMEZ 
WASH  DC  20314 


1 


SPACE  NAVAL  WARFARE 
SYST  CMND 
PMW  145  1G 
WASH  DC  20362-5100 


ARMY  INFANTRY  1 

ATSH  CD  CS  OR 
ATTN  DR  E  DUTOIT 
FT  BENNING  GA  30905-5090 

AIR  WEATHER  SERVICE  1 

TECH  LIBRARY  FL4414  3 
SCOTT  AFB  IL  62225-5458 

USAFETAC  DNE  1 

ATTN  MR  GLAUBER 
SCOTT  AFB  IL  62225-5008 

HQ  AWS  DOO  1  1 

SCOTT  AFB  IL  62225-5008 

ARMY  SPACE  INSTITUTE  1 

ATTN  ATZI  SI  3 
FT  LEAVENWORTH 
KS  66027-5300 

PHILLIPS  LABORATORY  1 

PL  LYP 

ATTN  MR  CHISHOLM 
HANSCOM  AFB  MA  01731-5000 

ATMOSPHERIC  SCI  DIV  1 

GEOPHYSICS  DIRCTRT 
PHILLIPS  LABORATORY 
HANSCOM  AFB  MA  01731-5000 

PHILLIPS  LABORATORY  1 

PL  LYP  3 

HANSCOM  AFB  MA  01731-5000 

RAYTHEON  COMPANY  1 

ATTN  DR  SONNENSCHEIN 

528  BOSTON  POST  ROAD 

SUDBURY  MA  01776 

MAIL  STOP  1K9 
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1 


ARMY  MATERIEL  SYST 
ANALYSIS  ACTIVITY 
AMXSY 

ATTN  MP  H  COHEN 
APG  MD  21005-5071 

ARMY  MATERIEL  SYST 
ANALYSIS  ACTIVITY 
AMXSY  AT 
ATTN  MR  CAMPBELL 
APG  MD  21005-5071 

ARMY  MATERIEL  SYST 
ANALYSIS  ACTIVITY 
AMXSY  CR 
ATTN  MR  MARCHET 
APG  MD  21005-5071 

ARL  CHEMICAL  BIOLOGY 
NUC  EFFECTS  DIV 
AMSRL  SL  CO 
APG  MD  21010-5423 

ARMY  MATERIEL  SYST 
ANALYSIS  ACTIVITY 
AMXSY 

APG  MD  21005-5071 

NAVAL  RESEARCH  LABORATORY 

CODE  4110 

ATTN  MR  RUHNKE 

WASH  DC  20375-5000 

ARMY  MATERIEL  SYST 
ANALYSIS  ACTIVITY 
AMXSY  CS 
ATTN  MR  BRADLEY 
APG  MD  21005-5071 

ARMY  RESEARCH  LABORATORY 
AMSRL  D 

2800  POWDER  MILL  ROAD 
ADELPHI  MD  20783-1145 
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ARMY  RESEARCH  LABORATORY 
AMSRL  OP  SD  TP 
TECHNICAL  PUBLISHING 
2800  POWDER  MILL  ROAD 
ADELPHI  MD  20783-1145 

ARMY  RESEARCH  LABORATORY 
AMSRL  OP  Cl  SD  TL 
2800  POWDER  MILL  ROAD 
ADELPHI  MD  20783-1145 

ARMY  RESEARCH  LABORATORY 
AMSRL  SS  SH 
ATTN  DR  SZTANKAY 
2800  POWDER  MILL  ROAD 
ADELPHI  MD  20783-1145 

ARMY  RESEARCH  LABORATORY 
AMSRL 

2800  POWDER  MILL  ROAD 
ADELPHI  MD  20783-1145 

NATIONAL  SECURITY  AGCY  W21 
ATTN  DR  LONGBOTHUM 
9800  SAVAGE  ROAD 
FT  GEORGE  G  MEADE 
MD  20755-6000 

ARMY  AVIATION  CTR 
ATZQ  D  MA 
ATTN  MR  HEATH 
FT  RUCKER  AL  36362 

OIC  NAVSWC 

TECH  LIBRARY  CODE  E  232 
SILVER  SPRINGS 
MD  20903-5000 

ARMY  RSRC  OFC 
ATTN  DRXRO  GS 
PO  BOX  12211 
RTP  NC  27009 

DR  JERRY  DAVIS 
NCSU 

PO  BOX  8208 
RALEIGH  NC  27650-8208 


1 


ARMY  CCREL 
CECRL  GP 
ATTN  DR  DETSCH 
HANOVER  NH  03755-1290 

ARMY  ARDEC 
SMCAR  IMI I  BLDG  59 
DOVER  NJ  07806-5000 

ARMY  SATELLITE  COMM  AGCY 
DRCPM  SC  3 

FT  MONMOUTH  NJ  07703-5303 

ARMY  COMMUNICATIONS 
ELECTR  CTR  FOR  EW  RSTA 
AMSEL  EW  D 

FT  MONMOUTH  NJ  07703-5303 

ARMY  COMMUNICATIONS 
ELECTR  CTR  FOR  EW  RSTA 
AMSEL  EW  MD 
FT  MONMOUTH  NJ  07703-5303 

ARMY  DUGWAY  PROVING  GRD  1 

STEDP  MT  DA  L  3 
DUGWAY  UT  84022-5000 

ARMY  DUGWAY  PROVING  GRD  1 

STEDP  MT  M 
ATTN  MR  BOWERS 
DUGWAY  UT  84022-5000 

DEPT  OF  THE  AIR  FORCE  1 

OL  A  2D  WEATHER  SQUAD  MAC 
HOLLOMAN  AFB 
NM  88330-5000 

PL  WE  1 

KIRTLAND  AFB  NM 

87118-6008 

USAF  ROME  LAB  TECH  1 

CORRIDOR  W  STE  262  RL  SUL 
26  ELECTR  PKWY  BLD  106 
GRIFFISS  AFB 
NY  13441-4514 
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AFMC  DOW 

WRIGHT  PATTERSON  AFB 
OH  0334-5000 

ARMY  FIELD  ARTLLRY  SCHOOL 
ATSF  TSM  TA 
FT  SILL  OK  73503-5600 

NAVAL  AIR  DEV  CTR 
CODE  5012 
ATTN  AL  SALK 
WARMINISTER  PA  18974 

ARMY  FOREGN  SCI  TECH  CTR 
CM 

220  7TH  STREET  NE 
CHARLOTTESVILLE 
VA  22901-5396 

NAVAL  SURFACE  WEAPONS  CTR 
CODE  G63 

DAHLGREN  VA  22448-5000 

ARMY  OEC 

CSTE  EFS 

PARK  CENTER  IV 

4501  FORD  AVE 

ALEXANDRIA  VA  22302-1458 

ARMY  CORPS  OF  ENGRS 
ENGR  TOPOGRAPHICS  LAB 
ETL  GS  LB 

FT  BELVOIR  VA  22060 

TAC  DOWP 
LANGLEY  AFB 
VA  23665-5524 

ARMY  TOPO  ENGR  CTR 
CETEC  ZC  1 

FT  BELVOIR  VA  22060-5546 

LOGISTICS  CTR 
ATCL  CE 

FT  LEE  VA  23801-6000 


SCI  AND  TECHNOLOGY 
101  RESEARCH  DRIVE 
HAMPTON  VA  23666-1340 

ARMY  NUCLEAR  CML  AGCY 
MONA  ZB  BLDG  2073 
SPRINGFIELD  VA  22150-3198 

ARMY  FIELD  ARTLLRY  SCHOOL 
ATSF  F  FD 

FT  SILL  OK  73503-5600 

USATRADOC 
ATCD  FA 

FT  MONROE  VA  23651-5170 

ARMY  TRADOC  ANALYSIS  CTR 
ATRC  WSS  R 
WSMR  NM  88002-5502 

ARMY  RESEARCH  LABORATORY 
AMSRL  BE  M 
BATTLEFIELD  ENVIR  DIR 
WSMR  NM  88002-5501 

ARMY  RESEARCH  LABORATORY 
AMSRL  BE  A 

BATTLEFIELD  ENVIR  DIR 
WSMR  NM  88002-5501 

ARMY  RESEARCH  LABORATORY 
AMSRL  BE  W 
BATTLEFIELD  ENVIR  DIR 
WSMR  NM  88002-5501 

ARMY  RESEARCH  LABORATORY 
AMSRL  BE 
ATTN  MR  VEAZEY 
BATTLEFIELD  ENVIR  DIR 
WSMR  NM  88002-5501 

DEFNS  TECH  INFO  CTR 
CENTER  DTIC  BLS 
BLDG  5  CAMERON  STATION 
ALEXANDRIA 
VA  22304-6145 
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ARMY  MISSILE  CMND 
AMSMI 

REDSTONE  ARSENAL 
AL  35898-5243 

ARMY  DUGWAY  PROVING  GRD  1 

STEDP 3 

DUGWAY  UT  84022-5000 

USATRADOC  1 

ATCD  FA 

FT  MONROE  VA  23651-5170 

ARMY  FIELD  ARTLRY  SCHOOL  1 

ATSF 

FT  SILL  OK  73503-5600 

WSMR  TECH  LIBRARY  BR  1 

STEWS  IM  IT 
WSMR  NM  88001 

Record  Copy  10 

Total  96 


556 


